Nếu không dùng các Data Controls của ADO, bạn vẫn có thể giao tiếp với CSDL bên dưới thông qua các đối tượng có sẵn trong thư viện ADO.
Với yêu cầu tương tự như trên: xem, thêm, xóa và sửa thông tin đề mục sách trong database BIBLIO, bạn sẽ thiết kế một form thực hiện các chức năng này, chọn nguồn dữ liệu để thao tác là table Titles (Để mục sách). Đầu tiên bạn phải tạo một kết nối đến CSDL, sau đó chọn ra nguồn dữ liệu cần thao tác, ADO cung cắp đối tượng 'Connection' để kết nối CSDL, đối tượng *Recordset` để chứa tập các mẫu tin mà người dùng cần khai thác đồng thời cung cấp một số phương pháp cho người dùng truy cập và cập nhật dữ liệu, ngoài ra còn có đối tượng 147
ˆCommand` để thực thi một câu lệnh SQL hay gọi một thủ tục
trong database.
Khai báo thư viện ADO để sử dụng các đối tượng trên: vào menu Projeet -> References -> check vào ô *Microsoft Active Data Objects 2.7 Library` (có nhiều version, chọn version mới nhất). Nếu thấy thư viện này đã được check trước đó (với version cũ hơn) bạn có thể uncheck rồi check version mới nhât.
[Mcrosoft activex Data Obiects 2.5 [Microsoft Activex Data Ob) 6 [Microsoft Activex Data Ob) 6
Hình VII.14 %
H1. Đối tượng Connection %
III.1.1. Lệnh khai báo và khởi tạo đối tượng Connection Dim tên-connection as ADODB.Connection
Set tên-connection = new ADODB.Connection 148
hoặc có thể khai báo chung một dòng:
Dim tên-connection as new ADODB.Connection Ví dụ: Dim cmn as new ADODB.Connection
IIL12.Chỉ ra chuỗi kết nối. CSDL (thuộc tính
ConnectionString)
'Tên-biến.ConnectionString. =
“Provider=Microsoft.Jet.OLEDB.4.0; Data Source = E:Program Eiles\Microsoft Visual Studio\VB98BIBLUIO.MDB”
Nếu không muốn dùng đường dẫn trực tiếp trong
ConnectionString, bạn dùng đường dẫn tương đối qua đổi tượng App do VB cung cấp để chỉ ra vị trí lưu trữ database. Giả sử chương trình ứng dụng đặt ở thư mục EAMyVBProg (tạo project ở thư mục EAMyVBProp) và database BIBLIO.méb cũng nằm trong thư mục này. Để lấy đường dẫn đến thư mục hiện hành, bạn dùng thuộc tính App.Path (cho kết quả là “EAMyVBProg”)
Chỉ ra đường dẫn tương đối đến database như sau:
Dim strTemp as string
strTemp = App.Path_'đường dẫn đến thư mục hiện hành
srTemp = strTemp 8 "\BIBLIO.mdb” 'đường dẫn database
cnn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=” &. strTernp. Ghi chú
m Khi CSDL là SQL Server thì ConnectionString có dạng sau: cmn.ConnectionString = "provider=MSDASQL; driver={SQL Server}; server=tên-server; sa; pwq=; database=pubs”