Xoá dữ liệu trong DataGrid Giúp mình với...!!!

[nguyenkienhyn]

Vấn đề như sau:
- Mình đã hiển thị CSDL trên lưới datagrid
- Bây giờ mình muốn tạo 1 CmdXoa. Khi chọn một dòng bất kì trên datagrid và kich vào nút Xoá thì DL trên Datagrid và trên CSDL đều đc xoá
Có bạn nào bit, xin chỉ giúp mình với
Viết đoạn code hoàn chỉnh càng tốt
Thanks !

Yahoo: nguyenkienhyn

[=========> Bổ sung bài viết <=========]

Hi! Sau 1 thời gian tìm tòi Mình đã có câu trả lời cho câu hỏi của mình
Tạo 1 nút Command tên là Xoá
Code:
Private Sub cmdXoa_Click()
rs.Delete
rs.MoveNext
End Sub

[linhdonganh]

bạn cho mình biết rs là gì vậy????????

[lengoctuth2010]

linhdonganh mình có thể trả lời cho bạn là RS mà bạn kia đề cập đến là 1 biến TOÀN CỤC và nó là Recordset được khai báo rút gọn để gọi vào code. Bạn tham khảo lại phần kết nối ADO và DTG nhé ! Chúc bạn vui !

[linhdonganh]

Mình cảm ơn nhé.Giờ mới xem tin của bạn

[culiem]

Mình cũng bị vấn đề như bạn. Giúp mình với:
- Mình đã hiển thị CSDL trên lưới datagrid
- Bây giờ mình muốn tạo 1 CmdXoa. Khi chọn một dòng bất kì trên datagrid và kich vào nút Xoá thì DL trên Datagrid và trên CSDL đều đc xoá
Có bạn nào bit, xin chỉ giúp mình với
Viết đoạn code hoàn chỉnh càng tốt
Thanks !

[lengoctuth2010]

Code dạng chỉnh nhất có thể :

Private Sub cmddel_Click()
Dim h As String 'Khai bao cuc bo de lam dem cho MsgBox
Dim k As String 'Khai bao cuc bo de lam dem cho MsgBox
h = MsgBox("Ban muon XOA ban ghi nay khong ?", vbYesNo + vbCritical, "X A C N H A N X O A ™")
If h = vbYes Then ' Chon yes thi xoa ban ghi dang duoc tro
Ado1.Recordset.Delete
Ado1.Recordset.MoveNext
k = MsgBox("Ban da XOA thanh cong !", , "DELETE = OK ™")
Else
Ado1.Recordset.MoveFirst ' Chon No không xoa va quay ve ban ghi dau tien
End If
End Sub

Ado1 là tên của Adodc được kết nối tới CSDL !
Chúc vui vẻ !
P/s:
Có gì không hiểu về VB 6.0 bạn có thể pm ngoc.tu.tnic@gmail.com mình sẽ giúp !
Thân ái !