Estoy bloqueado en el acceso a Datos
Publicado: Lun Dic 05, 2005 12:42 pm
Estoy intentando acceder a una tabala de una BD FireBird mediante ODBC, utilizo un TOdbcDataSource como detallo en el ejemplo y creo
WITH OBJECT ::oOdbcData
if !:lConnected
:cConnect :="Driver=Firebird/InterBase(r) driver;"+;
"Dbname=192.168.1.101:c:depositoDbarqueo.fdb;"+;
"CHARSET=NONE;"+;
"PWD=1234;"+;
"UID=ADMIN;"+;
"Client=H:Archivos de programaFirebirdFirebird_2_0binfbclient.dll"
:lConnected := .T.
endif
if :lConnected
::oDataSet := :NewDataSet( "Select DESCRIPCION from CAJAS" )
::oDataSet:OnComplete := {|| ::RellenaList() }
::oDataSet:Open()
endif
END WITH
Hasta aqui todo bien, aparentemente
Pero cuando se me ejeuta el metodo ::RellenaList(), no se como acceder a los registros de la consulta que hay en ::oDataSet, siempre se lo he asignado a un browser, pero necesito acceder directamente por codigo y estoy bloquedo, he rebuscado en los ejemplos y no encuentro una solución.
Saludos
Pedro Amaro
--
WITH OBJECT ::oOdbcData
if !:lConnected
:cConnect :="Driver=Firebird/InterBase(r) driver;"+;
"Dbname=192.168.1.101:c:depositoDbarqueo.fdb;"+;
"CHARSET=NONE;"+;
"PWD=1234;"+;
"UID=ADMIN;"+;
"Client=H:Archivos de programaFirebirdFirebird_2_0binfbclient.dll"
:lConnected := .T.
endif
if :lConnected
::oDataSet := :NewDataSet( "Select DESCRIPCION from CAJAS" )
::oDataSet:OnComplete := {|| ::RellenaList() }
::oDataSet:Open()
endif
END WITH
Hasta aqui todo bien, aparentemente
Pero cuando se me ejeuta el metodo ::RellenaList(), no se como acceder a los registros de la consulta que hay en ::oDataSet, siempre se lo he asignado a un browser, pero necesito acceder directamente por codigo y estoy bloquedo, he rebuscado en los ejemplos y no encuentro una solución.
Saludos
Pedro Amaro
--