Hola Claudio,
¿ Por qué no usar Ado directamente y poder hacer las consultas correctamente ?
oConexion = TOleauto():New('ADODB.Connection')
oConexion:ConnectionString ='Provider=Microsoft.Jet.OLEDB.4.0;'+;
'Data Source=MibaseDatos.mdb;'+;
'User Id=Admin;'+;
'Password=;"
oConexion:Open()
cSql = "SELECT LIBVTA.IDVTA, LIBVTA.DOCTO, LIBVTA.TOTAL, DOCCARTERA.NUMDOC, DOCCARTERA.BANCO, DOCCARTERA.EMISION, DOCCARTERA.VENCIMIENTO, DOCCARTERA.DEBE, DOCCARTERA.TIPO "+;
"FROM LIBVTA INNER JOIN DOCCARTERA ON LIBVTA.IDVTA = DOCCARTERA.IDVTA "+;
"WHERE ((LIBVTA.EMISION)=#"+cfecha+"#)"
oTable := TOleAuto():New('ADODB.Recordset')
oTable:CursorLocation = adUseClient
oTable:Open( "cSql, oConexion, adOpenDynamic, adLockOptimistic )
if oTable:State = adStateClose
Msgstop('No se pudo ejecutar la instruccion'+hb_osnewline()+cSql,'Error de apertura')
End
Este ejemplo hace una consulta sobre 2 tablas enlazadas por el campo Idvta. Entrega las facturas de libro de ventas y los cheques relacionados con cada factura.
Saludos,
Luis VAsquez.
Uso de ADORDD con Access
Moderator: Rathinagiri
- luisvasquezcl
- Posts: 1258
- Joined: Thu Jul 31, 2008 3:23 am
- Location: Chile
- Contact:
-
- Posts: 132
- Joined: Thu Jul 31, 2008 12:05 pm
Re: Uso de ADORDD con Access
Hola Luis Vazquez
Es muy buena la idea que me diste, voy a seguir tu ejemplo.
te consulto lo siguiente:
1 - tengo que incluir #include "adordd.ch" al principio?
2 - como lo uso con el BROWSE?
Gracias por tu ayuda
Claudio
Es muy buena la idea que me diste, voy a seguir tu ejemplo.
te consulto lo siguiente:
1 - tengo que incluir #include "adordd.ch" al principio?
2 - como lo uso con el BROWSE?
Gracias por tu ayuda
Claudio
- luisvasquezcl
- Posts: 1258
- Joined: Thu Jul 31, 2008 3:23 am
- Location: Chile
- Contact:
Re: Uso de ADORDD con Access
Hola Claudio,
1. Si, tienes que agregar el Adordd.ch
2. Lamentablemente no se puede utilizar el browse, sólo el grid.
Quedo atento a tus consultas,
Saludos cordiales,
Luis Vásquez
1. Si, tienes que agregar el Adordd.ch
2. Lamentablemente no se puede utilizar el browse, sólo el grid.
Quedo atento a tus consultas,
Saludos cordiales,
Luis Vásquez
-
- Posts: 132
- Joined: Thu Jul 31, 2008 12:05 pm
Re: Uso de ADORDD con Access
Hola Luis Vasquez
Te agradezco tu gentil ayuda.
Es posible si me podes indicar como asignar los campos del query al Grid?
Muchas gracias
Claudio
Te agradezco tu gentil ayuda.
Es posible si me podes indicar como asignar los campos del query al Grid?
Muchas gracias
Claudio
- luisvasquezcl
- Posts: 1258
- Joined: Thu Jul 31, 2008 3:23 am
- Location: Chile
- Contact:
Re: Uso de ADORDD con Access
Hola Claudio,
A continuación hay un ejemplo para cargar datos a un grid
Debes definir los ColumnFields del grid para que recepcione los valores originales del recordset.
Procedure Llenar_Grid(oRs)
Local Aux := {}
if oRs:Recordcount > 0
DoMethod( form1, grid1, 'DisableUpdate')
form1.grid1.deleteallitems
oRs:MoveFirst()
While !oRs:eof()
Aux = {}
for i:= 0 to oRs:fields:count - 1
aadd( Aux, oRs:fields(i):Value)
next
form1.grid1.additem( aux )
oRs:MoveNext()
End
DoMethod( form1, grid1, 'EnableUpdate')
oRs:MoveFirst()
End
form1.grid1.value := 1
form1.grid1.setfocus
Return
Voy a preparar un demo completo para que puedas ver como se utiliza ado.
mi msn luisvasquezcl@hotmail.com
Saludos cordiales,
Luis Vasquez
A continuación hay un ejemplo para cargar datos a un grid
Debes definir los ColumnFields del grid para que recepcione los valores originales del recordset.
Procedure Llenar_Grid(oRs)
Local Aux := {}
if oRs:Recordcount > 0
DoMethod( form1, grid1, 'DisableUpdate')
form1.grid1.deleteallitems
oRs:MoveFirst()
While !oRs:eof()
Aux = {}
for i:= 0 to oRs:fields:count - 1
aadd( Aux, oRs:fields(i):Value)
next
form1.grid1.additem( aux )
oRs:MoveNext()
End
DoMethod( form1, grid1, 'EnableUpdate')
oRs:MoveFirst()
End
form1.grid1.value := 1
form1.grid1.setfocus
Return
Voy a preparar un demo completo para que puedas ver como se utiliza ado.
mi msn luisvasquezcl@hotmail.com
Saludos cordiales,
Luis Vasquez
-
- Posts: 132
- Joined: Thu Jul 31, 2008 12:05 pm
Re: Uso de ADORDD con Access
Hola Luis
Te agradezco tu ayuda.
Voy a probar lo que me pasaste pr el forum.
Cuando tengas esa demo que vas a preparar avisame, mi correo es claudiotedesco@gmail.com
Saludos y muchas gracias.
Claudio
Te agradezco tu ayuda.
Voy a probar lo que me pasaste pr el forum.
Cuando tengas esa demo que vas a preparar avisame, mi correo es claudiotedesco@gmail.com
Saludos y muchas gracias.
Claudio