[kapcomx]

ESPERO ESTE EJEMPLO TE SIRVA HAGO UNA CONSULTA Y EL RESULTADO LO AGREGO AL COMBO ....


//hago la consulta..

Código Delphi [-]
with QUERY1 do   
begin
close;
sql.clear;
sql.add('SELECT * FROM CLIENTES');
execSQL;
open;
end;

COMBOBOX1.Clear; //LIMPIO EL COMBO
COMBOBOX1.Items.Add('TODOS'); //OPCIONAL 

//HAGO UN RECORRIDO EN EL RESULTADO DE LA CONSULTA Y LLENO EL COMBO
QUERY1.First;
WHILE NOT (QUERY1.EOF) DO
BEGIN
   COMBOBOX1.Items.Add(QUERY1.FieldValues['CLIENTE']);
QUERY1.Next;
end;

SALUDOS...