Question

我有一个宏，它将宏从多个工作簿上载到数据库。根据插入的值/数据的类型，表将有所不同。我有桌子。我可以在第一个表中插入值就很好了，但是当涉及第二个表时，没有插入值，即时消息使用的代码与第一个表完全相同，但是变量不同。

Set conn = CreateObject("ADODB.Connection")
Dim connection, insertData As String

connection = "Provider=; Database= Database; Integrated Security=SSPI;"

'open connection
 conn.Open connection

insertData = "INSERT INTO Table2 ([Name], [AScore], [BScore], [CScore], [DScore], [EScore], [FScore]) " & _
             " VALUES ('" & _
             SummWb.Sheets("Sheet 2").Cells(13, "I").Value & "' , '" & _
             SummWb.Sheets("Sheet 2").Cells(11, "J").Value & "' , '" & _
             SummWb.Sheets("Sheet 2").Cells(6, "J").Value & "' , '" & _
             SummWb.Sheets("Sheet 2").Cells(7, "J").Value & "' , '" & _
             SummWb.Sheets("Sheet 2").Cells(3, "J").Value & "' , '" & _
             SummWb.Sheets("Sheet 2").Cells(9, "J").Value & "' , '" & _
             SummWb.Sheets("Sheet 2").Cells(10, "J").Value & "')"
conn.Execute insertData
conn.close

我试图查看我的代码是否错误，并且我还尝试删除该表并创建一个新表，还使用一个新的工作簿来测试该代码，但是结果仍然相同。您能帮我看看我的代码有什么问题吗？我正在使用SQL Server Management Studio。

VBA数据值未更新到数据库

0 个答案: