conn.execute sql,intRecs
intRecs返回你的SQL语句影响的记录数

解决方案 »

  1.   

    Private Sub Command1_Click()
    Dim x As New ADODB.Connection
    'x.CursorLocation = adUseClient
    x.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\nwind97.mdb;Persist Security Info=False"
    'x.Execute "SELECT * INTO [D:\Target.mdb].[CopyOfTable1] FROM [D:\Source.mdb].[Table1]"
    Dim i As Long
    x.Execute "SELECT * into NewTable from 产品", i
    MsgBox i
    x.Execute "insert into newTable SELECT * from 产品", i
    MsgBox i
    x.Execute "delete from newTable", i
    MsgBox i
    End Sub
      

  2.   

    应该给playyuer(女爱)分了。