
Ayuda a cargar datos a Access 2007 desde Visual Basic 2012
Publicado por Marco (11 intervenciones) el 23/07/2013 22:45:30
Hola a todos
Estoy un poco desesperado, he trabajo únicamente con VB6 y ahora decidí actualizarme a VB 2012, aun asi no soy muy bueno...
Mi problema es no poder grabar los datos en la BD. Y al parecer el programa funciona a la perfección, solo que no guarda nada.
Para no escribir todo el código, pongo lo que considero los datos importantes:
Imports System.Data.OleDb
____________________________________________________________________________
Dim conexion As New OleDbConnection
Dim comandos As New OleDbCommand
_____________________________________________________________________________
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
conexion.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "|DataDirectory|\Trend Antenna.accdb")
conexion.Open()
MsgBox("Conectado con BD", vbInformation, "Correcto")
Catch ex As Exception
MsgBox("Error al conectar", vbExclamation, "Error")
End Try
_____________________________________________________________________________
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
comandos = New OleDb.OleDbCommand("INSERT INTO ideas VALUES ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "')", conexion)
comandos.ExecuteNonQuery()
conexion.Close()
MsgBox("Guardado correctamente", vbExclamation, "Error")
Catch ex As Exception
MsgBox("Error al conectar", vbExclamation, "Error")
End Try
_____________________________________________________________________________
El Mensaje de "Guardado correctamente" aparece al terminar de usar la aplicación, eso significaría que termina el proceso correctamente, pero en la BD no aparece absolutamente nada, Ojala me puedan ayudar, puedo pasar el proyecto si es necesario para que entiendan mas mi problema.
Estoy un poco desesperado, he trabajo únicamente con VB6 y ahora decidí actualizarme a VB 2012, aun asi no soy muy bueno...
Mi problema es no poder grabar los datos en la BD. Y al parecer el programa funciona a la perfección, solo que no guarda nada.
Para no escribir todo el código, pongo lo que considero los datos importantes:
Imports System.Data.OleDb
____________________________________________________________________________
Dim conexion As New OleDbConnection
Dim comandos As New OleDbCommand
_____________________________________________________________________________
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
conexion.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "|DataDirectory|\Trend Antenna.accdb")
conexion.Open()
MsgBox("Conectado con BD", vbInformation, "Correcto")
Catch ex As Exception
MsgBox("Error al conectar", vbExclamation, "Error")
End Try
_____________________________________________________________________________
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
comandos = New OleDb.OleDbCommand("INSERT INTO ideas VALUES ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "')", conexion)
comandos.ExecuteNonQuery()
conexion.Close()
MsgBox("Guardado correctamente", vbExclamation, "Error")
Catch ex As Exception
MsgBox("Error al conectar", vbExclamation, "Error")
End Try
_____________________________________________________________________________
El Mensaje de "Guardado correctamente" aparece al terminar de usar la aplicación, eso significaría que termina el proceso correctamente, pero en la BD no aparece absolutamente nada, Ojala me puedan ayudar, puedo pasar el proyecto si es necesario para que entiendan mas mi problema.
Valora esta pregunta


0