vb6.0中 DataGrid删除当前选定行数据

Question

vb6.0中 我要在Form1 上单击Command1按钮删除Form2窗体里DataGrid1当前选定行数据并且刷新DataGrid1数据
代码该如何写哦
绑定的是ACCESS数据库
用的是代码删除 不是设置属性
急救急救
只要可以删除选定行数据 定还另加分

Answer 1

Private Sub MSHFGrid_Click()
MSHFGrid.Row = MSHFGrid.RowSel
End Sub

If MsgBox("你确定删除编号为：[" & MSHFGrid.Text & "] ?", vbQuestion + vbYesNo, "删除") = vbYes Then
Set ResDel = New ADODB.Recordset
ResDel.Open "delete from UserInfo where UserId='" & MSHFGrid.Text & "'", Conn, 1, 2
MsgBox "删除成功！", vbInformation, "成功"
If ResDel.State <> 0 Then ResDel.Close
ResDel.Open "select * from viewUserInfo", Conn, 1, 1
Set MSHFGrid.DataSource = ResDel
If ResDel.State <> 0 Then ResDel.Close
Set ResDel = Nothing
End If

还有什么不懂的 可以再问我

Answer 2

思路

把写到DataGrid1数据 先建到一个零时表中
在从零时表写到DataGrid1中，选定行数据就在再零时表中删掉那行
在写到DataGrid1数据