Conectar con Bd Access

[miguelillo2]

Ado es del vb 6 y ado.net es para vb.net (2003 or 2005)

* Ado necesitaba de un recordset para leer los registros....

* Ado.net necesita de un adaptador y un dataset para recorrer los registros.

Si quieres mayor información visita esta página..

http://www.microsoft.com/spanish/msd.../adonetdev.asp

aquí te pongo un ejemplo de conexion.-

Código:

Dim dbConnection As OleDbConnection
            Dim dbdataset As DataSet
            Dim dbdataadapter As OleDbDataAdapter
            Dim query As String
            '
            Dim CadenaConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Nombre\Mis documentos\mybd.mdb; Mode=Share Deny None;User ID=Admin "
            '
            Try
                dbConnection = New OleDbConnection(CadenaConexion)
            Catch ex As Exception
                MessageBox.Show("Error al crear la conexión:" & vbCrLf & ex.Message)
                Exit Sub
            End Try
            '
            dbConnection.Open()
          
            query = " select mis_campos from my_table "
            ' Este es mi objeto dataset
           dbdataset = New Data.DataSet
            '
            dbdataadapter = New OleDbDataAdapter(query, dbConnection)
            '
            Dim commandBuilder As New OleDbCommandBuilder(dbdataadapter)
            '
            dbdataadapter.MissingSchemaAction = MissingSchemaAction.AddWithKey

            Try
                dbdataadapter.Fill(dbdataset, txtnmbtabla.Text)
            Catch ex As Exception
                MessageBox.Show("Error en El Llenado:" & vbCrLf & ex.Message)
            End Try

ahora para recorrer el dataset lo puedes hacer através de un For each:

Código:

Dim dr As DataRow
            
            For Each dr In dbdataset.Tables(txtnmbtabla.Text).Rows
                response.write(dr("mi_campo"))
               
            Next

como vez es sumamente sencillo

Suerte....

Bitss.---Miguel--in