Phương pháp Edit, Update pps

1) Phương pháp Edit, Update  Ý nghĩa : Dùng để sửa dữ liệu.  Cú pháp : DoituongRecordset.Edit DoiTuongRecordset!tenField = bieuthuc ……… DoituongRecordSet.Update  Giải thích : THÀNH PHẦN MÔ TẢ TenField Tên field của Table hay query. BieuThuc Biểu thức mà giá trị sẽ gán vào Field. Thí dụ : Tăng học bổng them 30000 đồng cho các sinh viên có học bổng thuộc khoa Tin học. Sub TangHocbong() Dim db as database Dim rstsv as Recordset Dim csql as string Dim nupdated as integer Set db = Currentdb() Set rstsv = db.OpenRecordset(“sinhvien”,dbOpenDynaset) Csql = “makh = ‘TH’ And Hocbong>0” Nupdated = 0 Rstsv.FindFirst csql Do while Not rstsv.Nomatch Nupdated = nupdated + 1 Rstsv.Edit Rstsv![hocbong] = rstsv![hocbong]+30000 Rstsv.Update Rstsv.findNext csql Loop Debug.Print nupdated & “mau tin da sua” End Sub Đôi khi việc quét qua từng mẫu tin trong bảng để thay đổi giá trị không hiệu quả bằng việc chúng ta cho thực hiện một truy vấn cập nhập dữ liệu(Updat Query). Theo thí dụ trên nếu chúng ta đã có một truy vấntăng học bổng thêm 30000 cho các sinh viên có học bổng thuộc khoa Tin học thì chúng ta sẽ sử dụng biến đối tượng QueryDef và phương thức Execute để cho thực hiện truy vấn. Sub TangHocbong() Dim db as database Dim qd as Querydef Set db = Currentdb() Set qd = db.Querydef(“Qtanghocbong”) Qd.execute End Sub Lưu ý : phương thức execute chỉ thực hiện các truy vấn them, sửa, xóa và tạo bảng (make Table). . 1) Phương pháp Edit, Update  Ý nghĩa : Dùng để sửa dữ liệu.  Cú pháp : DoituongRecordset.Edit DoiTuongRecordset!tenField = bieuthuc ……… DoituongRecordSet .Update  Giải thích. Do while Not rstsv.Nomatch Nupdated = nupdated + 1 Rstsv.Edit Rstsv![hocbong] = rstsv![hocbong]+30000 Rstsv .Update Rstsv.findNext csql Loop Debug.Print nupdated & “mau tin da sua”. Dim csql as string Dim nupdated as integer Set db = Currentdb() Set rstsv = db.OpenRecordset(“sinhvien”,dbOpenDynaset) Csql = “makh = ‘TH’ And Hocbong>0” Nupdated = 0 Rstsv.FindFirst