Tham khảo tài liệu ''giáo trình phân tích nguyên lý ứng dụng những kỹ năng để xử lý lỗi bằng lệnh on error goto p4'', công nghệ thông tin, quản trị web phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả
! O W N to k lic c u -tr a c k Cho biết vị trí ghi (được tính từ 0) Trong trường hợp khơng có ghi recordset trỏ ghi nằm EOF- lấy giá trị thuộc tính Do để sử dụng thuộc tính thường phải kèm thuộc tính kiểm tra có tồn ghi hay khơng (RecordCount > 0) trỏ ghi có cuối tệp chưa (EOF = False) Thuộc tính RecordCount Cho biết tổng số ghi trả Recordset Thuộc tính EOF Cho biết trỏ ghi có nằm EOF hay khơng? Nếu có giá trị thuộc tính True, trái lại False Thuộc tính Fields Dùng tham chiếu tới trường (Fields) tập hợp ghi mà Recordset trả Thực tế Field đối tượng có thuộc tính phương thức Với Field Recordset thơng thường người ta hay sử dụng thuộc tính Value Nếu khơng định thuộc tính cụ thể cho Field, VBA hiểu ngầm định Value Ví dụ: Hiển thị giá trị trường hoten Recordset rs Msgbox rs.Fields("hoten").Value 'hoặc Msgbox rs.Fields("hoten") Một số phương thức Recordset Phương thức Close Để đóng Recordset, giải phóng nhớ Chỉ thực hành động không làm việc với Recordset Các phương thức di chuyển ghi Recorset Phương thức MoveFirts Để chuyển trỏ ghi Trang 169 d o o c m C m w o d o w w w w w C lic k to bu Copyright Nguyễn Sơn Hải w y N ® h a n g e Vi e bu y Giáo trình Microsoft Access 2000 XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N Copyright Nguyễn Sơn Hải to c Phương thức MoveLast Để di chuyển trỏ ghi cuối Phương thức MoveNext Dịch đến ghi kề sau Phương thức MovePrevious Dịch đến ghi kề trước Ví dụ 3: Ví dụ sau duyệt hiển thị toàn Hoten bảng canbo Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("canbo") If rs.RecordCount > Then rs.MoveFirst While rs.EOF = False MsgBox rs.Fields("hoten").Value rs.MoveNext Wend End If Phương thức AddNew, Update Để thêm ghi vào Recordset Qui trình thêm ghi sau: Ra lệnh Addnew Gán giá trị cho trường ghi Ra lệnh Update Dưới ví dụ thêm hồ sơ cán vào bảng canbo Ví dụ 4: Dim db As DAO.Database Dim rs As DAO.Recordset Trang 170 d o m o m o c u -tr a c k C lic k to k C lic w w w d o w w w w bu Giáo trình Microsoft Access 2000 h a n g e Vi e y N y ® XC bu F- er O W w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N Copyright Nguyễn Sơn Hải to c Set db = CurrentDb Set rs = db.OpenRecordset("canbo") ' -'Ra lệnh thêm ghi ' rs.AddNew ' -'Gán giá trị cho trường ghi ' 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 liệu ' rs.Update Phương thức Edit, Update Phương thức Edit để sửa liệu ghi recordset Qui trình để sửa ghi sau: Định vị tới ghi cần sử recordset Ra lệnh Edit Gán giá trị cho trường cần sửa Ra lệnh Update Dưới ví dụ sửa hồ sơ cán có mã CB000565 Ví dụ 5: Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb ' 'Định vị tới ghi cần sửa ' Set rs = db.OpenRecordset("SELECT * FROM canbo WHERE canboID='CB000565'") If rs.RecordCount > Then Trang 171 d o m o m o c u -tr a c k C lic k to k C lic w w w d o w w w w bu Giáo trình Microsoft Access 2000 h a n g e Vi e y N y ® XC bu F- er O W w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N to k c rs.MoveFirst ' 'Ra lệnh sửa ghi ' rs.Edit ' 'Thực sửa trường 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 liệu vừa sửa ' rs.Update End If Phương thức Delete Để xoá ghi khỏi Recordset Khi ghi bị xoá bỏ khỏi CSDL Cần thận trọng lệnh Thông thường lệnh nút Xoá ghi mẫu nhập liệu (nhập vào biến Recordset rs) sau: Ví dụ 6: Private Sub cmDelete_Click() Dim tbao tbao = MsgBox("Đã chắn xoá chưa?", vbYesNo + vbCritical) If tbao = vbYes Then rs.Delete rs.MoveNext End If End Sub 1.4 Đối tượng QueryDef Đối tượng Querydef dùng để tham chiếu tới Query có sẵn (Buil-in) CSDL Access, lập trình tạo Query từ câu lệnh SQL Trang 172 d o m o m o c u -tr a c k C lic k C lic w w w d o w w w w y Copyright Nguyễn Sơn Hải h a n g e Vi e bu N y Giáo trình Microsoft Access 2000 to bu ® XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N to k lic c u -tr a c k Để tạo kích hoạt query VBA cách thực thi câu lệnh SQL bạn làm theo hướng dẫn sau: ' -'Khai báo biến kiểu Database biến kiểu QueryDef Dim db As DAO.Database Dim qr As DAO.QueryDef ' 'Ra lệnh tạo Query mới, có tên rỗng (chỉ nhớ) Set qr = db.CreateQueryDef() ' 'Gán chuỗi lệnh SQL vào thuộc tính SQL query ' qr.SQL = "Gõ lệnh SQL cần thi hành vào đây" ' -'Ra lệnh thi hành query ' qr.Execute ' 'giải phóng nhớ qr.Close Trong đó: - Bắt buộc phải khai báo biến kiểu QueryDef để làm việc (biến qr); - Phải có biến Database khai báo sẵn (biến db); - Lệnh Set qr = db.CreatQueryDef() để tạo query lên CSDL hiển thị danh sách thẻ Queries cửa sổ Database Nếu ="", query tồn nhớ Tuỳ thuộc vào mục đích cơng việc mà có đặt tên query hay không, đơn tạo query để xử lý cơng việ giải phóng, nên đặt =""; Trang 173 d o o c m C m w o d o w w w w w C lic k to bu Copyright Nguyễn Sơn Hải w y N ® h a n g e Vi e bu y Giáo trình Microsoft Access 2000 XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ... "CV002" ' -'Ra lệnh ghi lại liệu ' rs.Update Phương thức Edit, Update Phương thức Edit để sửa liệu ghi recordset Qui trình để sửa ghi sau: Định vị tới ghi cần sử recordset Ra lệnh Edit Gán giá... đơn tạo query để xử lý cơng việ giải phóng, nên đặt =""; Trang 173 d o o c m C m w o d o w w w w w C lic k to bu Copyright Nguyễn Sơn Hải w y N ® h a n g e Vi e bu y Giáo trình Microsoft... #22/11/1975# ' 'Ra lệnh ghi lại liệu vừa sửa ' rs.Update End If Phương thức Delete Để xố ghi khỏi Recordset Khi ghi bị xoá bỏ khỏi CSDL Cần thận trọng lệnh Thông thường lệnh nút Xoá ghi mẫu