Call connectDB
sql = ""
sql = sql & "INSERT INTO cust([Client Name],[Mobile No],[Address],[City],[State],[Pincode],[Email],[Category],[Contact Name],"
sql = sql & "[Enquiry],[ActiveFlag])" & vbCrLf
sql = sql & " VALUES (" & vbCrLf
sql = sql & "'" & txtClientName.Text & "'," & vbCrLf
sql = sql & "'" & txtMobile.Text & "'," & vbCrLf
sql = sql & "'" & txtAddress.Text & "'," & vbCrLf
sql = sql & "" & txtcity.Text & "," & vbCrLf
sql = sql & "'" & txtState.Text & "'," & vbCrLf
sql = sql & "'" & txtPIN.Text & "'," & vbCrLf
sql = sql & "'" & txtEmail.Text & "'," & vbCrLf
sql = sql & "'" & cmbCatagory.Value & "'," & vbCrLf
sql = sql & "'" & txtContactPerson.Text & "')" & vbCrLf
sql = sql & "'Y','Y');"
cn.Execute sql
它显示了错误,就像没有给出更多的值。但是我给出了所有的价值,它也给了
SQL语句末尾需要分号(;)
发布于 2017-11-02 06:26:42
Call connectDB
sql = ""
sql = sql & "INSERT INTO cust([Client Name],[Mobile No],[Address],[City],[State],[Pincode],[Email],[Category],[Contact Name],"
sql = sql & "[Enquiry],[ActiveFlag])" & vbCrLf
sql = sql & " VALUES (" & vbCrLf
sql = sql & "'" & txtClientName.Text & "'," & vbCrLf
sql = sql & "'" & txtMobile.Text & "'," & vbCrLf
sql = sql & "'" & txtAddress.Text & "'," & vbCrLf
sql = sql & "" & txtcity.Text & "," & vbCrLf
sql = sql & "'" & txtState.Text & "'," & vbCrLf
sql = sql & "'" & txtPIN.Text & "'," & vbCrLf
sql = sql & "'" & txtEmail.Text & "'," & vbCrLf
sql = sql & "'" & cmbCatagory.Value & "'," & vbCrLf
sql = sql & "'" & txtContactPerson.Text & "'," & vbCrLf
sql = sql & "'Y','Y');"
cn.Execute sql
https://stackoverflow.com/questions/47068878
复制相似问题