無法通過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