Ver Mensaje Individual
  #2 (permalink)  
Antiguo 07/10/2008, 01:51
Avellaneda
Colaborador
 
Fecha de Ingreso: enero-2008
Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 17 años, 2 meses
Puntos: 37
Respuesta: conectar una consulta de access 2003 a vb6

Cita:
Iniciado por ernestoelunico Ver Mensaje
saludos a todos en el foro........
Mi duda de hoy es conectar a visual basic 6.0 sp6 una consulta de access 2003
la quiero para visualizar datos nada mas en un datagrid
de preferencia me gustaria que no usara el adodc.

le dire porque ya habia hecho esto pero usando datagrid y conectando la base de datos con el adodc pero conecte la tabla no la consulta....
y el problema de esto es que el adodc por obligacion a la hora de instalar la aplicacion debe de instalarse en una ruta especifica por ejemplo

C:\miprogrma\db1.mdb
si yo lo instalo en

d:\miprogrma\db1.mdb
u otro directorio me da error

no se si se podra usar otra cosa algo como esto

ruta = App.Path & "\registros.mdb "
Set base = OpenDatabase(ruta)

que me permite abrir la base de datos sin importar el directorio en donde se instale la aplicacion solo depende que la base de datos este en el mismo lugar
para lo anterior lo hice para conectar una tabla con dao
Hola,
con DAO no puedes conectar una tabla ni a un control Adodc ni a un DataGrid, estos son exclusivos de ADO.
Los controles equivalentes en DAO son el control Data y el DBGrid.

Para hacer una conexión a la BD y mostrar los datos en un DataGrid (con referencia a ADO):

Código:
Dim BD As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Form_Load()
Set BD = New ADODB.Connection
Set rs = New ADODB.Recordset
BD.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\registros.mdb"
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM LaTabla", BD, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub