加空格:sqltext="delete from planlist where id='" & cint(selItem) & "'"
楼上的大哥说得对,你可以先引用Active Data Object2.5(还有一些版本也可以用),然后定义Recordset,Connection对象,再设置一些连接属性,最后调用Execute方法即可执行。 Dim rst AS NEW ADODB.Recordset Dim cnn AS NEW ADODB.Connection Dim sqltext AS String cnn.ConnectionString="......"(这里是连接字符串,自己去取啊) cnn.CursorLocation=adUseClient cnn.Open rst.Open"Select * from planlist",cnn,adOpenStatic,adLockPessimistic sqltext="delete from planlist where id='" & cint(selItem)&"'" Set rst=cnn.Execute(sqltext)大概就是这样的吧。
Dim rst AS NEW ADODB.Recordset
Dim cnn AS NEW ADODB.Connection
Dim sqltext AS String
cnn.ConnectionString="......"(这里是连接字符串,自己去取啊)
cnn.CursorLocation=adUseClient
cnn.Open
rst.Open"Select * from planlist",cnn,adOpenStatic,adLockPessimistic
sqltext="delete from planlist where id='" & cint(selItem)&"'"
Set rst=cnn.Execute(sqltext)大概就是这样的吧。