Giáo trình Microsoft Access 2000(full)_9

Tham khảo tài liệu giáo trình microsoft access 2000(full)_9, công nghệ thông tin, tin học văn phòng phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả
Nội dung trích xuất từ tài liệu:
Giáo trình Microsoft Access 2000(full)_9 Copyright® Nguyễn Sơn HảiGiáo trình Microsoft Access 2000 Cho biết vị trí bản ghi hiện tại (được tính từ 0). Trong trường hợp không có bảnghi nào trên recordset hoặc con trỏ bản ghi đang nằm ở EOF- sẽ không thể lấy đượcgiá trị thuộc tính này. Do vậy để sử dụng thuộc tính này thường phải đi kèm thuộctính kiểm tra có tồn tại bản ghi nào hay không (RecordCount > 0) và con trỏ bảnghi có ở cuối tệp chưa (EOF = False).Thuộc tính RecordCount Cho biết tổng số bản ghi trả về trên RecordsetThuộc tính EOF Cho biết con trỏ bản ghi hiện tại có nằm ở EOF hay không? Nếu có giá trị thuộctính này là True, trái lại là False.Thuộc tính Fields Dùng tham chiếu tới các trường (Fields) trên tập hợp các bản ghi mà Recordsettrả về. Thực tế Field cũng là một đối tượng và cũng có bộ thuộc tính và các phươngthức của nó. Với Field của Recordset thông thường người ta hay sử dụng thuộc tínhValue. Nếu không chỉ định thuộc tính cụ thể nào cho Field, VBA vẫn hiểu ngầmđịnh đó là Value. Ví dụ: Hiển thị giá trị trường hoten trong Recordset rs Msgbox rs.Fields(hoten).Value hoặc Msgbox rs.Fields(hoten)Một số phương thức của RecordsetPhương thức Close Để đóng Recordset, giải phóng bộ nhớ. Chỉ thực hiện hành động này khi khônglàm việc với Recordset nào đó.Các phương thức di chuyển bản ghi của RecorsetPhương thức MoveFirts Để chuyển con trỏ về bản ghi đầu tiên Trang 169 Copyright® Nguyễn Sơn HảiGiáo trình Microsoft Access 2000Phương thức MoveLast Để di chuyển con trỏ về bản ghi cuối cùngPhương thức MoveNext Dịch đến bản ghi kề sauPhương thức MovePrevious Dịch đến bản ghi kề trước Ví dụ 3: Ví dụ sau duyệt và hiển thị toàn bộ Hoten của bảng canbo Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset(canbo) If rs.RecordCount > 0 Then rs.MoveFirst While rs.EOF = False MsgBox rs.Fields(hoten).Value rs.MoveNext Wend End IfPhương thức AddNew, Update Để thêm mới một bản ghi vào Recordset. Qui trình thêm một bản ghi mới nhưsau: 1. Ra lệnh Addnew 2. Gán giá trị cho các trường của bản ghi mới 3. Ra lệnh Update Dưới đây là ví dụ thêm mới một hồ sơ cán bộ mới vào bảng canbo. Ví dụ 4: Dim db As DAO.Database Dim rs As DAO.Recordset Trang 170 Copyright® Nguyễn Sơn HảiGiáo trình Microsoft Access 2000 Set db = CurrentDb Set rs = db.OpenRecordset(canbo) ---------------------- Ra lệnh thêm mới bản ghi rs.AddNew -------- Gán giá trị cho các trường của bản ghi mới rs.Fields(canboID) = CB00565 rs.Fields(hoten) = Nguyễn Sơn Hải rs.Fields(ngaysinh) = #2/11/1975# rs.Fields(gioitinh) = True rs.Fields(chucvuID) = CV002 -------- Ra lệnh ghi lại dữ liệu rs.UpdatePhương thức Edit, Update Phương thức Edit để sửa dữ liệu một bản ghi nào đó trên recordset. Qui trình đểsửa một bản ghi như sau: 1. Định vị tới bản ghi cần sử trên recordset 2. Ra lệnh Edit 3. Gán giá trị mới cho các trường cần sửa 4. Ra lệnh Update Dưới đây là ví dụ về sửa hồ sơ cán bộ có mã CB000565 Ví dụ 5: Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb ------------------------------------- Định vị tới bản ghi cần sửa Set rs = db.OpenRecordset(SELECT * FROM canbo WHEREcanboID=CB000565) If rs.RecordCount > 0 Then Trang 171 Copyright® Nguyễn Sơn HảiGiáo trình Microsoft Access 2000 rs.MoveFirst --------------------------------- Ra lệnh sửa bản ghi rs.Edit --------------------------------- Thực hiện sửa các trường dữ liệu cần thiết rs.Fields(hoten) = Nguyễn Văn Hải rs.Fields(ngaysinh) = #22/11/1975# ----------------------- Ra lệnh ghi lại dữ liệu vừa sửa rs.Update End IfPhương thức Delete Để xoá bản ghi hiện tại ra khỏi Recordset. Khi đó bản ghi hiện tại sẽ bị xoá bỏkhỏi CSDL. Cần thận trọng mỗi khi ra lệnh này. Thông thường các lệnh một nútXoá bản ghi của một mẫu nhập liệu (nhập vào biến Recordset rs) như sau: Ví dụ 6: Private Sub cmDelete_Click() Dim tbao tbao = MsgBox(Đã chắc chắn xoá chưa?, vbYesNo + vbCritical) If tbao = vbYes Then rs.Delete rs.MoveNext End If End Sub1.4 Đối tượng QueryDef Đối tượng Querydef dùng để tham chiếu tới các Query có sẵn (Buil-in) trênCSD ...