La Web del Programador: Comunidad de Programadores
 
    Pregunta:  42506 - COMO RECONOCER LAS BASES CREADAS EN ACCES 2000
Autor:  Victor Gabriel Sieb
Hola!, necesito ayuda urgente!
Trabajo en Visual 5 y necesito que el data (en el momento de diseño) me reconozca el formato de las tablas que realizo en acces2000 (ya que el data manager de Visual 5, trabaja con el formato del 95). También me sería de utilidad realizar la importación del mismo mediante código.
Desde ya gracias a todos y por favor salvenme de este incendio.

  Respuesta:  Héctor Shamir Pérez
Hola Victor,

Para lograr conectarte en tiempo de diseño debes usar un control ADO, y pos sus propiedades te conectas como un ODBC.

Para hacerlo desde el codigo, debes seleccionar en las referencias del proyeto cualquiera de las Microsoft ActiveX Data Objects 2.x library, y en el código haz lo siguiente:

Para conectarte a la base de datos:
Dim BD As New Connection
BD.CursorLocation = adUseClient
BD.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='BD.mdb';Jet OLEDB:Database Password='password si lo tienes'"

Para traer datos de la base de datos:
Dim R As Recordset
Set tR = BD.Execute("Select * from Tabla")

Luego de esto puedes usar a R como usas Data1.Recordset, es decir:
a = R.Fields("Campo")

Espero te sirva...

Saludos