Question

我在调试开始时看不到数据表中添加的数据它没有任何错误但是当我点击button1时它会显示错误（用户代码未处理）字符串后面的未闭合引号'）'

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim con As OleDbConnection
    Dim strInsert As String
    Dim cmdInsert As OleDbCommand
    Dim vt As Byte,  vm As Byte
    Dim sze As Byte


    con = New OleDbConnection("Integrated Security=SSPI;Packet Size=4096;Data Source=.;Tag with column collation when possible=False;Initial Catalog=borjara;Use Procedure for Prepare=1;Auto Translate=True;Persist Security Info=False;Provider=SQLOLEDB.1;Workstation ID=ABDI;Use Encryption for Data=False")



    If RadioButton4.Checked = True Then vt = 0

    If RadioButton5.Checked = True Then vt = 1


    If RadioButton6.Checked = True Then vm = 0
    If RadioButton7.Checked = True Then vm = 1
    If RadioButton8.Checked = True Then vm = 2

    If RadioButton9.Checked = True Then szs = 1 
    If RadioButton10.Checked = True Then szs = 0



    con.Open()
    strInsert = "insert Into t1(jens) Values (" & DropDownList1.SelectedItem.Text & "')"
    cmdInsert = New OleDbCommand(strInsert, con)
    cmdInsert.ExecuteNonQuery()//error is here
    con.Close()

    con.Open()
    strInsert = "insert Into t1(bazsho) Values (" & DropDownList2.SelectedItem.Text & "')"
    cmdInsert = New OleDbCommand(strInsert, con)
    cmdInsert.ExecuteNonQuery()
    con.Close()

    con.Open()
    strInsert = "insert Into t1(name and lastname,email,number,address,lenght,wideth,turi,glasstype,glass) Values (" & n & ",'" & TextBox1.Text(+" / " + TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "'," & vt & "," & vm & "," & szs & "')")
    cmdInsert = New OleDbCommand(strInsert, con)
    cmdInsert.ExecuteNonQuery()
    con.Close()

    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox3.Text = ""
    TextBox4.Text = ""
    TextBox5.Text = ""
    TextBox6.Text = ""

End Sub

结束班

Answer 1

看起来前两个插入的值没有开头引号。

oleDbexception未被用户代码处理

1 个答案: