dim n as integer dim sSQL as stringsSQL = "Delete From ..." n = cnn.Execute(sSQL)debug.print "所影响的行数为 " & n & " 行"
啊抱歉,应该是cnn.Execute sSQL, n
Dim Cnns As New ADODB.Connection Dim i As Integer Dim rs As New ADODB.Recordset Dim sql As String Cnns.CursorLocation = adUseClient Cnns.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Test;Data Source=ukyo"sql = "delete from test"Set rs = Cnns.Execute(sql, i, adCmdText)MsgBox ii就是你要的东西
然后再执行你要干的插入或删除程序
dim sSQL as stringsSQL = "Delete From ..."
n = cnn.Execute(sSQL)debug.print "所影响的行数为 " & n & " 行"
Dim i As Integer
Dim rs As New ADODB.Recordset
Dim sql As String
Cnns.CursorLocation = adUseClient
Cnns.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Test;Data Source=ukyo"sql = "delete from test"Set rs = Cnns.Execute(sql, i, adCmdText)MsgBox ii就是你要的东西