Uso de ADORDD con Access

[luisvasquezcl]

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.

[claudiotedesco]

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

[luisvasquezcl]

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

[claudiotedesco]

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

[luisvasquezcl]

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

[claudiotedesco]

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