conectar una consulta de access 2003 a vb6

[ernestoelunico]

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

[Avellaneda]

Iniciado por ernestoelunico

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

[ernestoelunico]

ok si ya se usar esto pero necesito conectar una consulta no una tabla no se como se hace cual es la diferenccia del codigo para llamar la consulta

[Avellaneda]

Iniciado por ernestoelunico

ok si ya se usar esto pero necesito conectar una consulta no una tabla no se como se hace cual es la diferenccia del codigo para llamar la consulta

¿Qué es para tí una consulta?

Esta es una consulta simple:
"SELECT * FROM LaTabla"
que la puedes complicar todo lo que quieras, siempre y cuando te lo permita el leguaje SQL.

Concretamente, ¿qué es lo que necesitas?

[ernestoelunico]

ok en access vienes tu y puedes crear los siguientes objetos
Tablas para añadir datos
Consulta para visualizar ciertos datos de la misma o diferente tabla
Formularios
informes
dicho lo anterior lo que quiero es enlazar una consulta de access 2003 a vb6 sp6 y que la pueda visualizar en una datagrid al igual que se puede en una tabla me imagino que se a de poder tambien con las consultas supongo que solo a de ser un par de comandos y ya????

[Avellaneda]

Iniciado por ernestoelunico

ok en access vienes tu y puedes crear los siguientes objetos
Tablas para añadir datos
Consulta para visualizar ciertos datos de la misma o diferente tabla
Formularios
informes
dicho lo anterior lo que quiero es enlazar una consulta de access 2003 a vb6 sp6 y que la pueda visualizar en una datagrid al igual que se puede en una tabla me imagino que se a de poder tambien con las consultas supongo que solo a de ser un par de comandos y ya????

Parece ser que no conoces el Lenguaje de Consulta Estructurado (SQL), lenguaje normalizado para trabajar con bases de datos. Te recomiendo busques algún tutorial sencillo de SQL, en la red hay unos cuantos.
Sería muy complicado de explicar aquí cada uno de los comandos, claúsulas, operadores y funciones de agregado.

En el ejemplo que puse mas arriba, se seleccionan todos los campos de una tabla y se visualizan en un control DataGrid. Si quieres alguna consulta en concreto, nos indicas los mismos datos que pide Access para ello (Tablas, campos, orden, mostrar y criterios de selección) y te la armamos.

[ernestoelunico]

ok creo que no me supe explicar.......
aqui lo intentare de nuevo



Esa de ahi es una consulta elaborada en access 2003

la consulta se llama Acreedores consulta y la tabla que se tomo para hacerla se llama acreedores.....

esto lo hice yo manualmente en access ahi en la consulta tiene una formulas que me calculan valores..........

yo quiero que en mi programa hecho en visual basic pueda ver esta consulta especifica no la tabla sino esta porque los datos de la formulas son los que me interesan se que lo puedo hacer con el datagrid y el adodc para conectar la tabla a mi programa pero lo que nose es como se conecta esta consulta ya elaborada

[redpos]

Debes poner en tu formulario un cotrol data y dbgrid y enlazarlos, propiedad datasource del datagrid al control data.

en el codigo, para rellenar el dbgrid con los datos de una consulta que tienes creada en la base de datos pones lo siguiente

Dim DB As Database
Set DB = OpenDatabase("ruta de tu mdb")
Dim RS As Recordset
Set RS = DB.OpenRecordset("El nombre de tu consulta", dbOpenDynaset)
Set Me.Data1.Recordset = RS.Clone
Me.DBGrid1.Refresh

en las propiedades del db grid debes decirle que recupere todos los campos o editar estas propiedades para poner las columnas que quieras.

Todo esto usando DAO logicamente.


Espero te sirva

[redpos]

Por cierto me olvide decirte que esto vale si tu consulta no tiene parametros, si tiene formulas si vale pero sin parametros, si tuviera parametros debes usa una sentencia sql y pasarle los parametros.