Cómo colocar el resultado de una consulta en un ComboBox???
 

Buenas!

Tienes dos opciones:
1) Utilizar un DBCombobox ligado a uno de los campos de tu consulta
2) Añadir a mano cada uno de los regsitros recorriendo el Query:

Código Delphi [-]
while not(Query1.eof) do
begin
    combo.items.add(Query1.fieldByName('blabla').asString;
    Query1.next;
end;

Un saludo

Edu

Saludos

Respecto al punto 1 de epuigdef creo que es mejor usar un DBLookUpComboBox, pues el DbComboBox no mostrara la lista de registro

Hola!!!

Gracias por su atención!!!

Bueno lo que realicé fue la combinación de los dos puntos que sugirió epuigdef.

1) Utilizar un DBComboBox y ligarlo a la consulta
2) Posteriormente añadir cada uno de los registros de la consulta, como lo sugirió.

Porque efectivamente como dijo vtdeleon, el DBComboBox no mostrará la lista de registros con solo ligarlo a la consulta, este solo muestra el primero de ella.

Con lo que respecta a utilizar un DBLookUpComboBox, lo intenté pero no encontré la propiedad que me muestra la lista de la consulta...

Pero seguiré intentando y espero pronto decirles que pasó!!!

Muchas gracias nuevamente!!!!

Saludos
Las propiedades a usar son: ListSource, ListField, KeyField.

Hola
Gusanita
Tengo el mismo problema tuyo con la diferencia que no puedo utilizar el DBLookupcombobox, pudiste encontrar una solucion para que la compartas :)

gracias

Gusanita, me paso lo mismo que a vos. Genere este codigo, pero sigo sin poder cargar mi combo...

procedure TfNuevoSocio.FormCreate(Sender: TObject);
var
q : TSQLQuery;
s : TDatasource;
begin
try
q := TConexion.getQuery;
q.SQL.Text := Concat(' Select codigoProvincia, Provincia '#13,
' From Provincias ');
s := tdatasource.Create(self);
s.DataSet := q;
q.Open;
cbProvincia.ListSource := s;
cbProvincia.ListField := 'Provincia';
cbProvincia.KeyField := 'codigoProvincia';

finally
FreeAndNil(q);
end;
end;

Cargar combo a mano con ID - DESCRIPCION
 

Esta es la forma que utilizo yo, espero les sirva

CargarCombo:
Donde el sql de query es algo del estilo: "select id, descripcion from tabla"

Código Delphi [-]
Combo.Items.Clear;
while not query.eof do
begin
   Combo.Items.AddObject(query.FindField('Descripcion').asString, TObject(query.FindField('Id').asInteger));
   query.next;   
end;

Esto lo que hace es guardar un objeto asociado al string del combo, ese objeto es el id
Luego, para saber que id se selecciono en el combo hago lo siguiente

Código Delphi [-]
if Combo.ItemIndex=-1 then
begin
   id:= integer(Combo.Items.Objects[Combo.ItemIndex]);
end;

Saludos
Pablo

correccion!!!
 

Perdón, donde puse

Código Delphi [-]
if Combo.ItemIndex=-1 then

debi ir

Código Delphi [-]
if Combo.ItemIndex<>-1 then

Ahora si....