none
Mensaje Error de sintaxis INSERT INTO RRS feed

  • Question

  • Buenas Tardes lo que sucede es que soy principiante en esto de programar y mas en VB 

    lo que sucede es que tengo una base de datos creada en acces 2010 y tengo vb ultimate 2010

    al momento de conectar la base de datos conecta bien pero cuando oprimo el boton de "agregar" de mi plataforma me muestra el siguiente error("error de sintaxys en la instruccion INSERT INTO")

    mi programa es una base de datos donde el usuario ingresa unos valores "X" para que posteriormente sean mostrados pero al momento de darle al boton agregar me aparece este error aqui el codigo completo

    Imports System.Data.OleDb

    Public Class FrmListadoDeProductos

        Dim Conexion As New OleDbConnection
        Dim comandos As New OleDbCommand

        Private Sub FrmListadoDeProductos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

            Try
                Conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "C:\Users\CLAUDIA GALLO\Documents\Visual Studio 2010\Projects\Proyecto De Grado (Tomodashi Maid Cafe)\Acces Tabla\Tomodashi Maid.accdb"
                Conexion.Open()
                MsgBox("Iniciando Conexion Con Base De Datos Tomodashi", vbInformation, "Correcto")
            Catch ex As Exception
                MsgBox("Error De Conexion Con Base De Datos Tomodashi", vbExclamation, "Error")
            End Try
        End Sub

        Private Sub Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add.Click
            Try

                comandos = New OleDbCommand("insert into Listado De Productos ([Nombre],[Valor],[Valor Uni],[Distribuidor],[Existencias])" & Chr(13) &
                                            "VALUES (TxtNombre,TxtValor,TxtUni,TxtDistri,TxtExistencias)", Conexion)

                comandos.Parameters.AddWithValue("@Nombre", TxtNombre.Text)
                comandos.Parameters.AddWithValue("@Valor", TxtValor.Text)
                comandos.Parameters.AddWithValue("@Valor Uni", TxtUni.Text)
                comandos.Parameters.AddWithValue("@Distribuidor", TxtDistri.Text)
                comandos.Parameters.AddWithValue("@Existencias", TxtExistencias.Text)
                comandos.ExecuteNonQuery()
                MsgBox("Guardado Correctamente", vbInformation, "Hecho!")
                TxtNombre.Clear()
                TxtValor.Clear()
                TxtUni.Clear()
                TxtDistri.Clear()
                TxtExistencias.Clear()
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End Sub

        Private Sub Quit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Quit.Click
            Conexion.Close()
            Me.Close()
        End Sub
    End Class

    agradesco de antemano su ayuda y espero no incomodarlos gracias por tomarte el tiempo de leer la pregunta 

    Thursday, April 25, 2013 7:41 PM