X. ĐỐI TƯỢNG TRUY CẬP DỮ LIỆU 1) Các đôi tượng trong đối tượng DBEngine
3) Làm việc với các phương thức và thuộc tính của đối tượng bộ mẫu tin
Tạo biến đối tượng bộ mẫu tin
Khi làm việc với bộ mẫu tin, trước tiên chúng ta phải tạo ra một biến bộ mẫu tin. Chúng ta có thể sử dụng phương thức OpenRecordset để tạo ra biến đối tượng bộ mẫu tin.
Thí dụ ; Tạo biến bộ mẫu tin loại bảng dữ liệu nguồn từ bảng sinhvien và cho biết tổng số mẫu tin có trong bảng. Sub Opentable() Dim db As database Dim rstSv as Recordset Set db = Currentdb() Set rstsv = db.openrecordset(“sinhvien”) Debug.Print rstsv.recordcount End sub
Các tham số trong phương thức OpenRecordset
Cú pháp :
Set <biếnrst> = ,biến db>.Openrecordset(type, options)
Trong đó :
Biến rst : Biến đối tượng kiểu bộ mẫu tin khai báo trước đó.
Biến db : Biến đối tượng khai báo CSDL chứa bảng có bộ mẫu tin.
Type : Loại bạô mẫu tin muốn tạo, có thể là hằng :
dbopenTable : Bộ mậu tin bảng. dbopenDanyset : Bộ mậu tin động dbopenSnapshot : Bộ mậu tin tức thì
Option : Các lựa chọn để điều khiển bộ mẫu tin khi mở ra, có thể là :
DbAppendOnly : chỉ cho phép them mới các các mẫu tin vào bộ mẫu tin. Dữ liệu
hiện có sẽ không hiển thị trong bộ mẫu tin. Chọn lực này chỉ áp dụng cho bộ mẫu tin động mà thọi.
DbReadOnly : Ngăn cản các sửa đổi dữ liệu trong bộ mẫu tin.
DbDenyRead : ngăn cản các người sử dụng khác đọc dữ liệu chứa trong bộ mẫu tin trong khi nó đang còn mở.
DbDenyWrite : Ngăn cản các người sử dụng khác sửa đổi hay them mới dữ liệu chứa trong bộ mẫu tin khi nó đang mở.
4) Các phương thức di chuyển mẫu tin trong bộ mẫu tin (MoveFirst, MoveNext, MoveLast, mẫu tin (MoveFirst, MoveNext, MoveLast, MovePrevious)
Ý nghĩa : Dùng để di chuyển con trỏ mẫu tin. Cú pháp :
DoiTuongRecordset.{MoveFirst | MoveLast | MoveNext | MovePrevious} Giải thích : THÀNH PHẦN MÔ TẢ
MoveFirst Di chuyển con trỏ mẫu tin đến mẫu tin đầu tiên.
MoveLast Di chuyển con trỏ mẫu tin đến mẫu tin sau cùng.
MoveNext Di chuyển con trỏ mẫu tin đến mẫu tin kế tiếp.
MoveFirst Di chuyển con trỏ mẫu tin đến mẫu tin đầu tiên.
Thí dụ : Cho biết mã số các sinh viên đầu tiên, thứ hai, cuối cùng và kế chót trong bảng sinh viên. Sub RecordsetMovements() Dim db as database Dim rstsv as Recordset Set db = currentdb() Set rstsv = db.openRecordset(“sinhvien”) Rstsv.Movefirst Debug.print rstsv!masv Rstsv.MoveNext Debug.print rstsv!masv Rstsv.MoveLast Debug.print rstsv!masv Rstsv.MovePrevious Debug.print rstsv!masv
End sub