Empecemos por el principio: No te voy a dar la solución. Voy a
tratar de que la deduzcas y la entiendas a partir de analizar los códigos que tu mismo creas.
FDW no es un repositorio de codigos gratuitos, o un sitio donde se regalan las soluciones. Es un foro colaborativo. Tratamos de guiar, no de imponer respuestas.
Yendoa tu caso:
Código vb:
Ver originalTry
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
¿Cómo sabes que es un "Error de Conexión"?
En el bloque de Try puede ser:
1) Problemas de integridad de datos, porque no conocemos la estructura de la tabla y por tanto bien podría ser que algunos campos que puedan estar omitidos ean NOT NULL, por ejemplo, o bien que las conversiones implícitas de tipos de dato den NULL y el campo no lo acepte, o el valor exceda el rango de representación de un número, o incluso que el ID ya exista y por tanto se genere una duplicidad de clave.
Ninguno de esos problemas es un "Error de Conexión".
2) Podría ser que el timeout esté excedido. No lo podemos saber.
3) Podría ser que paswword y/o username estuviesen mal, y eso generaría un fallo.
4) Podría ser que la conexión fuese remota, y el user no tuviese permisos para ello.
¿Por qué no simplemente tomas un tutorial básico y ves que
siempre se pone algo como:
Código vb:
Ver originalCatch ex As Exception
MsgBox("Error: " & ex.Message, MsgBoxStyle.Exclamation, "Error al registrar Cliente")
¿Ver ese "ex.Message"?
Bueno, "ex" es una variable cuyo ambiente de existencia es el Catch, y que se instancia al generarse la Exception, contiene un objeto Exception al que se le pueden leer las propiedades tales como... el Mensaje del error.
Eso lo puedes ver consultando incluso la ayuda en linea de Visual Studio (más de uno de nosotros aprendió a programar leyendo eso).
Perdona si te parece un poco fuerte como te lo digo, pero francamente no pareces estár poniendo esfuerzo... Tienes que leer el manual . Tan simple como eso.