Muchas gracias JonathanB por responder. Me eh orientado un poko mas jee
No se si las reglas del foro lo permiten. Pero tengo este error.
El proveedor 'Microsoft.Jet.OLEDB.4.0 Data Source=' no está registrado en el equipo local.
osea ejecuto la aplicacion, y al momento de cliquear un boton me da ese error y me marca una linea de codigo. Dependiendo del boton que clique. Adjunto el codigo.
Código vb:
Ver originalImports System.Data.Common REM Para Forma 1
Imports System.Data.OleDb REM Para Form 2
Public Class Form1
Dim DBA As DbProviderFactory = DbProviderFactories.GetFactory("System.Data.OleDb")
Private Sub Boton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton1.Click
REM FORMA 1
Dim CN_A As DbConnection = DBA.CreateConnection()
Dim CMD_A As DbCommand = CN_A.CreateCommand
Dim DA_A As DbDataAdapter = DBA.CreateDataAdapter
Dim DT_A As New DataTable
CN_A.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0 Data Source=c:\AULA.mdb")
CMD_A.CommandText = "Select * From TblDatos"
DA_A.SelectCommand = CMD_A
DA_A.Fill(DT_A)
DataGridView1.DataSource = DT_A
End Sub
Private Sub Boton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton2.Click
REM FORMA 2
Dim Coneccion As OleDbConnection
Dim Adap As OleDbDataAdapter
Dim Tabla As DataSet
REM Enlazando coneccion a la base de dato
Coneccion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0 Data Source=c:\AULA.mdb")
REM Cargando el adapter con la instruccion sql
Adap = New OleDbDataAdapter("Select * from TblDatos", Coneccion)
REM Cargando el dataset
Tabla = New DataSet()
Adap.Fill(Tabla, "TblDatos")
REM Cargando el datagridview
DataGridView1.DataSource = Tabla
DataGridView1.DataMember = "TblDatos"
End Sub
Private Sub Boton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton3.Click
REM FORMA 3
Dim Coneccion As String = ("Provider=Microsoft.Jet.OLEDB.4.0 Data Source=c:\AULA.mdb")
Try
Dim CONN As New OleDb.OleDbConnection(Coneccion)
Dim CMD As New OleDb.OleDbCommand("Select * From TblDatos(CONN)")
Dim DA As New OleDb.OleDbDataAdapter(CMD)
Dim DS As New DataSet
CONN.Open()
DA.Fill(DS)
CONN.Close()
DataGridView1.DataSource = DS.Tables(0)
Catch ex As OleDbException
MsgBox(ex.Message)
End Try
End Sub
Private Sub Boton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton4.Click
REM Salir
Me.Close()
End Sub
End Class
Agradeceria si me pueden ayudar.
Ah, estoy trabajando con access 2003 y visual basic 2010 en xp 32 bits.