Chương Mười lăm - Lập trình với ADO

Trong bài nầy ta sẽ học những cách lập trình căn bản với MS Access database qua kỹ thuật DAO mà không cần dùng đến Control Data như trong bài...
Nội dung trích xuất từ tài liệu:
Chương Mười lăm - Lập trình với ADO Chương Mười Lăm - Lập trình với kỹ thuật DAOReference DAOTrong bài nầy ta sẽ học những cách lập trình căn bản với MS Access database quakỹ thuật DAO mà không cần dùng đến Control Data như trong bài trước. Ta sẽcần đến vài Objects trong thư viện DAO, do đó nếu bạn mở một dự án VB6 mới thìhãy dùng Menu Command Project | References... để chọn Microsoft DAO 3.51Object Library bằng cách click cái checkbox bên trái như trong hình dưới đây. (Mộtcách để nhớ tên của Object nầy là nhớ câu thằng cha cua ĐÀO 35 con dê).Sau đó trong code của Form chính ta sẽ declare variable myDatabase cho mộtinstance của DAO database và variable myRS cho một DAO recordset. Ở đây ta nóirõ Database và Recordset là thuộc loại DAO để phân biệt với Database và Recordsetthuộc loại ADO (ActiveX Data Object) sau nầy. Để ý là Intellisense giúp ta tronglúc viết code:Bây giờ bạn hãy đặt lên Form chính, tên frmDAO, 4 labels với captions: Title, YearPublished, ISBN và Publisher ID. Kế đó cho thêm 4 textboxes tương ứng và đặt tênchúng là txtTitle, txtYearPublished, txtISBN và txtPublisherID.Điều ta muốn làm là khi Form mới được loaded, nó sẽ lấy về từ database mộtRecordset chứa tất cả records trong table Titles theo thứ tự về mẫu tự (alphabeticalorder) của field Title và hiển thị record đầu tiên.Dùng keyword SETChuyện trước hết là mở một Database Object dựa vào tên đầy đủ (full path name)của Access database: Open main database Set myDB = OpenDatabase(AppFolder & BIBLIO.MDB)Để ý chữ Set trong câu code trên. Đó là vì myDB là một Pointer đến một Object.Mặc dầu từ rày về sau ta sẽ dùng myDB như một Database theo cách giống như bấtcứ variable thuộc data type nào khác, nhưng khi chỉ định lần đầu là nó từ đâu đến thìta dùng chữ Set, để nói rằng thật ra myDB không phải là Object Database, nhưng làPointer đến Object Database. Điểm nầy càng nói đến càng khó hiểu.Đại khái là VB6 runtime dynamically allocates (dành ra cho khi cần) một phần trongbộ nhớ (memory) để chứa Object Database khi ta nhận được nó từ execution củaMethod OpenDatabase. Dầu vị trí chỗ chứa Object Database trong bộ nhớ khôngnhất định, nhưng vì ta nắm cái cán chỉ đến vị trí ấy nên ta vẫn có thể làm việc vớinó một cách bình thường. Cái cán ấy là value (trị số) của variable myDB. Vì valuenầy không phải là Object, nhưng nó chứa memory address chỉ đến (point to hayrefer to) Object Database, nên ta gọi nó là Pointer.Lập trình dùng Pointer nói chung rất linh động là hiệu năng trong các ngôn ngữ nhưC, Pascal, C++ ,v.v.. Tuy nhiên, lập trình viên phải nhớ trả lại Operating Systemphần memory mình dùng khi không còn cần nó nữa để Operating System lại allocatecho Object khác. Nếu công việc quản lý dùng lại memory không ổn thỏa thì cónhững mảnh memory nằm lang bang mà Operating Sytem không biết. Lần lầnOperating System sẽ không còn memory dư nữa. Ta gọi hiện tượng ấy là memoryleakage (rỉ). Các ngôn ngữ sau nầy như Java, C# đều không dùng Pointer nữa.Visual Basic không muốn lập trình viên dùng Pointer. Chỉ trong vài trường hợp đặcbiệt VB6 mới lộ ra cho ta thấy thật ra ở trong hậu trường VB6 Runtime dùngPointer, như trong trường hợp nầy.Tương tự như vậy, vì Recordset là một Pointer đến một Object, ta cũng dùng Set khichỉ định một DAO Recordset lấy về từ Method OpenRecordset của databasemyDB. Open recordset Set myRS = myDB.OpenRecordset(Select * from Titles ORDER BY Title)Cái parameter loại String ta dùng cho method OpenRecordset là một Lệnh(Statement) SQL. Nó chỉ định cho database lấy tất cả mọi fields (columns) (Select*) của mỗi record từ Table Titles (from Titles) làm một Recordset và sort các recordstrong Recordset ấy theo alphabetical order của field Title (ORDER BY Title).Nhớ là Recordset nầy cũng giống như property Recordset của một Control Data màta dùng trong bài trước. Bây giờ có Recordset rồi, ta có thể hiển thị chi tiết củarecord đầu tiên nếu Recordset ấy có ít nhất một record. Ta kiểm tra điều ấy dựa vàoproperty RecordCount của Recordset như trong code dưới đây: Private Sub Form_Load() Fetch Folder where this program EXE resides AppFolder = App.Path make sure it ends with a back slash If Right(AppFolder, 1) \ Then AppFolder = AppFolder & \ Open main database Set myDB = OpenDatabase(AppFolder & BIBLIO.MDB) Open recordset Set myRS = myDB.OpenRecordset(Select * from Titles ORDER BY Title) if Recordset is not empty then display the first record If myRS.RecordCount > 0 Then myRS.MoveFirst move to first record Displayrecord display details of current record End If End SubSau khi dùng method MoveFirst của Recordset để position current record ở Recordđầu tiên, ta hiển thị trị số các fields của record bằng cách assign chúng vào cáctextboxes của Form như sau: Private Sub Displayrecord() Assign record fields to the appropriate textboxes With myRS Assign field Title to textbox txtTitle txtTitle.Text = .Fields(Title) txtYearPublished.Text = .Fields([Year Published]) txtISBN.Text = .Fields(ISBN) txtPublisherID.Text = .Fields(PubID) End With End SubĐể ý vì field Year Publshed gồm có hai chữ nên ta phải đặt tên của field ấy giữahai dấu ngoặc vuông ([]). Để tránh bị phiền phức như trong trường hợp nầy, khibạn đặt tên database ...