Ch ng M i Sáu - L p trình v i ADO (ph n I)ươ ườ ậ ớ ầ
Control Data ADO
Visual Basic 6 cho ta s l a ch n v k thu t khi l p trình v i database, ho c là dùng ự ự ọ ề ỹ ậ ậ ớ ặ DAO
nh trong hai bài tr c, ho c là dùng ư ướ ặ ADO (ActiveX Data Objects).
S khác bi t chính gi a ADO và DAO là ADO cho phép ta làm vi c v i m i lo i ngu n dự ệ ữ ệ ớ ọ ạ ồ ữ
ki n (data sources), không nh t thi t ph i là Access database hay ODBC. Ngu n d ki n cóệ ấ ế ả ồ ữ ệ
th là danh sách các đ a ch Email, hay m t file text string, trong đó m i hàng là m t recordể ị ỉ ộ ỗ ộ
g m nh ng fields ngăn cách b i các d u ph y (ồ ữ ở ấ ẩ comma separated values).
N u trong DAO ta dùng th ng tên c a MSAccess Database thì trong ADO cho ta ế ẳ ủ n i v iố ớ
(connect) m t database qua m t Connection b ng cách ch đ nh m t ộ ộ ằ ỉ ị ộ Connection String.
Trong Connection String có Database Provider (thí d nh Jet, ISAM, Oracle,ụ ư
SQLServer..v.v.), tên Database, UserName/Password đ logon m t database .v.v.. Sau đó taể ộ
có th ểl y v (extract)ấ ề nh ng recordsets, và c p nh t hóa các records b ng cách dùng nh ngữ ậ ậ ằ ữ
l nh SQLệ trên các tables hay dùng nh ng ữstored procedures bên trong database.
Bình th ng, khi ta m i kh i đ ng m t project VB6 m i, Control ườ ớ ở ộ ộ ớ Data ADO không có s nẵ
trong IDE. Mu n có nó, b n hãy dùng Menu Command ố ạ Project | Components..., r i ch nồ ọ
Microsoft ADO Data Control 6.0 (OLEDB) t giao di n Components nh d i đây: ừ ệ ư ướ
B n hãy b t đ u m t d án VB6 m i, cho nó tên ạ ắ ầ ộ ự ớ ADODataControl b ng cách click tênằ
project trong Project Explorer bên ph i r i edit property Name trong Properties Window. S aả ồ ử
tên c a form chính thành ủfrmADO, và đánh câu ADO DataControl Demo vào Caption c aủ
nó.
DoubleClick lên Icon c a Control Data ADO trong Toolbox. M t Control Data ADO tênủ ộ
Adodc1 s hi n ra trên Form. Mu n cho nó n m bên d i Form, gi ng nh m t StatusBar,ẽ ệ ố ằ ướ ố ư ộ
hãy set property Align c a nó trong Properties Window thành ủ2 - vbAlignBottom.
Click bên ph i hàng ảproperty (Custom), k đó click lên nút browse có ba ch m đ giaoế ấ ể
tho i ạProperty Pages hi n ra. Trong giao tho i n y, trên ệ ạ ầ Tab General ch n Radio (Option)ọ
Button Use Connection String r i click nút ồBuild....
Trong giao tho i ạData Link Properties, Tab Provider, ch n ọMicrosoft Jet 3.51 OLE DB
Provider, r i click nút ồNext >> hay Tab Connection.
ch Ở ỗ Select or enter a database name ta ch n ọE:\Program Files\Microsoft Visual
Studio\VB98\BIBLIO.MDB, trong computer c a b n có th file y n m trên disk ủ ạ ể ấ ằ C hay D.
Sau đó, b n có th click nút ạ ể Test Connection phía d i đ th xem connection có đ cướ ể ử ượ
thi t l p t t không. ế ậ ố
L p connection xong r i, ta ch đ nh mu n l y gì v làm Recordset b ng cách click ậ ồ ỉ ị ố ấ ề ằ property
Recordsource c a Adodc1. Trong giao di n Property Pages c a nó ch n ủ ệ ủ ọ 2-adCmdTable làm
Command Type, k đó m Combo box cho ế ở Table or Stored Procedure Name đ ch nể ọ
table Titles.
Tùy theo cách ta dùng Recordset trong ADO, nó có ba lo i và đ c g i là ạ ượ ọ Cursor Type.
Cursor ch ng qua là m t tên khác c a Recordset: ẳ ộ ủ
•Static Cursor: Static Cursor cho b n m t static copy (b n sao c ng ng c) c a cácạ ộ ả ứ ắ ủ
records. Trong lúc b n dùng Static Cursor, n u có ai khác s a đ i hay thêm, b t gì vàoạ ế ử ổ ớ
recordset b n s không th y. ạ ẽ ấ
•Keyset Cursor: Keysey Cursor h n Static Cursor ch trong lúc b n dùng nó, n uơ ở ỗ ạ ế
có ai s a đ i record nào b n s bi t. N u ai delete record nào, b n s không th y nó n a.ử ổ ạ ẽ ế ế ạ ẽ ấ ữ
Tuy nhiên b n s không bi t n u có ai thêm m t record nào vào recordset. ạ ẽ ế ế ộ
•Dynamic Cursor: Nh ch ư ữ s ng đ ng (dynamic)ố ộ hàm ý, trong lúc b n đang dùngạ
m t Dynamic Cursor, n u có ai khác s a đ i hay thêm, b t gì vào recordset b n s th y h t. ộ ế ử ổ ớ ạ ẽ ấ ế
B n hãy ch n tr s ạ ọ ị ố 2-adOpenDynamic cho property Cursor Type c a Adodc1: ủ
Bây gi b n hãy đ t lên Form 4 labels v i captions: ờ ạ ặ ớ Title, Year Published, ISBN và
Publisher ID. K đó cho thêm 4 textboxes t ng ng và đ t tên chúng là ế ươ ứ ặ txtTitle,
txtYearPublished, txtISBN và txtPublisherID.
Đ th c hi n Data Binding, b n hãy ch n textbox ể ự ệ ạ ọ txtYearPublished (năm xu t b n), r i setấ ả ồ
property Datasource c a nó trong Properties Window thành ủAdodc1. Khi click lên property
DataField c a txtYearPublished và m ComboBox ra b n s th y li t kê tên các Fields trongủ ở ạ ẽ ấ ệ
table Titles. Đó là vì Adodc1 đ c coi nh trung gian l y table Titles t database. đây ta sượ ư ấ ừ Ở ẽ
ch n c t Year Published. ọ ộ
L p l i công tác n y cho 3 textboxes kia, và ch n các c t Title (Tiêu đ ), ISBN (s lý l chậ ạ ầ ọ ộ ề ố ị
trong th vi n qu c t ), và PubID (s lý l ch nhà xu t b n) làm DataField cho chúng. ư ệ ố ế ố ị ấ ả
Đ n đây, m c d u ch a vi t m t hàng code nào, b n có th ch y ch ng trình và nó sế ặ ầ ư ế ộ ạ ể ạ ươ ẽ
hi n th nh d i đây: ể ị ư ườ
B n có th t i v ch ng trình dùng Control Data ADO n y t đây ạ ể ả ề ươ ầ ừ ADODatacontrol.zip.
Data Form Wizard
Đ giúp l p trình viên thi t k các data forms nhanh h n, VB6 cho ta ể ậ ế ế ơ Data Form Wizard để
generate (phát sinh) ra m t form có h tr Edit, Add và Delete records.ộ ỗ ợ
Bây gi b n hãy kh i đ ng m t standard project VB6 m i, tên ờ ạ ở ộ ộ ớ ADOClass và copy MS
Access file BIBLIO.MDB, t c là database, vào trong cùng folder c a d án m i n y. ứ ủ ự ớ ầ
Mu n dùng Data Form Wizard, tr c h t ta ph i thêm nó vào môi tr ng phát tri n (IDE)ố ướ ế ả ườ ể
c a VB6. B n hãy dùng IDE Menu Command ủ ạ Add-Ins | Add-In Manager.... Ch n ọVB6
Data Form Wizard trong giao tho i, r i click Checkbox ạ ồ Loaded/Unloaded đ ch Loadedể ữ
hi n bên ph i hàng "VB6 Data Form Wizard" nh trong hình d i đây: ệ ả ư ướ