2017-07-03 65 views
-4

附近有語法錯誤 'ID'

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click 
    cn = New SqlConnection 
    cn.ConnectionString = "Data Source=LAPTOP-VLPOS8UG;Initial Catalog=FAMS;Integrated Security=True" 
    Try 
     cn.Open() 
     Dim query As String 
     query = "INSERT INTO Master (Asset ID, Asset Category, Department, Brand/Make, Product Serial No, Purchase Date, Purchase Order Date, Installation Date, Purchase Cost, Depriciation Rate, Vendor Code, Warranty Details, Processor, RAM, HDD, Operating System, Application/Software, Note, Asset Name, Status)" + "VALUES ('" & Asset_IDTextBox.Text & "','" & Asset_CategoryComboBox.Text & "','" & DepartmentComboBox.Text & "','" & Brand_MakeTextBox.Text & "','" & Product_Serial_NoTextBox.Text & "','" & Purchase_DateDateTimePicker.Text & "','" & Purchase_Order_DateDateTimePicker.Text & "','" & Installation_DateDateTimePicker.Text & "','" & Purchase_CostTextBox.Text & "','" & Depriciation_RateTextBox.Text & "','" & Vendor_CodeComboBox.Text & "','" & Warranty_DetailsComboBox.Text & "','" & ProcessorComboBox.Text & "','" & RAMComboBox.Text & "','" & HDDComboBox.Text & "','" & Operating_SystemComboBox.Text & "','" & Application_SodtwareTextBox.Text & "','" & NoteTextBox.Text & "','" & Asset_NameTextBox.Text & "','" & StatusComboBox.Text & "')" 
     cmd = New SqlCommand(query, cn) 
     dr = cmd.ExecuteReader 

     MessageBox.Show("Data Saved") 
     cn.Close() 
    Catch ex As SqlException 
     MessageBox.Show(ex.Message) 
    Finally 
     cn.Dispose() 

    End Try 

End Sub 
+2

Hi Rajsinh Jadhavrao,歡迎來到[so]。這是什麼編程語言?請用正在使用的語言標記您的問題。要更新您的問題,請點擊帖子下的**「[edit]」**鏈接。謝謝。 – Pang

回答

0

既然你標記你的問題,我想你的RDBMS是SQL服務器。

您的表格有多個列名稱中的空格;嘗試在包含空格的列名周圍使用方括號:

query = "INSERT INTO Master ([Asset ID], [Asset Category],...