Foro de elhacker.net

Amigos esto tratando de hacer ingresar unos datos a una bd en acces pero al darle click al boton Ingresar me sale este error: Error de sintaxis en la instrucción INSERT INTO.  , les ruego puedan ayudarme, aca les dejo el codigo:

Private parqueaderoDataset As DataSet
    Public propietariosTableadapter As OleDbDataAdapter
    Private miconexion As OleDbConnection
    Private cadenadeconexion As String
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
 
 
        cadenadeconexion = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Documents and Settings\Luis\Mis documentos\RegistroFemicidio.accdb"
 
 
 
        miconexion = New OleDbConnection(cadenadeconexion)
 
 
 
        propietariosTableadapter = New OleDbDataAdapter
        propietariosTableadapter.SelectCommand = New OleDbCommand("SELECT * FROM PropietariosTableadapter", miconexion)
 
 
 
        parqueaderoDataset = New DataSet
 
        parqueaderoDataset.Tables.Add("PropietariosTableadapter")
 
 
        propietariosTableadapter.Fill(parqueaderoDataset.Tables("PropietariosTableadapter"))
 
        DataGridView1.DataSource = parqueaderoDataset.Tables("PropietariosTableadapter")
 
 
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
 
        Dim nuevafila As DataRow
 
        nuevafila = parqueaderoDataset.Tables("PropietariosTableadapter").NewRow
 
        nuevafila("Numero de Expediente") = 352
        nuevafila("Nombre de La Victima") = "Lupita"
        nuevafila("Apellido(s)") = "Lupita"
        nuevafila("Edad") = 12
        nuevafila("Fiscalia Distrital") = "Lupita"
        nuevafila("Fiscalia Municipal") = "Lupita"
        nuevafila("Fiscalia de sección") = "Lupita"
        nuevafila("Oficio de Reiteracion") = 1
        nuevafila("Oficio a Supervision") = 122
        nuevafila("Observaciones") = "Lupita"
        nuevafila("Fiscal Responsable") = "Lupita"
        nuevafila("Tipo de Delito") = "Lupita"
 
        parqueaderoDataset.Tables("PropietariosTableadapter").Rows.Add(nuevafila)
 
 
        propietariosTableadapter.InsertCommand = New OleDbCommand
        propietariosTableadapter.InsertCommand.Connection = miconexion
        propietariosTableadapter.InsertCommand.CommandText = "INSERT INTO PropietariosTableadapter(Numero de Expediente, Nombre de La Victima, Apellido(s), Edad, Fiscalia Distrital, Fiscalia Municipal, Fiscalia de sección, Oficio de Reiteracion, Oficio a Supervision, Observaciones, Fiscal Responsable, Tipo de Delito) VALUES (@numeroexpediente,@nombredelavictima,@apellidos,@edad,@fiscaliadistrital,@fiscaliamunicipal,@fiscaliadeseccion,@oficioreiteracion,@oficiosupervision,@observaciones,@fiscaliresponsable,@tipodedelito)"
        propietariosTableadapter.InsertCommand.Parameters.Add("@numeroexpediente", OleDbType.BigInt, 12, "Numero de Expediente")
        propietariosTableadapter.InsertCommand.Parameters.Add("@nombredelavictima", OleDbType.VarChar, 12, "Nombre de La Victima")
        propietariosTableadapter.InsertCommand.Parameters.Add("@apellidos", OleDbType.VarChar, 12, "Apellido(s)")
        propietariosTableadapter.InsertCommand.Parameters.Add("@edad", OleDbType.BigInt, 12, "Edad")
        propietariosTableadapter.InsertCommand.Parameters.Add("@fiscaliadistrital", OleDbType.VarChar, 12, "Fiscalia Distrital")
        propietariosTableadapter.InsertCommand.Parameters.Add("@fiscaliamunicipal", OleDbType.VarChar, 12, "Fiscalia Municipal")
        propietariosTableadapter.InsertCommand.Parameters.Add("@fiscaliadeseccion", OleDbType.VarChar, 12, "Fiscalia de sección")
        propietariosTableadapter.InsertCommand.Parameters.Add("@oficioreiteracion", OleDbType.BigInt, 12, "Oficio de Reiteracion")
        propietariosTableadapter.InsertCommand.Parameters.Add("@oficiosupervision", OleDbType.BigInt, 12, "Oficio a Supervision")
        propietariosTableadapter.InsertCommand.Parameters.Add("@observaciones", OleDbType.VarChar, 12, "Observaciones")
        propietariosTableadapter.InsertCommand.Parameters.Add("@fiscaliresponsable", OleDbType.VarChar, 12, "Fiscali Responsable")
        propietariosTableadapter.InsertCommand.Parameters.Add("@tipodedelito", OleDbType.VarChar, 12, "Tipo de Delito")
 
        propietariosTableadapter.Update(parqueaderoDataset.Tables("PropietariosTableadapter"))
 

El error me lo marca en la ultima Linea.

El error podría ser el nombre del campo Apellido(s).

Quítale los paréntesis al campo y al SQL y prueba nuevamente.

Saludos!

Hola.

Post inicial realmente caótico: sección equivocada (va en .NET), code sin GeSHi.

Además de lo indicado por MCKSys, ¿tienes una tabla en la db llamada PropietariosTableadapter? , definición de campos con nombres kilométricos, con tildes y con espacios (éstos últimos debes acotarlos entre []) que te llevan a cometer errores al picar. También súmale el error en el nombre del campo en la antepenúltima línea ("Fiscali Responsable"))

Un saludo.