Código vb:
Ver originalPrivate Sub Form1Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'Siscont_basic_databaseDataSet.contabili… table. You can move, or remove it, as needed.
Me.Contabilidad_siscont_basicTableAdapte…
Dim conconexion As OleDb.OleDbConnection
Dim cmdcommand As OleDb.OleDbCommand
Dim con As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
Application.StartupPath & "\siscont_basic_database.accdb;Jet OLEDB:Database Password=siscont_basic_1616;"
conconexion = New OleDb.OleDbConnection(con)
Try
conconexion.Open()
cmdcommand = New OleDb.OleDbCommand
cmdcommand.Connection = conconexion
cmdcommand.CommandText = "INSERT INTO contabilidad_siscont_basic (id,cuenta,tipo,fecha,concepto,valor) VALUES ('11234','2','1','','asdasd','300')"
cmdcommand.ExecuteNonQuery()
MsgBox("Registro Correcto", MsgBoxStyle.Information, "Registro de Cliente")
Catch ex As Exception
MsgBox("Error de Conexion", MsgBoxStyle.Exclamation, "Registro de Cliente")
End Try
conconexion.Close()
End Sub
Sin entrar en consideraciones de que en nivel de acoplamiento es un espanto (estás creando la conexión dentro de la interfaz de usuario
), te recuerdo que una Exception también te permite acceder al menos a dos cosas que a nosotros y a tí nos ayudarían a resolver el problema: el numero de error y
el mensaje de error.
¿Por qué desperdicias recursos y no lo estás capturando para mostrarlo?
Así menos así sabrías qué error es el que se produce, y no un mensaje imaginario que en realidad no estás seguro.
Para que se entienda: En tu código el error puede ser con la conexión, con la sentencia, con la integridad de datos o con la ejecución, y no lo sabrías,
porque no lo estás evaluando, ni mostrando.
Haz que al menos devuelva el mensaje y entonces veremos.
Por cierto: ¿Al menos te molestaste en
verificar si estás escribiendo la sentencia correctamente?
Porque yo veo que indicas seis (6) campos para datos, pero sólo pones cinco (5) datos... A todas luces lo que
seguro te falla es el SQL (aunque no descarto otros errores).