Datos de TextBox Visual Basic 2010 a Access

[thegodinez]

Bueno resulta, estuvie leeyendo diversos medios y di con esta web http://wilfredo-patricio.blogspot.com/2008/07/procedimientos-almacenados-en-access-y.html donde explican como conectar una base de datos, sin embargo, me da un error y no lo he podido solucionar.

Este es mi código del botón aceptar

Private Sub BtnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAceptar.Click
If MessageBox.Show("¿Seguro de Grabar los Datos ?", "Responda", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
Try


Dim Cone As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLED B.4.0;Data Source=C:\Users\Thegodinez\Documents\Base de datos\Libreria\Kardex1.mdb ;Persist security info=false")

Dim Comando As New OleDbCommand
With Comando
Cone.Open()
.CommandText = "Alumnos"
.CommandType = CommandType.StoredProcedure
.Connection = Cone
.Parameters.Add("@Credencial", OleDbType.Char, 10).Value = Me.TextBox3.Text
.Parameters.Add("@Nombre", OleDbType.VarChar, 50).Value = Me.TextBox1.Text
.Parameters.Add("@Direccion", OleDbType.VarChar, 50).Value = Me.TextBox2.Text
.Parameters.Add("@Telefono", OleDbType.VarChar, 50).Value = Me.TextBox4.Text
End With
Dim Bien As Integer = Comando.ExecuteNonQuery
If Bien = 0 Then
Throw New Exception("Falló la operacion de inserción")
End If
Comando.Dispose()
Cone.Close()
Cone.Dispose()
MessageBox.Show("Datos Ingresados con éxito", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Else
MessageBox.Show("Operacion cancelada por el usuario", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End Sub

También aprendi que Visual Basic no es compatible con Access 2007, pero si con la versión anterior (ironía), es decir, los archivos con terminación .accdb que son de Access 2007, lanzan el Error "No se reconoce el formato de base de datos", mientras que con la terminación .mdb del office 2000 y 2003 si funciona. Bueno el caso es que ahora me ahora me arroja el error es "El objeto Alumnos no es un procedimiento almacenado".

Dejo link de mi Proyecto: http://wa-mx.com/WindowsApplication1.rar ahi lo pueden observar mejor =) Espero su ayuda, me han sacado de muchos apuros.

[gedarufi]

He estado revisando tu código y no veo nada sobre el procedimiento almacenado, lo que te recomiendo es que crees un insert, con eso se solucionaran tus problemas.

Saludos

[thegodinez]

Iniciado por gedarufi

He estado revisando tu código y no veo nada sobre el procedimiento almacenado, lo que te recomiendo es que crees un insert, con eso se solucionaran tus problemas.

Saludos

La verdad es que soy muy novato, me podrias decir por favor como quedaria con un insert?

[gedarufi]

Seria algo por el estilo

Código VB:

Dim Comando As New OleDbCommand
With Comando
Cone.Open()
.CommandText = "Insert into Alumnos values (@Credencial, @Nombre, @Direccion, @Telefono)"
.Connection = Cone
.Parameters.Add("@Credencial", OleDbType.Char, 10).Value = Me.TextBox3.Text
.Parameters.Add("@Nombre", OleDbType.VarChar, 50).Value = Me.TextBox1.Text
.Parameters.Add("@Direccion", OleDbType.VarChar, 50).Value = Me.TextBox2.Text
.Parameters.Add("@Telefono", OleDbType.VarChar, 50).Value = Me.TextBox4.Text
End With
Dim Bien As Integer = Comando.ExecuteNonQuery
If Bien = 0 Then
Throw New Exception("Falló la operacion de inserción")
End If
Comando.Dispose()
Cone.Close()
Cone.Dispose()
MessageBox.Show("Datos Ingresados con éxito", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Else
MessageBox.Show("Operacion cancelada por el usuario", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End Sub
 

[thegodinez]

Iniciado por gedarufi

He estado revisando tu código y no veo nada sobre el procedimiento almacenado, lo que te recomiendo es que crees un insert, con eso se solucionaran tus problemas.

Saludos

Iniciado por gedarufi

Seria algo por el estilo

Código VB:

Dim Comando As New OleDbCommand
With Comando
Cone.Open()
.CommandText = "Insert into Alumnos values (@Credencial, @Nombre, @Direccion, @Telefono)"
.Connection = Cone
.Parameters.Add("@Credencial", OleDbType.Char, 10).Value = Me.TextBox3.Text
.Parameters.Add("@Nombre", OleDbType.VarChar, 50).Value = Me.TextBox1.Text
.Parameters.Add("@Direccion", OleDbType.VarChar, 50).Value = Me.TextBox2.Text
.Parameters.Add("@Telefono", OleDbType.VarChar, 50).Value = Me.TextBox4.Text
End With
Dim Bien As Integer = Comando.ExecuteNonQuery
If Bien = 0 Then
Throw New Exception("Falló la operacion de inserción")
End If
Comando.Dispose()
Cone.Close()
Cone.Dispose()
MessageBox.Show("Datos Ingresados con éxito", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Else
MessageBox.Show("Operacion cancelada por el usuario", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End Sub
 

Estoy aplicando el nuevo codigo y te agregue al msn.