Ayudemme a ver mi error al intentar ingresar datos a mi base de datos desde vb 2010?

[adriansanchez]

Imports System.Data
Imports System.Data.OleDb
Public Class Form

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

End Sub



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conconexion As OleDb.OleDbConnection
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()
Dim a As String = "Insert into contabilidad_siscont_basic (id,cuenta,tipo,fecha,concepto,valor) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & DateTimePicker1.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "'" & ")"
Dim c As New OleDb.OleDbCommand(a, conconexion)
'----------SUMAR VALORES---------------
c.ExecuteNonQuery()
Catch ex As Exception
MsgBox("Error de Conexion", MsgBoxStyle.Exclamation, "Registro de Cliente")
End Try
conconexion.Close()
End Sub
End Class

[drako_darpan]

Hola que tal, bueno amigo antes que nada si esto es para una empresa, estas comentiendo un error grave , puesto que estas poniendo información confidencial ( Pass y BD ) y eso no se hace

Segunda, que error es el que te sale, por que yo solo veo codigo fuente, pero no tengo acceso a tus BD

Aclara un poco mas las cosas

[adriansanchez]

si disculpeme..
primero no es para ninguna empresa..
segundo es un archivo acces 2010..! local.. obviamente creado.. por mi..!!

y necesito saber porq no ingresan los datos a dicho archivo..!!


me sale eerror de conecion

[DexterGlue]

hola adriansanchez

verifica que la base de datos este en la ruta que indicas con Application.StartupPath

Recuerda que la ruta de los archivos es bin\debug\ o bin\Realse\

Espero haber colaborado un poco

Saludos y Bendiciones

[drako_darpan]

Hola que tal, que error es el que te sale o simplemente no inserta nada??

Seria necesario saber que error es el que te esta dando, para poder guiarnos

[geoneo]

Iniciado por drako_darpan

Hola que tal, que error es el que te sale o simplemente no inserta nada??

Seria necesario saber que error es el que te esta dando, para poder guiarnos

Lo mismo, coloca una imagen del error o el texto que te lanza.

[adriansanchez]

Pues.. repitoo..!! la base de datos.. si esta.. en bin.. y pues.. los datos si me leen pero al momento de ingresar datos.. pos.. no me ingresa.. el error.. que me sale es error de conecion este el codigo que tengo..!! yo..!!

Código:

Imports System.Data
Imports System.Data.OleDb
Public Class form1
Private 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
End Class

[adriansanchez]

gracias por intentar ayudarme

[gnzsoloyo]

Código vb:

Private 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).

[adriansanchez]

como se habra dado cuentoo soy completamente novato en visual basic..!! y pues no se a lo que se refiere con desperdiciando recursos..!! al igual.. en el 4 campo tambien le puse un valor anteriormente pero.. nada..!! no se insertan los datos..!! y como podria poner el codigo correctamente.. de acuerdo a lo que deseoo.. si porfavor.. me puede hacer el fabor.!! de modificar el codigo.!! en vista que usted es el experto y desearia porfavor que me ayude..!! de antemano gracias.. no importa si lo hace de otra forma..!!

[gnzsoloyo]

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:

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
 

¿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:

Catch 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.

[drako_darpan]

Hola que tal, bueno lo que se te esta pidiendo es el error que te regresa, esto lo puedes tomar el " EXCEPTION ", que te diga cual es error, porque nos estamos imaginando cual es el error

En C#:

Código C#:

MessageBox.Show("Error X:" + ex.Message.ToString(), "X", MessageBoxButtons.OK, MessageBoxIcon.Information );
 

Tu conviertelo a VB y con ese error que te de, lo posteas y se puede saber mejor, cual es tu problema.

No podemos mover el codigo , por que no tenemos idea de que se quiere hacer. Pero esa instruccion te dira cual es el error .