UC知道vb中grid删除其中以记录行
来源：百度知道 编辑：UC知道 时间：2024/06/22 03:33:22
我做个vb的程序中有grid网格，我想当我点其中一行时删除所选行
Dim cnn5 As ADODB.Connection
Dim sqlstmt As String
Dim ksdel As Boolean
Dim hang As Integer
Set cnn5 = New ADODB.Connection
cnn5.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Owner\My Documents\oilmanage.mdb;Persist Security Info=False"
If hang = 0 Then
Exit Sub
End If
If Grid1.Cell(hang, 1).Text = "" Then
Exit Sub
End If
'Set ks1 = cnn5.Execute("delete from passwdinfo where username='" & Grid1.Cell(hang, 1).Text & "'")
sqlstmt = "delete from passwdinfo where username='" & Grid1.Cell(hang, 1).Text & "' "
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Owner\My Documents\oilmanage.mdb;Persist Security Info=False"
cnn.Open
cnn.Execut
Dim cnn5 As ADODB.Connection
Dim sqlstmt As String
Dim ksdel As Boolean
Dim hang As Integer
Set cnn5 = New ADODB.Connection
cnn5.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Owner\My Documents\oilmanage.mdb;Persist Security Info=False"
If hang = 0 Then
Exit Sub
End If
If Grid1.Cell(hang, 1).Text = "" Then
Exit Sub
End If
'Set ks1 = cnn5.Execute("delete from passwdinfo where username='" & Grid1.Cell(hang, 1).Text & "'")
sqlstmt = "delete from passwdinfo where username='" & Grid1.Cell(hang, 1).Text & "' "
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Owner\My Documents\oilmanage.mdb;Persist Security Info=False"
cnn.Open
cnn.Execut
你没有打开数据表，不用这么麻烦吧，可下面的是我用过的。不明白再问吧！！！
Dim cnn As ADODB.Connection
Dim sqlstmt As String
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Owner\My Documents\oilmanage.mdb;Persist Security Info=False"
Set cnn5 = New ADODB.Connection.recordset
sqlstmt = "select * from 表名"
cnn5.Open sqlstmt, conn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = cnn5
DataGrid1.AllowDelete = True
rcnn5.Delete
cnn5.Update
DataGrid1.Refresh
MsgBox "成功删除！", vbOKOnly + vbExclamation, ""
DataGrid1.AllowDelete = False