
error de sintaxis en la instrucción insert into
Publicado por Sierra (4 intervenciones) el 12/05/2023 19:30:44
buenas tardes a todos, de verdad necesito su ayuda actualmente quise hacer un programa de visual basic y estaba tratando de hacer la base de datos en access y me salio el error de sintaxis en la instrucción insert into.
este es el codigo, por si algien me puede indicar que esta mal
Try
cadena.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\abrah\Desktop\Programa Adan Y Eva\programass\programass\BD\BD Adan Y Eva.mdb"
cadena.Open()
comando = New OleDbCommand("Insert into Tabla1(BCV,FECHA,CÉDULA,NOMBRE_Y_APELLIDO,TELÉFONO,MÉDICO,N°_DE_ORDEN,TIPO_DE_SERVICIO,COSTO_EN_$_DEL_SERVICIO,COSTO_EN_BS_DEL_SERVICIO,MONTO_CUBIERTO_POR_PROSALUD,MONTO_PAGADO_EN_BS,MONTO_PAGADO_EN_DÓLARES,MONTO_DE_DÓLARES_PAGADOS,FORMA_DE_PAGO,BANCO,N°_DE_REFERENCIA,OBSERVACIÓN)" &
"values(txt_Cedula,txt_Fecha,txt_Nombre,txt_Telefono,lst_Medico,txt_Orden,lst_TipoServicio,lst_CostoServicio_D,txt_CostoServicio_Bs,txt_MontoP,txt_PagoBs,txt_PagoD,txt_MontoDe_D,lst_FormaDePago,lst_Banco,txt_NReferencia,txt_Observacion)", cadena)
comando.Parameters.AddWithValue("@BCV", txt_BCV.Text)
comando.Parameters.AddWithValue("@FECHA", txt_Fecha.Text)
comando.Parameters.AddWithValue("@CÉDULA", txt_Cedula.Text)
comando.Parameters.AddWithValue("@NOMBRE_Y_APELLIDO", txt_Nombre.Text)
comando.Parameters.AddWithValue("@TELÉFONO", txt_Telefono.Text)
comando.Parameters.AddWithValue("@MÉDICO", lst_Medico.Text)
comando.Parameters.AddWithValue("@N°_DE_ORDEN", txt_Orden.Text)
comando.Parameters.AddWithValue("@TIPO_DE_SERVICIO", lst_TipoServicio.Text)
comando.Parameters.AddWithValue("@COSTO_EN_$_DEL_SERVICIO", lst_CostoServicio_D.Text)
comando.Parameters.AddWithValue("@COSTO_EN_BS_DEL_SERVICIO", txt_CostoServicio_Bs.Text)
comando.Parameters.AddWithValue("@MONTO_CUBIERTO_POR_PROSALUD", txt_MontoP.Text)
comando.Parameters.AddWithValue("@MONTO_PAGADO_EN_BS", txt_PagoBs.Text)
comando.Parameters.AddWithValue("@MONTO_PAGADO_EN_DÓLARES", txt_PagoD.Text)
comando.Parameters.AddWithValue("@MONTO_DE_DÓLARES_PAGADOS", txt_MontoDe_D.Text)
comando.Parameters.AddWithValue("@FORMA_DE_PAGO", lst_FormaDePago.Text)
comando.Parameters.AddWithValue("@BANCO", lst_Banco.Text)
comando.Parameters.AddWithValue("@N°_DE_REFERENCIA", txt_NReferencia.Text)
comando.Parameters.AddWithValue("@OBSERVACIÓN", txt_Observacion.Text)
comando.ExecuteNonQuery()
MsgBox("Datos Guardados De Manera Exitosa")
Catch ex As Exception
MsgBox(ex.Message)
MsgBox("Los Datos No Se Han Podido Guardar Correctamente")
End Try
cadena.Close()
'........................................................................................................
txt_Fecha.Text = ""
txt_Cedula.Text = ""
txt_Nombre.Text = ""
txt_Telefono.Text = ""
lst_Medico.Text = ""
txt_Orden.Text = ""
lst_TipoServicio.Text = ""
lst_CostoServicio_D.Text = ""
txt_CostoServicio_Bs.Text = ""
txt_MontoP.Text = ""
txt_PagoBs.Text = ""
txt_PagoD.Text = ""
txt_MontoDe_D.Text = ""
lst_FormaDePago.Text = ""
lst_Banco.Text = ""
txt_NReferencia.Text = ""
txt_Observacion.Text = ""
este es el codigo, por si algien me puede indicar que esta mal
Try
cadena.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\abrah\Desktop\Programa Adan Y Eva\programass\programass\BD\BD Adan Y Eva.mdb"
cadena.Open()
comando = New OleDbCommand("Insert into Tabla1(BCV,FECHA,CÉDULA,NOMBRE_Y_APELLIDO,TELÉFONO,MÉDICO,N°_DE_ORDEN,TIPO_DE_SERVICIO,COSTO_EN_$_DEL_SERVICIO,COSTO_EN_BS_DEL_SERVICIO,MONTO_CUBIERTO_POR_PROSALUD,MONTO_PAGADO_EN_BS,MONTO_PAGADO_EN_DÓLARES,MONTO_DE_DÓLARES_PAGADOS,FORMA_DE_PAGO,BANCO,N°_DE_REFERENCIA,OBSERVACIÓN)" &
"values(txt_Cedula,txt_Fecha,txt_Nombre,txt_Telefono,lst_Medico,txt_Orden,lst_TipoServicio,lst_CostoServicio_D,txt_CostoServicio_Bs,txt_MontoP,txt_PagoBs,txt_PagoD,txt_MontoDe_D,lst_FormaDePago,lst_Banco,txt_NReferencia,txt_Observacion)", cadena)
comando.Parameters.AddWithValue("@BCV", txt_BCV.Text)
comando.Parameters.AddWithValue("@FECHA", txt_Fecha.Text)
comando.Parameters.AddWithValue("@CÉDULA", txt_Cedula.Text)
comando.Parameters.AddWithValue("@NOMBRE_Y_APELLIDO", txt_Nombre.Text)
comando.Parameters.AddWithValue("@TELÉFONO", txt_Telefono.Text)
comando.Parameters.AddWithValue("@MÉDICO", lst_Medico.Text)
comando.Parameters.AddWithValue("@N°_DE_ORDEN", txt_Orden.Text)
comando.Parameters.AddWithValue("@TIPO_DE_SERVICIO", lst_TipoServicio.Text)
comando.Parameters.AddWithValue("@COSTO_EN_$_DEL_SERVICIO", lst_CostoServicio_D.Text)
comando.Parameters.AddWithValue("@COSTO_EN_BS_DEL_SERVICIO", txt_CostoServicio_Bs.Text)
comando.Parameters.AddWithValue("@MONTO_CUBIERTO_POR_PROSALUD", txt_MontoP.Text)
comando.Parameters.AddWithValue("@MONTO_PAGADO_EN_BS", txt_PagoBs.Text)
comando.Parameters.AddWithValue("@MONTO_PAGADO_EN_DÓLARES", txt_PagoD.Text)
comando.Parameters.AddWithValue("@MONTO_DE_DÓLARES_PAGADOS", txt_MontoDe_D.Text)
comando.Parameters.AddWithValue("@FORMA_DE_PAGO", lst_FormaDePago.Text)
comando.Parameters.AddWithValue("@BANCO", lst_Banco.Text)
comando.Parameters.AddWithValue("@N°_DE_REFERENCIA", txt_NReferencia.Text)
comando.Parameters.AddWithValue("@OBSERVACIÓN", txt_Observacion.Text)
comando.ExecuteNonQuery()
MsgBox("Datos Guardados De Manera Exitosa")
Catch ex As Exception
MsgBox(ex.Message)
MsgBox("Los Datos No Se Han Podido Guardar Correctamente")
End Try
cadena.Close()
'........................................................................................................
txt_Fecha.Text = ""
txt_Cedula.Text = ""
txt_Nombre.Text = ""
txt_Telefono.Text = ""
lst_Medico.Text = ""
txt_Orden.Text = ""
lst_TipoServicio.Text = ""
lst_CostoServicio_D.Text = ""
txt_CostoServicio_Bs.Text = ""
txt_MontoP.Text = ""
txt_PagoBs.Text = ""
txt_PagoD.Text = ""
txt_MontoDe_D.Text = ""
lst_FormaDePago.Text = ""
lst_Banco.Text = ""
txt_NReferencia.Text = ""
txt_Observacion.Text = ""
Valora esta pregunta


0