VBA到SQL错误

我正在使用SQL服务器数据库来保存数据。

数据被input到Excel工作表中，然后运行一个macros将数据插入到SQL数据库中。

Excel表单中的一个单元格有一个名为“ONEOOED”的值。 当我运行macros，我得到一个错误，说'不正确的语法附近一百'

有人可以请告诉我为什么我得到这个错误？

代码如下。

Sub server() Dim sConnString As String Set objMyConn = New ADODB.Connection Set objMyCmd = New ADODB.Command Set objMyRecordset = New ADODB.Recordset objMyConn.ConnectionString = "Provider=sqloledb;Data Source=xx;Initial Catalog=xx;Integrated Security=SSPI;": MsgBox "Connection Successful" objMyConn.Open Set objMyCmd.ActiveConnection = objMyConn Dim val1 As String, val2 As String, val3 As String, val4 As String, val5 As String val1 = Range("D9").Value val2 = Range("D10").Value val3 = Range("D11").Value val4 = Range("D12").Value val5 = Range("D13").Value Dim item1 As String item1 = "INSERT INTO [xx].[dbo].[server](" item1 = item1 & " [server_name],[ip_address], [phys_location], [phys_or_virt], [it_contact] " item1 = item1 & " )Values(" item1 = item1 & " '" & val1 & "', '" & val2 & "', '" & val3 & "', '" & val4 & "', '" & val5 & "'" objMyConn.Execute item1 End Sub 

Answer 1

在item1的末尾添加一个括号

 item1 = item1 & " '" & val1 & "', '" & val2 & "', '" & val3 & "', '" & val4 & "', '" & val5 & "')" 

Answer 2

尝试closures最后的SQLstring括号