Вставка в vb.net (она возвращает синтаксическую ошибку в вставке в оператор в текстовом поле)

Question

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     Dim con As New OleDbConnection("provider= microsoft.jet.oledb.4.0;data source=" & CurDir() & "\bilingual1.mdb") 
     Dim reader As OleDbDataReader 
     Dim cmd As New OleDbCommand 
     Try 
      con.Open() 
      Dim str As String 
      str = " insert to yoruba (ọro,itumo,geesi) values ('" & TextBox1.Text & "', '" & RichTextBox1.Text & "', '" & RichTextBox2.Text & "')" 
      cmd = New OleDbCommand(str, con) 
      reader = cmd.ExecuteReader 
      MsgBox("new word added.") 
      con.Close() 

     Catch ex As Exception 
      MessageBox.Show(ex.Message) 
     Finally 
      con.Dispose() 
     End Try 

Answer 1

Вам не нужно использовать Reader для команды INSERT. Я изменил метод Cmd на ExecuteNonQuery() для команды INSERT и переформатировал текст команды для удобочитаемости.

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim con As New OleDbConnection("provider= microsoft.jet.oledb.4.0;data source=" & CurDir() & "\bilingual1.mdb") 
    Dim cmd As OleDbCommand 
    Try 
     con.Open() 
     Dim str As String 
     str = "INSERT INTO [yoruba] (ọro,itumo,geesi) VALUES ('" & TextBox1.Text & "', '" & RichTextBox1.Text & "', '" & RichTextBox2.Text & "');" 
     cmd = New OleDbCommand(str, con) 
     cmd.ExecuteNonQuery() 
     con.Close() 
     MsgBox("new word added.") 
    Catch ex As Exception 
     MessageBox.Show(ex.Message) 
    Finally 
     con.Dispose() 
    End Try