Conectar bd Access - VB-MUNDO

javier · #1 (**permalink**) 14-07-2008, 13:39:06

Hola, estoy intentando pasarme, VB.NET, intento hacer una coneccion a la bd Neptuno(Como el ejemplo que hay colgado). Pero me da un error.

Este es el codigo que utilizo

Public Class Form1
Inherits System.Windows.Forms.Form

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim miConexion As New OleDb.OleDbConnection("Data source=' C:\NEPTUNO.MDB '; Provider=' Microsoft.Jet.OLEDB.4.0'")
Dim miadadtador1 As New OleDb.OleDbDataAdapter("Selec* form Clientes", miConexion)
Dim miAdadtador2 As New OleDb.OleDbDataAdapter("Selec form Pedido", miConexion)
Dim miDataset As New DataSet()
miadadtador1.Fill(miDataset, "Clientes")
miAdadtador2.Fill(miDataset, "Pedido")
db.DataSource = miadadtador1
db.DataSource = miAdadtador2
End Sub
End Class

Y este es el mensaje .

Excepción no controlada del tipo 'System.InvalidOperationException' en system.data.dll

Información adicional: El proveedor ' Microsoft.Jet.OLEDB.4.0' no está registrado en el equipo local.

Venga Gracias

SysEdw · #2 (**permalink**) 16-07-2008, 02:38:43

prueba con este codigo

Imports System.Data.OleDb

Código:

 Private Sub BtnCargarGrid_Click(ByVal sender As System.Object _
                , ByVal e As System.EventArgs) Handles BtnCargarGrid.Click

        Dim cn As OleDbConnection
        Dim ds As Data.DataSet
        Dim da As OleDbDataAdapter
        Dim strConexion As String
        Dim Ssql As String

        strConexion = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\NEPTUNO.MDB"
'asegurate q la base de datos se encuentr en esta ruta
        Try
            'Abrimos la conexión
            cn = New OleDbConnection(strConexion)
            cn.Open()
        Catch ex As Exception
            MessageBox.Show("Error al abrir la conexión:" & vbCrLf & ex.Message)
            Exit Sub
        End Try


        ds = New Data.DataSet

        Ssql = "Selec* form Clientes"

        da = New OleDbDataAdapter(Ssql, cn)

        Dim cmdBuilder As New OleDbCommandBuilder(da)
  
        'Cargamos el DataSet
        Try
            da.Fill(ds, "Clientes")
        Catch ex As Exception
            MessageBox.Show("Error al cargar el DataSet:" & vbCrLf & ex.Message)
        End Try

        DataGrid1.DataSource = ds.Tables("Clientes")

    End Sub