dbcombo para dolphin o ado

[carlos vargas]

Estimados, para no inventar el agua helada
alguien tiene desarrollado alguna clase similar a dbcombo (muestra un lista y retorna un codigo)
para para dolphin o ado?
es muy necesaria.

salu2

[nageswaragunupudi]

One quick and easy way is to read the data from ADO RecordSet or Dolphin Query into two arrays aItems and aList and then define DBCOMBO with these arrays

Example:
@ .... DBCOMBO ............ ITEMS aItems LIST aList ...........

For information next release of FWH natively provides for recoresets, dataobjects, etc.

Extract from whatsnew.txt to be released:

* Enhancement: DBCOMBO now works also with RecordSets, Dolphin Query, Any Object like TDataBase (which supports methods GoTop(), RecNo(), GoTo() and FieldGet( with name of the field )), Multidimensional arrays, Array of Hashes.
Usage: ALIAS oRs, ALIAS oQry, ALIAS oDbf, ALIAS aData, etc.

[elvira]

Great ++++1.

When will be ready the next reléase?.

Thanks

[carlos vargas]

thank you rao, i wait, for the momento i resolve with:

Code: Select all  Expand view

...
aItems := oRecordSet:GetRows()
...
redefine combobox nItem id 101 of oDlg prompts GetColFromArray( aItems, 1)
...
function GetColFromArray( aArray, nCol )
local aCol := {}
local aItem
default nCol := 1
if hb_isarray( aArray )
 for each aItem in aArray
   aadd( aCol, aItem[ nCol ] )
 next
endif
return aCol
 

[joseluisysturiz]

Esta claro que usando 2 array se resuelve temporalmente el problema y por los momentos es lo que hago asi:

oQryOpera := TDolphinQry():New( "SELECT * FROM delipollo_operadores " +; // MAESTRO OPERADORES CON FillArray
"ORDER BY opera_id", oDatos:oConex )
oQryOpera:GOTOP(); aOpera1 := oQryOpera:FillArray( , {"opera_id"} )
oQryOpera:GOTOP(); aOpera2 := oQryOpera:FillArray( , {"opera_nombre"} )

opera_ide y opera_nombre son los campos que llenaran los ARRAY, es decir el nombre a mostrar y el codigo a guardar, espero te ayude...

REDEFINE GET aGet[3] VAR aVar[3] ID 4050 OF oDlg PICTURE "@!" UPDATE READONLY ; // COD.OPERADOR
VALID ( IF( Empty( aVar[3] ), .t. ,;
( aVar[4] := aOpera1[ ASCAN( aOpera1, aVar[3] ) ], aGet[4]:REFRESH(), .t. ) ) ) ;
WHEN ( lNew )

REDEFINE DBCOMBO aGet[4] VAR aVar[4] ID 4001 OF oDlg UPDATE ; // NOMB.OPERADOR
ITEMS aOpera1 ; // LO QUE GUARDARA
LIST aOpera2 ; // LO QUE MOSTRARA
ON CHANGE( aVar[3] := aOpera1[aGet[4]:nAt], aGet[3]:REFRESH() ) ;
WHEN ( lNew )


pero cuando es DBF se hace mas rapido y comodo sin pasar por todo este trabajo, la idea seria que se pudiese hacer de la misma manera con el QUERY que con la DBF, es lo he intentado hacer desde hace tiempo, pero aun no lo consigo, igual que Carlos estoy en la misma solicitud, gracias, saludos...