删除显示在MSHFlexGrid控件中的access数据库中一行记录!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
本帖最后由 matao1958 于 2013-11-15 09:47:27 编辑 想双击MSHFlexGrid1控件中的一行记录后删除与其连接的数据库（table）中数据表（主界面）中的此列；a为选定的行，b为对应的“检测井号”的值，他老是提示说是cnn.open~~那一行数据类型不正确，或不在可接受范围之内，或与其他参数冲突！！！（我在此程序中还用了ADO控件，是不是与ADO对象冲突导致的？）
求大神帮小弟解决下~~
Private Sub MSHFlexGrid1_DblClick()
Dim a As Integer
Dim b As Variant
Dim c As Integer
c = MsgBox("您确定要删除此条记录？", 32 + vbOKCancel, "重要提示")
If c = 1 Then
a = MSHFlexGrid1.RowSel
b = MSHFlexGrid1.TextMatrix(a, 0)
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\table.mdb;Persist Security Info = False"
rs.Open "select*from 主界面 where 检测井号='" & b & "'", con, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
rs.Delete
Else
MsgBox "系统没有要删除的数据！", vbOKOnly, "提示"
End If
MsgBox "删除记录成功", , "删除提示"
rs.Close
con.Close
End If
end sub 删除数据 ADO MSHFlexGrid
[解决办法]
你把这一句赋值给一个string变量, 然后在数据库连接语句中使用string变量
[解决办法]
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\table.mdb;Persist Security Info = False"
rs.Open "select*from 主界面 where 检测井号='" & b & "'", con, adOpenKeyset, adLockOptimistic
第一句中连接对象是cnn
第二句中rs对应是con,这里的con应该改为cnn
