Phương pháp Delete

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

Thêm vào BST

Báo xấu

52
lượt xem 4
download

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

Sub DeleteSv(cmasv as string) Dim db as database Dim rstsv as Recordset Dim csql as string Set db = Currentdb() Set rstsv =

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 Delete

Phương pháp Delete  Ý nghĩa : Dùng để xóa dữ liệu.  Cú pháp : DoiTuongRecordset!tenField = bieuthuc ……… DoituongRecordSet.Delete  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ụ : Xóa một sinh viên trong bảng sinh viên khi biết Masv.
Sub DeleteSv(cmasv as string) Dim db as database Dim rstsv as Recordset Dim csql as string Set db = Currentdb() Set rstsv = db.OpenRecordset(“sinhvien”,dbOpenDynaset) Csql = “masv = ‘”&cmasv&”’” Rstsv.FindFirst csql If rstsv.Nomatch then Msgbox “Maso “&cmasv &” khong co”,vbCritical Else Rstsv.Delete End if End Sub
1) Thí dụ tổng quát Các thủ tục tương ứng : Nút Next Private Sub cmdNext_click() Dim rst as Recordset Rst.MoveNext If rst.EOF then Rst.MovePrevious End if
Me.Bookmark = rst.bookmark End sub Nút Previous Private Sub cmdPrevious_click() Dim rst as Recordset Set Rst = Me.recordsetClone Rst.MovePrevious If rst.BOF then Rst.MoveNext End if Me.Bookmark = rst.bookmark End sub Nút Thêm Private Sub cmdadd_click() Dim rst as Recordset Set rst = Me.RecordsetClone
Rst.AddNew Rst![manv] = “Nv006” Rst![honv] = “Nguyen van” Rst![tennv] = “Hung” Rst![ngaysinh] =#12/4/1986# Rst![phai] = yes Rst![diachi] = “1 nguyen du Q1” Rst![dienthoai] =”343545” Rst.Update Me.Bookmark = rst.LastModified Me![txtmanv].Setfocus End sub Nút Xoá Sub cmdDelete_Click() Dim ntraloi as Integer
Ntraloi = msgbox(“Xoa hay khong”, vbQuestion+vbYesno) If nTraloi = vbyes then Me.recordsetClone.FindFirst “Manv =’”&[txtmanv] &”’” Me.RecordsetClone.Delete Call cmdNext_click End if End Sub Nút Tìm Sub cmdFind_Click() Dim cmanv as string Dim cBookmark as String Dim rst as Recordset Set rst = me.recordsetClone Cmanv = Inputbox(“nhap manv can tim”)
cBookmark = me.Bookmark rst.FindFirst “Manv =’”& cmanv &”’” If rst.nomatch then MsgBox(“khong tim thay nhan vien da nhap”,vbCritical) Me.Bookmark = cbookmark Else Me.Bookmark = rst.Bookmark End if End Sub