Question

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语句的末尾需要使用Semicolon（;）

Answer 1

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

在访问中插入显示错误

1 个答案: