Question

vb6.0用command控件删除datagrid中的一行数据？

我的程序：
Private Sub Command1_Click() '查询Dim cn As New ADODB.Connection '定义一个数据库对象Dim st0 As New ADODB.Recordset '定义一个stordest对象Dim sl As String cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=xiewei;Data Source=PC-20110605TMUI" sl = "select * from xwuser " st0.Open sl, cn, adOpenKeyset, adLockOptimistic Set DataGrid1.DataSource = st0End Sub
Private Sub Command2_Click() '删除
st0.Deletest0.UpdateDataGrid1.Refresh
End Sub

Answer 1

你的变量名st0是在Command1_Click()里声明的，那么在Command2_Click()里如何能够识别？
修改如下：
Private st0 As New ADODB.Recordset '定义一个stordest对象

Private Sub Command1_Click() '查询
Dim cn As New ADODB.Connection '定义一个数据库对象
Dim sl As String
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=xiewei;Data Source=PC-20110605TMUI"
sl = "select * from xwuser "
st0.Open sl, cn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = st0
End Sub
Private Sub Command2_Click() '删除
st0.Delete
DataGrid1.Refresh
End Sub

说明：删除记录并不需要
st0.Update

Answer 2

If DataGrid1.ColIndex > -1 Then
DataGrid1.Bookmark
End If

追问

你好，下面程序只能删除第一行的，并不是所选那行的，你能帮我改下吗。谢谢。字母数太多，截个频啊。

追答

注意这个DataGrid1.ColIndex
d=datagrid1.colindex
sl="select * from xwuser where xxx='" & datagrid1.TextMatrix(xx, 4) & "xxx='" & datagrid1.TextMatrix(xx, 3) & "'"

追问

谢谢你的解答啊，你是用vb6.0的吗。好像datagrid1没有colindex和TextMatrix(, )属性吧。你做过可以删除指定行的吗？谢谢！

追答

有的 我正在帮助