Saludos, me gustaria saber si se puede usar un DBCOMBO con un Query de MYSQL asi como se usa con una DBF, lo intente pero segun lo que vi en la clase, se hace con DBF o con ARRAY, si alguien tiene un sample, estare agradecido, gracias y saludos... 
oCatalogo:= oServer:Query( "SELECT * FROM catalogo ORDER BY codicont" )
oCatalogo:Gotop()
If oCatalogo:LastRec() != 0
oQuery:= oServer:Query( "SELECT * FROM catalogo WHERE CHAR_LENGTH(TRIM(codicont)) = '"+cvaltochar(LEN(NIV1))+"' ORDER BY codicont" )
While !oQuery:eof()
aadd(cItems,alltrim(oQuery:Codicont)+" "+oQuery:nombre)
oQuery:Skip()
Enddo
oQuery:End()
Else
MsgInfo("No hay registros en el catalogo")
Endif
REDEFINE ComboBox oCbx VAR cVar ID 109 OF oDlg ITEMS cItems ;
ON CHANGE ( oCatalogo:=oServer:Query("SELECT * FROM catalogo WHERE codicont LIKE '"+substr(cVar,1,len(NIV1))+"%' ORDER BY codicont;") ,;
oLbx:SetMySql(oCatalogo,.f.),;
oCatalogo:Refresh(),;
oLbx:Refresh() )Francisco, gracias por responder, pero lo que me dices es con COMBOBOX que usa un solo campo y lo que quiero es con DBCOMBO uso 2 campo, 1 que es lo qe muestro y otro que es lo que voy a guardar en mi tabla, ejemplo: codigo de producto y nombre producto, con DBCOMBO puedo mostrar la lista de nombres y cuando guardo en mi tabla, solo guardo el codigo. He manejado el DBCOMBO con 2 array y funciona de maravilla, cuando se usa con DBF funciona como quisiera que se usara con QUERY, gracias, saludos...
REDEFINE DBCOMBO aGetFP[9] VAR aVarFP[11] ID 109 OF oDlgFP UPDATE ; // BANCOS EMPRESA/NACIONALES
ITEMS aCtasBcos1 ; // LO QUE GUARDARE(codigo)
LIST aCtasBcos2 ; // LO QUE MOSTRARE AL USUARIO(nombre)
ON CHANGE( IF( aGetFP[9]:nAt > 0, aVarFP[7] := aCtasBcos2[aGetFP[9]:nAt], ) ) ; // TOMO NOMBRE BCO.
WHEN ( aVarFP[10] <> 1 ) // DIFERENTE A EFECTIVO
Un ejemplo cn array...
Prueba modificando la clase:
METHOD Fill() CLASS TDBCombo
// Refill aItems and aList from cAlias->cFldItem and cAlias->cFldList
LOCAL nOldRecNo
LOCAL nItem, nList
::aItems := {}
::aList := {}
IF ! HB_IsObject( ::cAlias )
IF ::cAlias == ""
* IF Empty( ::cAlias )
// There's no workarea defined, so do nothing.
RETURN NIL
END IF
IF SELECT( ::cAlias ) == 0
MsgAlert( "TDBCombo:Fill() - Alias '" + ::cAlias + "' does not exist." )
RETURN NIL
END IF
IF (nItem := (::cAlias)->(FIELDPOS( ::cFldItem ))) > 0
IF (nList := (::cAlias)->(FIELDPOS( ::cFldList ))) > 0
nOldRecNo := (::cAlias)->(RECNO())
// Make first record blank (so you can have an empty field)
(::cAlias)->(DBGOBOTTOM())
(::cAlias)->(DBSKIP())
AADD( ::aItems, (::cAlias)->(FIELDGET( nItem )) )
AADD( ::aList, (::cAlias)->(FIELDGET( nList )) )
(::cAlias)->(DBGOTOP())
DO WHILE ! (::cAlias)->(EOF())
AADD( ::aItems, (::cAlias)->(FIELDGET( nItem )) )
AADD( ::aList, (::cAlias)->(FIELDGET( nList )) )
(::cAlias)->(DBSKIP())
ENDDO
(::cAlias)->(DBGOTO( nOldRecNo ))
ELSE
msgAlert("TDBCombo:Fill() - Fieldname "+::cFldList+" not found.")
ENDIF
ENDIF
ELSE
::aItems := {}
::aList := {}
IF (nItem := ::cAlias:FIELDPOS( AllTrim(::cFldItem) )) > 0
IF (nList := ::cAlias:FIELDPOS( AllTrim(::cFldList) )) > 0
nOldRecNo := ::cAlias:RECNO()
// Make first record blank (so you can have an empty field)
::cAlias:GOBOTTOM()
::cAlias:SKIP()
AADD( ::aItems, ::cAlias:FIELDGET( nItem ) )
AADD( ::aList, ::cAlias:FIELDGET( nList ) )
::cAlias:GOTOP()
DO WHILE ! ::cAlias:EOF()
AADD( ::aItems, ::cAlias:FIELDGET( nItem ) )
AADD( ::aList, ::cAlias:FIELDGET( nList ) )
::cAlias:SKIP()
ENDDO
::cAlias:GOTO( nOldRecNo )
ELSE
msgAlert("TDBCombo:Fill() - Fieldname "+::cFldList+" not found.")
ENDIF
ENDIF
ENDIF
RETURN NIL
Saludos
...
EXTEND CLASS TDOLPHINQRY WITH METHOD FillDbf
...
FUNCTION FillDbf( cTable, cAlias, bOnStart, bOnEnd )
LOCAL Self := HB_QSelf()
LOCAL lCreated := FALSE
LOCAL aStructure := {}
LOCAL x, cOldAlias := Alias()
DEFAULT cTable := "SQLRESULT", cAlias := cTable, bOnStart := {|| NIL }, bOnEnd := {|| NIL }
Eval( bOnStart, Self )
IF SELECT( cAlias ) > 0
(cAlias)->( DBCloseArea() )
ENDIF
nCountF := ::FCount()
FOR x := 1 TO nCountF
AAdd( aStructure, { ::FieldName(x), ::FieldType(x), ::FieldLen(x), FieldDec(x) } )
NEXT
TRY
DBCreate( cTable, aStructure, "DBFCDX", TRUE, cAlias )
::GoTop()
DO WHILE !::Eof()
(cAlias)->( DBAppend() )
FOR x := 1 TO nCountF
(cAlias)->( FieldPut(x, ::FieldGet(x) ) )
NEXT
::Skip()
ENDDO
::GoTop()
(cAlias)->( DBGoTop() )
lCreated := TRUE
CATCH
IF SELECT( cAlias ) > 0
(cAlias)->( DBCloseArea() )
ENDIF
lCreated := FALSE
END
IF !Empty(cOldAlias)
DBSelectArea( cOldAlias )
ENDIF
Eval( bOnEnd, Self )
RETURN lCreated
... TRY
oQryClie := oServer:Query2( "SELECT NUM_CLIE, NOMBRE FROM CLIENTES WHERE NUM_RUTA=%1", { nRutaActual } )
oQryClie:FillDBF( "CLIE", "CLIE" ) //
oQryClie:END()
CATCH oError
ShowError( oError, { oQryClie } )
RETURN
ENDOk Carlos, el detalle es que igual es como si lo hiciese con array, lo que buscaba era hacerlo en forma directa con el Query asi como se hace con la DBF, igual probare tu sugerencia, gracias, saludos...