Mục đích : + Giúp nắm bắt cách tổng quát thứ tự bước lập trình với Cơ Sở Dữ Liệu (CSDL) cách sử dụng ADODB +Đối tượng ADODB bao gồm : Connection, Command RecordSet 1, Đối tượng Connection : 1.1, Kết nối với CSDL : - Các loại CSDL kết nối : Access, SQL Server, Oracle, Excel… -Việc kết nối thông tin từ CSDL cho đối tượng Connection thực thông qua thuộc tính ConnectionString ConnectionString gồm thông tin Provider Nguồn liệu, thông tin khác có thêm UserName PassWord để truy cập CSDL có bảo mật - Sau đó, sử dụng hành động Open để mở kết nối Việc kiểm tra trạng thái kết nối thông qua thuộc tính State 1, Đối tượng Connection : 1.1, Kết nối với CSDL : -Thủ tục kết nối sở liệu : Dim CN As New ADODB.Connection,dc As String Sub KetNoi() dc = App.Path & " \tenCSDL.mdb" CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dc CN.CursorLocation = adUseClient CN.Open End Sub - Thuộc tính CursorLocation giúp định cách Data Project cung cấp chức thao tác với CSDL gồm hai giá trị adUseServer adUseClient 1, Đối tượng Connection : 1.2, Thực Hiện Truy Vấn SQL : - Sau kết nối với CSDL, việc truy xuất liệu thường thông qua câu truy vấn SQL - Hành động Execute đối tượng Connection dùng để thực câu truy vấn SQL sql = “Update KetQua Set Diem = Diem + Where MaMon=’TH01’” CN.Execute sql 1.3, Quản Lý Lỗi : - Connection cung cấp thuộc tính Errors chứa tập hợp lỗi để giúp người lập trình kiểm soát lỗi phát sinh - Tập hợp Errors gồm đối tượng Error với thuộc tính cung cấp thông tin lỗi xáy Description, Source, SQL State,… 2, Đối tượng RecordSet : 2.1, Tạo đối tượng RecordSet : - RecordSet cho phép làm việc dòng liệu thay tập hợp nhiều mẩu tin Do đó, ta coi RecordSet Table hay Query CSDL.Qua việc thao tác liệu dễ dàng - Có thể tạo RecordSet nhiều cách khác : Chỉ tên bảng hay câu truy vấn SQL - Việc mở RecordSet thực qua hành động Open Tùy vào ngữ cảnh lập trình, RecordSet cung cấp thuộc tính CursorType LockType để người dùng truy cập liệu Hai thuộc tính cung cấp trực tiếp qua hành động Open 2, Đối tượng RecordSet : 2.2, Hiển thị liệu : - RecordSet thông qua hai thuộc tính DataSource DataField cho phép hiển thị liệu lên điều khiển(TextBox, Label, CheckBox…) - Ví Dụ : Dim rsSinhVien As ADODB.Recordset Set rsSinhVien = New ADODB.Recordset rsSinhVien.Open "SINHVIEN", CN, adOpenStatic, _ adLockOptimistic,adCmdTable Set txtHoTen.DataSource = rsSinhVien txtHoTen.DataField = "HoTen" 2.3, Làm việc mẩu tin : - Mẩu tin làm việc gọi mẩu tin hành - Để chuyển sang làm việc mẩu tin khác RecordSet, người dùng sử dụng hành động MoveFirst, MoveLast, Move, MovePrevious, MoveNext, Bookmark 2, Đối tượng RecordSet : 2.4, Cập nhật liệu : Ngoài việc nguồn hiển thị liệu, RecordSet cho phép cập nhật liệu gián tiếp vào CSDL hành động AddNew, Delete, Update CancelUpdate 2.5, Lọc, tìm kiếm xếp mẩu tin : 2.5.1, Để lọc mẩu tin ta sử dụng thuộc tính Filter để lọc VD : rsSinhVien.Filter = “MaKhoa = ‘TH01’ And DiemTB >= 5” 2.5.2, Để tìm kiếm, RecordSet cung cấp hành động Find Hành động tìm điều kiện đơn (không có AND,OR …) VD : rsSinhVien.Find “MaKhoa = ‘TH01’”, 0, adSearchForward, _ adBookmarkFirst 2.5.3, Để xếp sử dụng thuộc tính Sort RecordSet VD : rsSinhVien.Sort = “MaKhoa, DiemTB Desc, MaSV” 2, Đối tượng RecordSet : 2.6, Thông tin Field liệu : Thuộc tính Fields tập hợp Field Thông qua Field ta biết đầy đủ thông tin Name,Type,DefineSize,Value, Ví Dụ : Dim f as Field For Each f in rsSinhVien.Fields MsgBox “Ten field: “ & f.Name & “ Kieu: “ & f.Type & “ Gia tri: “ & _ f.Value Next 2.7, Thông tin liệu chứa RecordSet : - RecordCount : tổng số mẩu tin - AbsolutePosition, BOF, EOF : vị trí mẩu tin hành - EditMode : tình trạng mẩu tin (rsSinhVien.EditMode = adEditAdd,…) - State : trạng thái kết nối với CSDL VD : rsSinhVien.State = adStateOpen 3, Đối tượng Command : 3.1, Command cho phép thi hành câu truy vấn SQL : 3.1.1, Các câu SQL tĩnh : Dim rsSinhVien As ADODB.Recordset, Cmd As ADODB.Command Set Cmd = New ADODB.Command Set Cmd.ActiveConnection = CN Cmd.CommandText = "Select * From SinhVien Where DiemTB>=5" Cmd.CommandType = adCmdText set rsSinhVien=cmd.Execute 3.1.2, Các câu SQL có tham số : Dim rsSinhVien As ADODB.Recordset, Cmd As ADODB.Command Set Cmd = New ADODB.Command Set Cmd.ActiveConnection = CN Cmd.CommandText = "Select * From SinhVien Where DiemTB>=? And MaKhoa=?" Cmd.CommandType = adCmdText Set rsSinhVien = Cmd.Execute(, Array(5, "TH01")) 3, Đối tượng Command : 3.2, Command cho phép thi hành Stored Procedure (Query) : - Đối tượng Command cho phép người dùng gọi thực Query CSDL từ chương trình VB Ví dụ : Dim rsSinhVien As ADODB.Recordset, Cmd As ADODB.Command Set Cmd = New ADODB.Command Set Cmd.ActiveConnection = CN Cmd.CommandText = "Q_DS_SV_TotNghiep" Cmd.CommandType = adCmdStoredProc Set rsSinhVien=cmd.Execute - Với Query (Store Procedure) có tham số, dùng tập hợp Parameters hay hành động CreateParameter để truyền tham số cho Query trước thực nhận giá trị trả ... vào ngữ cảnh lập trình, RecordSet cung cấp thuộc tính CursorType LockType để người dùng truy cập liệu Hai thuộc tính cung cấp trực tiếp qua hành động Open 2, Đối tượng RecordSet : 2. 2, Hiển thị... giúp người lập trình kiểm soát lỗi phát sinh - Tập hợp Errors gồm đối tượng Error với thuộc tính cung cấp thông tin lỗi xáy Description, Source, SQL State,… 2, Đối tượng RecordSet : 2. 1, Tạo đối... Cmd.CommandType = adCmdText set rsSinhVien=cmd.Execute 3.1 .2, Các câu SQL có tham số : Dim rsSinhVien As ADODB. Recordset, Cmd As ADODB. Command Set Cmd = New ADODB. Command Set Cmd.ActiveConnection = CN Cmd.CommandText