- Hoặc bạn có thể kết nối qua ODBC bằng cách tạo một DSN
512), tương tự mẫu tin 2 (ví dụ 513) Khi xóa mẫu tin:2 Bookmart của mẫu tin 3 vẫn là 514.
Bookmart của mẫu tin 3 vẫn là 514.
Vị trí AbsolutePosition của mẫu tin I là l, của mẫu tin 2 là 2, của mẫu tin 3 là 3, của mẫu tin 4 là 4. Khi xóa mẫu tin 2 (lúc này recordset chỉ gồm 3 mẫu tin) ta có AbsolutePosition của mẫu tin I là I, AbsolutePosiion của mẫu tin 3 là 2, AbsolutePosition của mẫu tỉn 4 là 3.
BỌE Mẫu tin I —t mẫu tin 3 mẫu tin 4 EOF
IIL3. Tạo một form ứng dụng
Bạn tạo mới một form, trong cửa số properties đặt thuộc tính name của fom là “frmTifles l°, caption là “Ten sach?, StartUpPosition là 'Center Sereen? (để form này xuất hiện giữa màn hình khi chạy chương trình). Dùng 8 textbox: txtTitle, txtYearPublished, txtISBN, txtPub[D, †xtDescription, txfNotes, txtSubjects, txtComments. Tương ứng bạn cho 8 label đặt trước 8 textbox với tên: IblTitle, lbiYearPublished, IbllSBN, IblPublD, IblDescription, lbiNotes, IblSubijects, IblComments (lLw ý: bạn không set thuộc tính DataSource và DataField cho từng texibox). Để giả lập các nút di chuyển đến mẫu tin đầu, mẫu tin trước, mẫu tin kế và mẫu tin cuối bạn dùng bốn nút: emdFirst (có caption “|<”), cmdNext (có caption “<), cmdPrevious (có caption '<°), cmdLast (có caption “>|”). Xem hình VII.IS
& Ten sach
Hình VII.15
Chuyển sang viết code (View Code), khai báo General như
Sau:
Dim cnn As New ADODB.Connection Dim rsTitles As New ADODB.Recordset Đoạn code sự kiện Sub Form_Load() dưới đây: Private Sub Form_Load()
Dim DatabasePath As String §
DatabasePath = App.Path & "\BIBLIO.mdb”
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DatabasePath
cnn.Open
rsTitles.Open "TITLES", ,cnn, adOpenStatic, adLockOptimistic,
adCmdTable
'hoặc bạn dùng cách khác
'nsTilesOpen "Select * from Tiles", cnn, adOpenStatic,
adLockOptimistic, adCmdText
'rsTilesOpen "Selet * from Tiles", cmn, adOpenStatic, adLockOptimistic