vb 怎样删除datagrid中光标所在的那条记录?
一个按扭,一个datagrid.datagrid已经连接好了数据库,怎样通过按扭删除datagrid中光标所在的那条记录?下面是我的代码,请各位帮我看看应该怎样改?Pri...
一个按扭,一个datagrid.
datagrid已经连接好了数据库,怎样通过按扭删除datagrid中光标所在的那条记录?下面是我的代码,请各位帮我看看应该怎样改?
Private Sub Command2_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim Str1 As String
Dim Str2 As String
Dim Str3 As String
Dim strSQL As String
Str1 = "Provider=Microsoft.Jet.OLEDB.4.0;"
Str2 = "Data Source = " & App.Path & "\dd.mdb" & ";"
Str3 = "Jet OLEDB:Database Password="
conn.Open Str1 & Str2 & Str3
strSQL = "select * from tt"
rs.Open strSQL, conn, 3, 3
rs.Delete
rs.Close
conn.Close
MsgBox ("删除记录成功!")
Adodc1.Refresh
End sub
按照我这段代码只系删除第一条记录,但我的目的是想删除选定的那条记录,又或者是光标所在的那条记录?应该怎样写?请大家帮我看看 展开
datagrid已经连接好了数据库,怎样通过按扭删除datagrid中光标所在的那条记录?下面是我的代码,请各位帮我看看应该怎样改?
Private Sub Command2_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim Str1 As String
Dim Str2 As String
Dim Str3 As String
Dim strSQL As String
Str1 = "Provider=Microsoft.Jet.OLEDB.4.0;"
Str2 = "Data Source = " & App.Path & "\dd.mdb" & ";"
Str3 = "Jet OLEDB:Database Password="
conn.Open Str1 & Str2 & Str3
strSQL = "select * from tt"
rs.Open strSQL, conn, 3, 3
rs.Delete
rs.Close
conn.Close
MsgBox ("删除记录成功!")
Adodc1.Refresh
End sub
按照我这段代码只系删除第一条记录,但我的目的是想删除选定的那条记录,又或者是光标所在的那条记录?应该怎样写?请大家帮我看看 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询