conn.execute "delete from tablename where id='"& mshflexgrid.textmatrix(mshflexgrid.row,0) &"'" mshflexgrid.moveitem mshflexgrid.row 这个人真是一个高手
提示"未找到方法EXECUTE"Private Sub Command3_Click() Dim cn As New ADODB.Connection, rs As New ADODB.Recordset cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= \订单查询操作界面\连铸调度系统.mdb;Persist Security Info=False" '正确的连接字符串 cn.CursorLocation = adUseClient cn.Open rs.Execute "delete from 订单主表 where id='" & MSHFlexGrid1.TextMatrix (MSHFlexGrid1.Row, 0) & "'" MSHFlexGrid1.moveitem MSHFlexGrid1.Row End Sub这是我的代码, 是哪里不对吗?
conn.execute "delete from tablename where id='"& mshflexgrid.textmatrix(mshflexgrid.row,0) &"'"
mshflexgrid.moveitem mshflexgrid.row
例如:me.MSHFlexGrid1.TextMatrix(me.MSHFlexGrid1.RowSel,0) 取得选中行0列的值
然后可以通过提交Sql语句删除记录了
同时删除MSHFLEXGRID选中行Me.MSHFlexGrid1.RemoveItem Me.MSHFlexGrid1.RowSel
mshflexgrid.moveitem mshflexgrid.row 这个人真是一个高手
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= \订单查询操作界面\连铸调度系统.mdb;Persist Security Info=False" '正确的连接字符串
cn.CursorLocation = adUseClient
cn.Open
rs.Execute "delete from 订单主表 where id='" & MSHFlexGrid1.TextMatrix (MSHFlexGrid1.Row, 0) & "'"
MSHFlexGrid1.moveitem MSHFlexGrid1.Row
End Sub这是我的代码,
是哪里不对吗?
不是 rs.Execute ...