无法通过Visual Basic 6的

Question

我写了这个VB6代码来犯的MS Access dB的插入SQL查询提交MS Access中插入查询写在数据库中。 MsgBox显示0个受影响的行。但是当我在MS Access软件上手动运行查询时，它工作正常，有2个受影响的行。

任何人都可以帮助我吗？

Answer 1

您可以使用 “Execute方法（ADO连接）”，见http://msdn.microsoft.com/en-us/library/windows/desktop/ms675023%28v=vs.85%29.aspx，对于一个例子：

Private Sub InsertData() 
    Dim sql As String, num As Long, Con As New adodb.Connection 

    sql = "INSERT INTO Presenze(Enterprise, Employss, mYear, mMonth, mDay, WorkHours) SELECT T.[Enterprise], P.UserCode, T.[Yr], T.[Mnth], T.[Dy], T.[WorkHRS] FROM TableData T INNER JOIN Personal P On P.PID= T.[PID]" 
     Con.Open "Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=" & App.Path + "\Archive.mdb" & ";PWD=" 
    Con.Execute (sql, num, adExecuteNoRecords) 

    If Con.State = 1 Then 
     Con.Close 
     Set Con = Nothing 
    End If 

    MsgBox num & " records were affected" 
End Sub