使用 Excel VBA 将数据插入数据库不起作用

使用 Excel VBA 将数据插入数据库不起作用

我有一个宏,可以将多个工作簿中的数据上传到数据库。表格将根据插入的值/数据类型而有所不同。我有三张表。我可以很好地在第一个表中插入值,但当涉及到第二个表时,没有插入任何值,我使用的代码与第一个完全相同,但变量不同。

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。

相关内容