Conectar con Bd Access

[gndark]

Saludos:

nesesito conectarme a una base de datos en access desde visual basic .net 2003 y manipular registros.
en 6.0 lo podia hacer con Dao, pero aqui no me funciona e investigado algo sobre ado.net pero no lo entiendo muy bien. Si me pueden explicar le agradeceria mucho.

Gracias

[jhonwilliams]

Aca encontraras varias formas para conectarte a la base de datos de access

http://www.connectionstrings.com/?carrier=access

Saludos

[sagma]

hola que tal, fijate este ejemplo:
http://foro.vb-mundo.com/about2549023.html

suerte

[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