Visual Basic.NET - Error Insert Access

Error Insert Access

Publicado por Carlos Marin (1 intervención) el 04/04/2017 07:05:33

Lee dado y no encuentro la solucion ya que siempre me sale el error

Excepción producida: 'System.Data.OleDb.OleDbException' en System.Data.dll

Información adicional: Error de sintaxis en la instrucción INSERT INTO.

Private Sub Save_Click(sender As Object, e As EventArgs) Handles Save.Click

    If TxtBank.Text = "" Then

        MessageBox.Show("Please Insert Bank Name", "Entry", MessageBoxButtons.OK, MessageBoxIcon.Warning)

        Exit Sub

    End If

    con = New OleDbConnection(cs)

    con.Open()

    Dim cb As String = "Insert Into Payments (BANK,CHECK,DATE,DETAIL, AMOUNT) VALUES ('" & TxtBank.Text & "','" & TxtCheck.Text & "','" & TxtDate.Text & "','" & TxtDetail.Text & "','" & TxtAmount.Text & ")'"

    cmd = New OleDbCommand(cb)

    cmd.Connection = con

    cmd.ExecuteReader()

    If con.State = ConnectionState.Open Then

        con.Close()

    End If

    con.Close()

    MessageBox.Show("Successfully saved", "Entry", MessageBoxButtons.OK, MessageBoxIcon.Information)

    DataGridView1.DataSource = GetData()

    con.Close()

End Sub

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 4

Val: 605

Error Insert Access

Publicado por Diego (190 intervenciones) el 04/04/2017 11:10:25

Hola, suponiendo que todos los campos de tu tabla son del tipo texto, entonces el uso de las comillas simples está bien. Si es asi, y los nombres de los campos de la tabla "Payments" están bien escritos, un error está al final de la instruccion, donde cierras parentesis antes de las comillas simples del valor de txtAmount.text

Tu codigo:

Dim cb As String = "Insert Into Payments (BANK,CHECK,DATE,DETAIL, AMOUNT) VALUES ('" & TxtBank.Text & "','" & TxtCheck.Text & "','" & TxtDate.Text & "','" & TxtDetail.Text & "','" & TxtAmount.Text & ")'"

El codigo para reemplazar:

Dim cb As String = "Insert Into Payments (BANK,CHECK,DATE,DETAIL, AMOUNT) VALUES ('" & TxtBank.Text & "','" & TxtCheck.Text & "','" & TxtDate.Text & "','" & TxtDetail.Text & "','" & TxtAmount.Text & "')"

Luego, el otro error que cometes es que no es un EXCECUTEREADER el que tenes que lanzar, sino un EXCECUTENONQUERY porque es una "consulta" de modificacion de datos, no de devolucion.

Otro error que veo es, que cierras en caso de estar abierta la conexion 2 veces, aqui:

If con.State = ConnectionState.Open Then

    con.Close()

End If

con.Close()

Si se cumple ese if, se cierra "con" y al salir del if, intenta volver a cerrarla, eso debe provocar una excepcion del tipo que mencionas.

Saludos y +Bytes.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar