HMGforum.com

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.

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

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

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

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

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