Vi nt v Access 2000

Vi nt v Access 2000
Xem bai viet bang font Unicode

PCWorld VN 5/99

T u 1999, Microsoft gii thiu bn beta 3 ca Office 2000, trong  chim v tr xng ng l Access 2000 hay cn gi l Access 9. Nhng tin tc u tin v cng c pht trin ng dng khch/ch ny ch yu tp trung vo 2 cng ngh mi vi tn kh ging nhau l Microsoft Access Data Projects (ADPs) v Data Access Pages (DAPs). C s d liu client/server dng bng Access by gi c th c lu trong tp tin vi dng thc kiu mi gi l .ADP (ngi dng mun dng dng thc .MDB cng vn c). Tp tin ADP cha cc mu biu (form), bo biu (report) v cc thnh phn khc ca giao din, trong khi bng v query (cn gi l cu hi hoc bng truy vn) c a vo tp tin d liu ca SQL Server 7. Nu nh trc kia, Access dng Jet engine  truy xut d liu, th nay c th thay c cu ny bng SQL Server 7, mt c cu CSDL mi, rt mnh ca Microsoft. Tt nhin, vn c th dng Jet engine, nhng c cu ny cng c nng cp (phin bn mi c s hiu 4.x): ngn ng SQL theo chun ANSI 92, thm khi nim VIEW (khung nhn), Procedure (th tc lu sn), khi nim giao tc pha Server, ri mt lot kiu d liu mi nh ca SQL Server nh Decimal,... Access 2000 h tr b k t Unicode m khng cn n cc phn mm b tr (add-on). Cng c Access Upsizing Wizard ni ting nay  tr thnh b phn cu thnh Access 2000 m khng cn phi ti xung (download) t c s Web ca Microsoft (y l cng c dng  nng cp CSDL Jet hin c ln SQL Server). Tp tin .MDB ca Access 2000 khng c c trong cc phin bn c ca Access. Bn c th chuyn i tp tin .MDB thnh .ADP mt cch d dng, tuy nhin ngc li th khng c. Tp tin .ADP cho php vn hnh Access nh mt ng dng mt trc (front-end) trong khi SQL Server 7.0 dng lm back-end (mt sau, hu trng). Khng cn phi np c cu Jet khi thc hin ADP.

Cn DAP (Data Access Pages) th sao? N cho php dng Access  to cc ng dng Web ng trn nn ASP (Active Server Pages). Truy xut d liu by gi ch yu thc hin qua giao din mi l ADO (Active Data Object). C th coi y l m hnh i tng c s dng  lm vic vi d liu qua cng ngh OLE DB ca Microsoft.

Bi bo ny  cp n nhng tnh nng mi c coi l th v nht ca Access 2000.

c tnh Dirty

Chc bn  lm quen vi c tnh Dirty ca mu biu Access (ch c t Access 97). N cho php t chng trnh vit bng VBA (Visual Basic for Applications) c th xc nh c d liu trong bn ghi hin thi (gn vi mu biu) c thay i v  c ghi cha. Bn c th sa c tnh ny thnh gi tr False t m VBA  ghi bn ghi  ra a. Th nhng nu ta cn thc hin thao tc g  khi mu biu b thay i th lm th no? Access 97 khng c s kin gi l Dirty. Chc bn  on ra: Access 2000 cui cng  c s kin (event) nh vy. Th tc x l s kin Dirty c tham bin Cancel. Khi cn c th thc hin lnh Cancel = True  thi (undo) khng lm nhng g va thay i vi bn ghi hin thi na. Nhc im ln ca s kin Dirty l n ch xy ra khi ngi nhp liu bt u sa ni dung mu biu, ch khng xy ra khi c tnh Dirty b sa thnh False t chng trnh. Nn c thm s kin, chng hn vi tn l Undo  x l tnh hung  (bn c th ly trnh FrmSmp 97.exe t c s Web ca Microsoft  tham kho cch m phng s kin After undo, n s dng mt iu khin tnh ton vi biu thc l mt hm ngi dng, v hm ny thc hin mi khi c tnh Dirty ca Access 97 thay i. Dng k thut ny  m phng s kin Dirty, nhng khng hiu qu bng s kin Dirty ci sn trong Access 2000).

nh dng c iu kin

y l mt trong nhng tnh nng m ngi lp trnh Access khao kht nht: lm th no  ch mt s dng no  (v d: cc dng vi doanh s ln hn 10.000 USD) ca mu hoc bo biu hin ln vi dng thc theo  mun (v d: c mu m hn cc dng khc,  d c, d nhn mnh). Vi report th c th thut thm cu trc IF - Endif vo th tc x l s kin Format ca vng (section) cha hp vn bn cn kim tra v nhn mnh. (Nu tha iu kin no  th sa cc c tnh Font, Fontweight,... ca iu khin cn nh dng ring.) Tng t, i vi mu biu kiu Single (n bn ghi) a nhm lnh k trn vo th tc x l Current. Th nhng vi kiu mu biu lin k (Continuous Form, mu biu a bn ghi), lm nh vy s thay i dng thc cho tt c cc bn ghi! Ngha l khng t c mc ch t ra. Vng, by gi th nhm Access ca Microsoft  lng nghe nguyn vng ca ngi s dng: c cch d dng nh dng c iu kin (conditional formatting) cho tng hp vn bn, tng hp chn combo, tng dng mt. C th xc lp nhiu iu kin nh dng cho mi iu khin (di dng biu thc lun l hay trng thi iu khin ang trong focus hay khng). Nu c vi iu kin ng, s chn iu kin ng u tin k t u danh sch. Bn t iu kin trong c ch  Design (khi thit k) hoc ch  Form (khi m mu biu  lm vic, tc l nh dng ng, trong thi gian vo hoc xem s liu). Hnh 1 cho thy hp thoi Conditional Formatting m ra khi ngi dng nhp liu hoc xem form bng cch vo thc n Format, sau  chn Conditional Formatting.

Hnh 1. Hp thoi nh dng c iu kin m trong Form View.

Ngi lp trnh VBA c th kim sot vic nh dng c iu kin bng cch thm hoc loi b cc i tng kiu FormatCondition t su tp (collection) FormatConditions, v t li cc c tnh ca cc i tng . V d,  doanh s hng thng tr nn m v c mu xanh dng nu ln hn hn mc no  (nhp sn vo hp vn bn textMonthQuota ca mu biu), ta dng on m sau:

With Forms!frmSales!txtMonthSales. FormatConditions

.Add(acFieldValue, acGreaterthan, "=[txtMonthQuota]")

.FontBold = True

.ForeColor = vbBlue

End With

Gn mu biu vi b bn ghi

Ngay trong Access 2.0, ngi lp trnh  c nhiu cch  kim sot c tnh Record Source ca mu biu. Bn c th gi tn bng, tn cu hi (query) hoc c mt lnh SELECT ca SQL vo c tnh ny  c t ngun bn ghi. Vi b bn ghi (recordset) tnh c trong VBA th rc ri hn: phi to bng trung gian hoc bng truy vn cha d liu cn thit. Trong Access 2000 c th gn recordset tnh c vi mu biu. Access 97 truy cp b bn ghi ca mu biu bng c tnh RecordsetClone, nhng vn cha c c tnh Recordset  n nh b bn ghi ngun.

Tnh nng mi ny ca Access 2000 rt linh hot, nht l khi to recordset trong mt giao tc (transaction). Khi quay lui (roll back) ton giao tc, tt c cc thay i lm vi mu biu da trn b d liu to trong giao tc, k c cc thay i tc ng n nhiu bn ghi, s c hy. Trong qu kh th cc k vt v: thng thng phi dng bng trung gian hoc mng d liu.

Hnh 2: ng k ch  Compact on Close v tp tin Access s c nn t ng khi ng (min l khng c ai khc vn cn m n).

C th gn mt recordset vi vi mu biu mt lc. D liu trong mu biu ny s t ng ng b vi d liu trong form khc, m quay lui giao tc cng s quay lui i vi d liu trong tt c cc biu mu. Ngay c khi dng cc recordset vi nhiu mu biu m cc recordset  c to trong mt giao tc, chng cng rollback c cng nhau.

Trong cc tp tin ADP, cc b bn ghi ADO c th cp nhp (sa) c qua form nu cc ADP ny c ti u  dng OLE DB tng tc vi SQL server. Nu dng Jet (tc dng tp tin .MDB) vn phi s dng DAO (Data Access Object)  to recordset kiu read/write cho mu biu, cn dng b bn ghi ADO cho mu biu ca .MDB th n ch c tnh read-only m thi. C l Microsoft phi khc phc nhc im ny ca ADO trong MDB khi a ra phin bn cui cng ca Access 2000.

T ng nn tp tin

y l tnh nng rt hu ch, v  Access lm c iu  khi ng tp tin, ch vic vo trang General ca hp thoi Options, sau  nh du chn  Compact on Close (xem hnh 2).

Thng thng ng dng Access c a vo MDB mt trc (cha query, form, report, module), d liu tch ra tp tin MDB ring (mt sau). ng t ng c thc hin cho MDB mt trc, v cn mt th thut nh  m bo nn c tp tin d liu  mt sau. Access i hi tp tin ny phi c m trong ch  Exclusive (c chim) th mi thc hin compact c, tuy nhin, t nht l t nay khng cn phi lo nn tp tin mt trc na.

Ti sao li phi thng xuyn nn d liu, trong khi bn khng to bng tm thi no c? Trn thc t, Access to rt nhiu i tng trung gian v lm cho CSDL lin tc phnh ra, do  b phn on v gim hiu nng truy xut.

Hnh 3. T nay Access 2000 dng chung VBE vi cc thnh phn khc ca Office 2000.

Cn lu  rng, nn tp tin c tc dng nh du cc query cn c bin dch li trong ln vn hnh k tip. Khi bng truy vn ln u thc hin sau khi thit k, c cu Jet thit lp mt lc  truy vn da trn cc s liu thng k thu thp c. Nu c t s liu (thng ban u dng s liu th do ngi lp trnh t to), lc  truy vn khng s dng cc ch mc m trc tip qut cc bn ghi trong bng t u n cui v nh th s nhanh hn. Khi h thng p dng cho s liu thc, lin tc bin i tng dn, lc  truy vn c khng cn thch hp na. Chnh vic nn tp tin c tc dng thit lp lc  truy vn mi cho query, da trn tnh trng mi nht ca s liu. Nn cng ko theo vic sa cha tp tin, do  khng cn thc hin thao tc repair nh trong Access 2.0. Nn t ng s khng thc hin nu khng tit kim thm t nht 256 KB.

B son tho VBE

Lm vic vi Word, Excel chc bn  quen thuc vi Visual Basic Editor (VBE). Bn thn Access 95  chp nhn VBA nhng n Access 97 vn trung thnh vi giao din son tho chng trnh theo kiu ring. K t Office 2000, tt c cc ng dng cu thnh ca n, trong  c Access, u chung VBE vi giao din thng nht (Hnh 3).

Dng nh y l mt bc tht li ca Access 2000. Trong phn ln cc phn mm dng VBA, cc mu biu c thit k ngay trong VBE. Ngi lp trnh Access 2000 buc phi tin/lui gia ca s VBE v ca s Access ni c cc mu biu ang m.

Nu l ngi lp trnh tng tri, bn c th ng ca s Properties trong VBE v n ch lp li nhng g c trong cc hp thoi Access, khng c c cc c tnh ca iu khin. Ca s Project Explorer theo phong cch treeview (dng cy) tht hu ch khi lm vic vi cc CSDL th vin. Ngoi ra, Project Explorer cn c kh nng m rng, cho thy c nhng g khng c trong ca s CSDL ca Access. Bn c th lm cho ca s Immediate di ng t do ging nh ca s Debug trc kia. Nu khng thy cnh Locals hoc Watch, c th m chng trong ca s ring nm trn phn cn li l ca s son tho m VBA, khng khc g my so vi trong Access 97, ngoi tr vic cc n th ch m trong khun kh ca ca s VBE m thi. Bn thn VBE c g mi? Hp dn nht l thanh cng c Edit: c cp nt lnh cho php thm/bt cu ch thch cho ton khi m ch bng mt thao tc nhp chut. im mi na l thanh Edit cho php t th nh du (bookmark) vo vn bn m trnh. Khi cn thit c th d dng quay li nhng ni  t du, hon ton ch bng cch nhp vo lnh tng ng trong thanh cng c. Thc ra th bookmark  c t thi Access 97 nhng thao tc t li nm su trong h thng thc n, do  nhiu ngi khng   v chng bao gi dng n.

Hnh 4. CurrentProject cho php nhn c nhiu thng tin mi, rt hu ch.

VBE cn h tr m hnh cc cng c b tr linh hot, cho php ty bin mi trng m ha ca ngi lp trnh. Bn t ng thm khi ch thch hoc on m x l s kin trong th tc hoc hm mi? C th t to add-in  lm iu  hoc dng cc cng c do ngi khc cung cp. D on s c nhiu phng tin b tr cho VBE xut hin trn th trng.

AutoCorrect

Gi s bn dng trng tn l CustomerID trong mt hoc nhiu bng. Mt ngy no  bn mun i tn n thnh ClientID. Nh trc kia th tht vt v: phi r sot tt c bng truy vn (query)  tm cc trng CustomerID ang s dng v i n thnh tn mi. Cng lm nh vy vi cc form v report  thay li cc ngun iu khin gn vi trng c. Tin tt lnh cho chng ta: Access 2000 t ng i tn trng trong tt c cc thnh phn lin quan k trn, nhng ng vi hn hoan: h cha m c ti cc module, cc on m lp trnh v recordset. Bn vn phi sa bng tay nh thng lm, do  ng vi vt b SpeedFerret, mt sn phm th ba, v chc n vn cn hu hiu cho Access 2000. Tuy nhin, dng AutoCorrect ca Access 2000 mt cch thn trng cng gip c nhiu vic.

Hnh 5: Jet 4.0 by gi h tr kha cht n tng bn ghi.

CurrentProject

C mt i tng mi trong Access 2000 gi l CurrentProject.

Nhng ai tng lp trnh DAO chc kh quen thuc vi hm CurrentDb ()  tham chiu ti CSDL ang m. CurrentProject cng c mc ch tng t nhng p dng cho c ADO, v d CurrentProject.Connection tr li i tng kt ni ADO. Ngoi ra cn c CodeProject gn ging vi hm CodeDb () trong DAO  dng vi cc add-in. Ta thc hin mt s lnh sau  kim tra trong ca s Immediate:

?CurrentProject.FullName

D:\Temp\db1.mdb

?CurrentProject.Name

db1.mdb

?CurrentProject.Path

D:\Temp

i tng CurrentProject c cc su tp (collection) cha tt c cc i tng khc ca Access, chng hn AllForms, AllReports, AllMacros, AllModules v AllDataAccessPages. Mi su tp ny cha cc i tng kiu AccessObject vi nhiu c tnh (Property) rt hu ch:

?CurrentProject.AllForms.Count

6

?CurrentProject.AllForms (5) .Name

frmQuery1

?CurrentProject.AllForms (5) .IsLoaded

False

Cn vi cc bng v query th sao? C i tng khc gi l CurrentData vi c tnh l cc su tp AllTables, AllQueries, ri c AllViews, AllStoredProcedures v AllDatabaseDiagrams.

Tuy CurrentProject.Connection tr v i tng kt ni ADO, c tnh ngm nh ca i tng kt ni ny l mt chui kt ni (Connect String):

?CurrentProject.Connection

Kt qu l mt chui k t bao gm cc tham tr chia tch nhau bng du chm phy (;). Dng cc hm mi ca Access 2000, trong  c Split() v Filter()  tch v ly ra cc tham tr cn thit.

Cc hm chun mi

Mt lot hm mi c b sung so vi Access 97, dng  x l xu k t: Replace(), InstrRev(), StrReverse(), Split(), Join() v Filter().

Hm Replace() dng  thay xu con ca xu no  bng xu con mi:

?Replace ("a1a2a3a4a5", "a", "b")

b1b2b3b4b5

?Replace ("a1a2a3a4a5", "a", "b", 3)

b2b3b4b5

?Replace ("a1a2a3a4a5", "a", "b", 3, 2)

b2b3a4a5

Trong 2 v d cui, s 3  tham s th t dng ch v tr t  bt u cn thay th (v kt qu cng t  lun). Tham s th 5 trong v d cui cng  c t s ln phi thay (xu con c th hin din nhiu ln).

Hm StrReverse() tr v chui k t o ngc (khng r thc t ng dng CSDL c cn n hm ny khng?).

?StrReverse ("abcdef")

fedcba

Hm InstrRev() c c ch lm vic nh Instr() nhng tm kim ngc t k t cui n k t u (hm ny th tht s cn thit):

?InstrRv ("C:\MyPath\MyFile.ext", "\")

10

Cc hm Split(), Join() v Filter() cng rt hu ch. Split() chuyn i xu k t c chia tch (bi mt k t no , v d du chm phy) thnh mng cc gi tr. Join() thc hin thao tc ngc li, t mng tr v xu k t c chia tch. Filter() trch t mng cc dng tha mn iu kin no .

? Filter(Split(CurrentProject.Connection, ","), _

"Data Source = ") (0)

Data Source=D:\Temp\db1.mdb

Thm mt bc na th nhn c tr ca Data Source.

? Split (Filter(Split(CurrentProject .Connection, ";"), _

"Data Source = ") (0) ,"=") (1)

D:\Temp\db1.mdb

Nu  quen thuc vi ngn ng Lisp, chc bn rt hi lng vi b hm trn v t hi: ti sao n by gi VBA mi c c kh nng phn tch xu k t nh vy?

Ngang nga vi VB 6

Nhng nm qua, ngi lp trnh Access dng VBA lun lc hu so vi Visual Basic, do  c  ngh cho rng VBA l mt tp con ca VB. S thc th VBA v VB lun l mt, c iu l ngi lp trnh Visual Basic c c phin bn mi hn mt cht. Gi y Microsoft m bo Visual Basic v VBA ng b vi nhau. Nh vy, Office 2000 c ngn ng lp trnh hon ton ngang nga vi VB 6.0. Di y tm lc mt s tnh nng nng cao ca VBA mi.

- B chuyn AddressOf cho php truyn a ch hm gi ngc cho th tc khc.

- Lnh Implements c dng vi cc n th lp  c t lp (class) thc thi giao din (tp hp cc c tnh v phng thc) nh ngha trong mt lp khc. Nh vy, VBA by gi c tnh nng a hnh (polymorphism), ngha l giao din chun c hnh vi khc trong cc lp khc nhau.

- Vi Access 97, bn c th dng khai bo With Events trong n th lp  to khoang s kin, do  n th lp  c th bt c s kin pht sinh trong i tng. T nay c th dng lnh Event  khai bo s kin theo  mun v lnh RaiseEvent  lm cho n xy ra bt c lc no.

- T kha Enum cho php khai bo cc hng lit k, chng hn nh cc hng bt u bng ac, vb hoc db. Cc bin v tham s sau  c th c ng k vi kiu mi.

- T kha Friend thm la chn th ba vo danh sch cc khai bo (trc  c Public v Private) khi cn nh ngha phm vi ca th tc trong n th lp. Cc th tc c tnh Friend thy c t tt c cc th tc khc trong d n. Khc vi Public, chng khng thy c bn ngoi d n. Nu dng VBA  dng cc Com server cho cc trnh khc s dng, phm vi kiu Friend rt hu ch.

- i tng Debug c thm phng thc Assert dng t im ngt vo m trnh. Ngt s xy ra khi ti im  biu thc c t trong Assert cho tr False. Li thm mt cch mi  g ri chng trnh khi kh tm c li.

Jet Engine 4.0

Gn y c nhiu tin n v gi tn th ca Jet, mt c cu CSDL vn dng t lu nay cho Access ( ta hay ln Jet vi Access v mt vi c ng vin cn st li ca FoxPro for DOS  vi hoan h l Access sp cht - ND). Trn thc t, ngi dng c la chn trong 2 kh nng: dng Jet Engine 4.0 hoc SQL Server 7.0 lm ng c cho Access. Phin bn 4.0 ca Jet mnh m hn bao gi ht. Nhiu ng dng Access c th khng cn n c cu SQL Server 7 qu mnh, v nhm Jet ca Microsoft vn n lc hon thin sn phm truyn thng ca mnh.

ng c Jet mi cho php kha cht n tng bn ghi (xem ty chn tng ng trong trang Advanced thuc hp thoi Options  hnh 5).

Ngi dng cc phn mm CSDL khc thng ch Access (ng hn: c cu Jet ca n) l ch kho cht c ton trang (page-level locking) khi bn ghi no trong  cn kha. T Jet 3.x tr v trc mt trang CSDL c dung lng 2 KB. Jet 4.0 dng trang 4 KB do  nu khng h tr kha cht n tng bn ghi thay cho vic kha cht ton trang (gp i so vi trc), nhiu bn ghi s b "kha ly". Dung lng trang 4 KB l  h tr b m Unicode, v theo b ny mi k t s chim 2 byte. Gi y kch c ti a ca tp tin MDB c nng ln 2 GB so vi 1 GB trc y.

Vic kha cht theo kiu no cng c Jet xc nh mt cch thng minh. Nu c nhiu bn ghi trong trang 4 KB no  c kha cht, Jet t ng kha c trang cho hiu qu, thm ch n kha cht c bng lun nu khng c ngi dng no khc trn mng truy cp bng  (ng hn: ang sa - ND)

Nhiu c tnh mi khc ca Jet ch yu nh hng cho m hnh i tng ADO m Microsoft khuyn ngh s dng thay cho m hnh DAO. M hnh DAO c s vn cn v gi c gi tr s dng, nht l v phng din bo mt v nhn bn (replication).

Dng ADO ngha l s dng ngn ng SQL i mi. Di y lit k mt s im mi ca SQL theo chun ANSI-92 m Jet 4.0 h tr.

- Thm cc lnh GRANT, REVOKE cho mc ch bo mt

- Thm cc lnh CREATE v DROP  to v loi b cu hi (VIEW v PROCEDURE)

- CASCADE dng  nh ngha tnh ton vn tham chiu

- Rng buc CHECK dng  c t biu thc lun l m cc bn ghi trong mt hoc nhiu bn phi tha.

- Cc lnh ALTER TABLE v ALTER COLUMN  sa cu trc bng m khng phi thm ct mi, sao chp ct c sang v loi b ct c nh trc kia.

- IDENTITY l t kha c t tnh tng t ng ca ct

- Thm mt s kiu ct mi  tng hp vi SQL Server, v d kiu Decimal

C nn nng cp?

Khi bi bo ny n tay bn c, vn cn qu sm  phn xt v phin bn mi ca Access. Mt s tnh nng  cp  trn c th khng c trong bn chnh thc ca Access 2000 hoc khc i mt cht. Vic tch hp VBE vi Access cn gy nhiu bn ci nhng nhng bc tip theo c th lm cho tnh nng ny sng gi hn. Microsoft r rng l  chuyn hn sang hng xy dng phn mm tn dng ti a cc thnh phn dng chung, tt nhin c lc phi tr gi v hiu nng.

Ai  tng tri qua thi k lp trnh trong Access 2.0 mi cng thu hiu gi tr ca cc thnh phn nhiu mega , tuy chng cn  mc s khai v hy vng hon chnh hn theo  hon thin m hnh i tng chung ca Microsoft. Sn phm mi chu ba ru d lun l chuyn thng tnh, v Access 2000 khng l ngoi l.

T Tun

Theo Access-Office-VB Advisor 4/1999

PcLeHoan 1996 - 2002
Mirror : http://www.pclehoan.com
Mirror : http://www.lehoanpc.net
Mirror : http://www.ktlehoan.com