S dng Visual Data Manager ca Visual Basic 5.0

S dng Visual Data Manager ca Visual Basic 5.0
Xem bai viet bang font Unicode

PCWorld VN 1/99

Khi s dng Visual Basic (VBasic), iu khin bn hi lng c l l s lng " ngh" di do ca n trong Tool Box. Bn ang thit k mt form cho ng dng c x l n c s d liu v ang phn vn s t vo y Data control hay DBGrid? Cha ht, bn cn nhng thao tc no trn form  quyt nh s c bao nhiu nt lnh? Mun c nhiu thao tc, t phi cn cng nhiu nt lnh m vic lp trnh cho cc nt lnh c khi khng n gin. VBasic c tin ch h tr trong trng hp bn cn mt form c kh nng duyt tng record trong mt Table cng vi nhng thao tc thm, xa, sa, di chuyn, d tm v xp th t. D nhin, tin ch y cng t ng pht sinh m lnh cho cc thao tc.  l trnh Data Manager vn c xem l "tr gi gia tng" c sn trong VBasic 4.0. Nhng k t phin bn VBasic 5.0, trnh tin ch y c "lt xc" hon ton v gi bng tn mi l Visual Data Manager (VisData).

Vi chc nng ni trn, tin ch ny khc vi h Microsoft Access  ch n cho php bn to bt c CSDL no: Access, dBase, FoxPro hay Paradox. V v  l trnh qun tr d liu nn VisData sn lng chp nhn nhng ch th SQL nu bn mun c cc queries trong CSDL. Nu  vn cha phi l l do  bn s dng VisData, th hy tng tng bn ang vit mt ng dng bng VBasic, nhng cng cn n nhng thng tin v mt CSDL no  bng cch s dng MS-Access  ch  Inactive Window, bn c tin rng tc  my ca bn s chm li khng? V nu VBasic ca bn cng ang cn n CSDL m MS-Access ang m th sao? Hn bn phi ng CSDL  trong MS-Access. Duy tr mt ca s MS-Access trng rng trong ch  Inactive l mt s ph phm ti nguyn ca my v thi gian ca bn. Bn c sn lng "xi sang" nhng th  khng?

VisData cn c nhng chc nng lin quan n vic s dng CSDL phn tn. Ngha l mt CSDL dng trong mi trng mng. Tuy nhin trong bi ny, chng ta ch xt n nhng chc nng ca n trn my n.

Gi s dng VisData

T trong menu chnh ca VBasic, bn c th gi s dng VisData bng lnh: Add-Ins, Visual Data Manager. Cy lnh m t qua Hnh 1.

Hnh 1. LÖnh gäi VisData

Sau  ca s VisData xut hin trn mt trc ca ca s VBasic nh Hnh 2.

Hnh 2. Cöa sæ VisData

Menu v thanh cng c ca VisData tng i n gin. Menu File gm nhng lnh lin quan n m/to lp, bo tr CSDL. Menu Utilities phn nh hai tin ch quan trng l trnh Query Builder gip xy dng SQL trc quan v b Data Form Designer gip t ng to form nu bn ang dng VBasic v mun VisData h tr to form  x l d liu trong table. Cc nt cng c chia thnh ba nhm. Nhm th nht gip ngi s dng xc nh xem mnh s m/to mt CSDL theo kiu no trong nhng kiu Tableset, Dynaset, hay Snapshot. Nhm nt cng c th hai c dng khi bn mun to mt form v trong form  s t mt Data control hay DBGrid control. Nhm nt cng c th ba dnh cho nhng trng hp dng n CSDL phn tn. Trong VisData c th hin th hai ca s Database Windows v SQL Statement.

M/To lp CSDL

i vi mt CSDL  c sn, trc khi m bn hy xc nh VisData s m n theo kiu no trong nhng kiu Tableset, Dynaset, hay Snapshot. Nhng nt cng c cho trong Hnh 3 cho bit nt no gip bn lm vic . Bn s dng lnh File.Open Database  m CSDL hay lnh File.New nu mun to mt CSDL mi.

Hnh 3. Quy ®Þnh kiÓu CSDL sÏ më

Hnh 4 m t cy lnh cho thao tc ny.

Hnh 4. C©y lÖnh më/to CSDL

Trng hp mun to CSDL FoxPro, bn phi khai bo ng dn cho CSDL s to trong hp thoi nh VisData trnh by  Hnh 5.

Hnh 5. Khai bo ®êng dÉn khi to CSDL FoxPro

Nu mun to CSDL .MDB ca MS-Access, bn s khai bo tn ca CSDL trong hp thoi nh Hnh 6.

Hnh 6. To CSDL .MDB cña MS-Access

Gi s bn mun to mt CSDL di format ca Access 7.0 c tn magazin.mdb trong a D:\, lc  vng lm vic ca VisData s c hai ca s Database Window v SQL Statement. Ca s Database Window l ni th hin v cc properties ca bn thn CSDL ny v ca nhng i tng trong CSDL nh Table, Query, ... Nhng properties ny c th hin di dng cy th mc. Ca s SQL Statement l ni  pht nhng ch th SQL vi nhng nt lnh Execute thi hnh ch th, nt lnh Clear  xa ch th v nt lnh Save  lu ch th SQL hin hnh di mt tn, tn  c gi l QueryDef. Hnh 7 minh ha nhng m t trn.

Hnh 7. Cöa sæ Database v SQL Statement

To mt Table

Bn c th to mt table bng lnh SQL pht ra trong ca s SQL Statement theo dng lnh: CREATE TABLE Table (Field1, Type(Size),...) v sau  bm vo nt lnh Execute  thi hnh. V d mun to Table Writer cho CSDL magazin.mdb, bn c th nhp vo dng lnh: Create Table Writer (writerid Text(5), Name Text(25), Title Text(32), ReceiveDate Date time)

By gi trn mn hnh s hi bn y c phi l mt ch th PassThrough SQL khng, bn nh tr li "No" v mt ch th PassThrough SQL s dnh ring cho ODBC x l.  y chng ta cha bn n ODBC l g.

Vi mt table va khai bo xong, bn c mun xem nhng properties ca bng ny? Hy bm vo du A+' k bn tn ca bng trong ca s Database Window. Bn mun nhp liu vo bng? Hy nhn p vo tn ca bng. Lc  mt b duyt ni dung s th hin di dng form nh trong Hnh 8.

Hnh 8. Form nhËp liÖu v duyÖt bng Writer

Cc nt lnh lin quan n nhng thao tc trn record; cc hp Text box  nhp ni dung cho tng trng v thanh trt  duyt ni dung tng record.

Xin lu  ty bn ang m bng theo kiu no trong nhng kiu TableSet, DynaSet hay SnapShot v c t Data Control vo form hay khng m hnh thc ca form nhp liu c thay i i cht v cc nt lnh trong form. Nhng iu  s khng lm bn lng tng khi s dng form. Di y, chng ti s m t i nt v vic s dng form trong trng hp m bng theo kiu DynaSet v trong form khng c Data Control.

S dng form nhp liu

Sau khi  lm xut hin form nhp liu nh Hnh 8, hn bn cng mun nhp mt s record u tin cho bng. Form khng cho php bn nhp ni dung cc trng vo hp text box. Bn hy bm chut vo nt lnh Add  bt u. Hnh 9 minh ha form nhp liu.

Hnh 9. NhËp néi dung record

Khi nhp xong, bn bm chut vo nt lnh Update  ghi nhn hoc Cancel trong trng hp ngc li.  chnh sa ni dung record, dng Edit;  loi b record hin hnh trong form, dng Delete;  thay i record hin hnh, dng Move v cung cp  di tnh t record hin hnh.  di l mt s nguyn dng hay nguyn m ty theo bn mun di v hng u bng hay cui bng. Bn c mun xp th t bng theo mt trng no  khng? Ch cn nhn chut vo nt lnh Sort v khai bo tn trng m bn mun dng lm kho. Hnh 10 l hp thoi m bn s cung cp tn kha sp xp.

Hnh 10. Khai bo kha sp xp cho bng.

Nu mun d tm mt record no , thay v s dng thanh trt, bn dng nt lnh Find v chn kha d tm, chn ton t v chn gi tr cho kha d tm. Vi nhng record trng kha d tm th sao? Liu VisData ch c kh nng tm duy nht mt record u tin trng kha? VisData chp nhn d tm c nhng record trng kha khc nu  ln d tm sau bn chn nhim  Find Next. Hnh 11 minh ha cch dng lnh Find  d tm record lin quan n tc gi Knuth,D.

Hnh 11. Khai bo biÓu thøc dß tm.

Cui cng l thao tc lc nhng record tha mn mt iu kin cho trc m vi nhng bn quen dng Fox th  l ch th SET FILTER. Chng hn, bn mun lc tt c nhng record v tc gi Knuth,D., hy nhn chut vo nt lnh Filter ri cung cp iu kin lc record vo hp thoi nh Hnh 12 ch ra.

Hnh 12. Läc nhng record theo mét ®iÒu kiÖn

S dng ch th SQL

VisData cng c kh nng chy nhng ch th SQL nu bn nhp dng lnh vo ca s SQL Statement ri bm chut vo nt lnh Execute  thi hnh. Khi c hp thoi hi bn ch th SQL sp thi hnh c phi l mt SQLPassThrough hay khng, bn nh chn "No". Nu khng b bt li, Queries thu c s l mt form.  lm v d, bn th m CSDL Biblio.mdb (l CSDL ci t theo VBasic) bng lnh File.Open v pht ch th chn tn, a ch, m ca nhng nh xut bn ca thnh ph New York. Bn c nhp dng lnh SELECT Name, Address, PubID FROM Publishers WHERE City="New York" hay khng?

Nu mun th cng c to Query, chng hn nh wizard, hy dng lnh Utility.Query Builder. Bn mun chn cc bng v trng cn cho Query, d nhin phi chn trong hai hp lit k Tables v Fields to Show.  cung cp iu kin cn truy vn, bn c th dng cc hp combo Field Name, Operator, Value. Nu trong iu kin cn nhng ton t And, Or bn dng hai nt And into Criteria, v Or into Criteria.

Hnh 13. To Query bng wizard thng qua Query Builder

To form v sinh m cho ng dng

Gi s trong mt CSDL mi, bn  to mt bng c tn Reader vi cc trng ReaderID TEXT(5), Name TEXT(25), Address TEXT(255) v ang nh to form nhp record cho bng ny vi m lnh bng VBasic. T VisData, bn m CSDL , quyt nh s m CSDL theo kiu no trong nhng kiu TableSet, DynaSet hay SnapShot. V bn s t i tng Data Control hay DBGrid vo trong form tng lai. Bn chn nhng n nh  bng nt cng c nh m t  Hnh 2. Sau  bn s ly lnh Utility. Data Form Designer. Hnh 14 cho thy nhng g bn phi khai bo  to lp mt form: nhp tn ca table vo hp RecordSource, nhp tn form vo hp Form Name w/o Extension, v chn cc trng m bn mun th hin trong form. Cc trng ny c chn t hp list box Available Fields  chuyn vo Include Fields. Cng vic chm dt bng nt lnh Build the Form. By gi c th ng VisData bng lnh File.Exit  tr v VBasic. Hn bn s ngc nhin vi form mi to vi nhng chi tit kh chuyn nghip. Thch th hn na khi chuyn sang mn hnh Code, bn s thy m lnh  c sn.

Hnh 14. Hép thoi cña Data Form Designer

n y bn c th ni g v phin bn mi ca VBasic? ng  nng cp phi khng?

on Th Thy 84/132 Tn Tht Hip, Q. 11, TP. HCM

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