Cómo leer todos los datos en Mdb usando vb

Utilizando objetos de datos ADO o controles de datos ADO, puede usar VB para leer datos de tablas en la base de datos Mdb.

Seleccione "Referencia..." en el menú Proyecto, luego seleccione Microsoft ActiveX DataControl en el cuadro de diálogo Referencia... y seleccione Biblioteca Microsoft ActiveX Data Objects 2.0 en el cuadro de diálogo

Haga clic en Aceptar. Este proyecto hace referencia a ADO.

Ejecute el código de ejemplo:

Private Sub Command1_Click()

Dim cn As New ADODB.Connection 'Define una conexión a la base de datos

Dim rs As New ADODB.Recordset 'Declara un conjunto de registros (Recordset). Recordset 'Declarar una variable de objeto Recordset

Dim sql As String

sql = "select * from jishijilu"

cn.ConnectionString = "Provider=Microsoft.Jet .OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb;Persist Security Info=False"

cn.Open

rs.CursorLocation = adUseClient

rs.Open sql, cn, adOpenDynamic, adLockOptimistic

Establecer DataGrid1.DataSource = rs

End Sub