錯誤插入數據到SQL Server數據庫

Question

執行我的代碼將數據插入到我的數據庫時，我收到以下錯誤：

system.data.oledb.oledbexception（0X80040E14）：語法錯誤插入 into語句

這裏是我的代碼：

Public Sub put_data(ByVal lstpart As List(Of String), lstpartid As List(Of String), lstmanufacturer As List(Of String), lstmanufacturerid As List(Of String), lstprice As List(Of String), lstpartdescription As List(Of String), ByVal lstpartimg As List(Of Image)) 
     Dim intCurrentRecord As Integer = 0 
     Dim strSQL As String 
     Dim ds As New DataSet 
     ' Dim sqlcmd As OleDbCommand 

     MsgBox(MyCn.State.ToString, vbOK, "test") 

     Try 

     Do While intCurrentRecord <= lstpart.Count - 1 
       strSQL = "Insert into Parts (Part, [Part ID],Manufacturer,Prices,[Manufacturer ID],[Part Description] VALUES (?,?,?,?,?,?)" 

      strSQL = strSQL.Replace(vbCrLf, " ") 

      Using MyCn 
       Using sqlcmd = New OleDbCommand(strSQL, MyCn) 
        sqlcmd.Parameters.AddWithValue("@p1", lstpart(intCurrentRecord)) 
        sqlcmd.Parameters.AddWithValue("@p2", lstpartid(intCurrentRecord)) 
        sqlcmd.Parameters.AddWithValue("@p3", lstmanufacturer(intCurrentRecord)) 
        sqlcmd.Parameters.AddWithValue("@p4", lstprice(intCurrentRecord)) 
        sqlcmd.Parameters.AddWithValue("@p5", lstmanufacturerid(intCurrentRecord)) 
        sqlcmd.Parameters.AddWithValue("@p6", lstpartdescription(intCurrentRecord)) 
         sqlcmd.ExecuteNonQuery() 
       End Using 
      End Using 
      intCurrentRecord += 1 

      Loop 
     Catch ex As Exception 
      MsgBox(ex.ToString, vbOK, "Error") 
     End Try 
     dbclose() 

Answer 1

你錯過了在字段列表中一個右括號。這：

Insert into Parts 
(Part, [Part ID],Manufacturer,Prices,[Manufacturer ID],[Part Description] 
VALUES 
(?,?,?,?,?,?) 

應該是這樣的：

Insert into Parts 
(Part, [Part ID],Manufacturer,Prices,[Manufacturer ID],[Part Description]) 
VALUES 
(?,?,?,?,?,?)