Phương pháp Edit, Update

Chia sẻ: Nguyễn Phương Hà Linh Linh | Ngày: | Loại File: PDF | Số trang:4

Thêm vào BST

Báo xấu

64
lượt xem 5
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

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 Hocbong0” Nupdated = 0 Rstsv.FindFirst csql Do while Not rstsv.Nomatch Nupdated = nupdated + 1 Rstsv.Edit

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: Phương pháp Edit, Update

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 MÔ TẢ PHẦN Tên field của Table hay TenField query. Biểu thức mà giá trị sẽ BieuThuc 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).