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

[gusanita]

Hola!!!

Estoy trabajando con Delphi 5, mi Base de Datos esta en Access.

Realizo el Query de una consulta a una tabla, solo hago la selección de una columna, por ejemplo con cinco registros; ahora mi problema es como colocar estos cinco registros en la propiedad Items de un ComboBox...

Espero puedan ayudarme.

Gracias por su atencion!!!

[epuigdef]

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

[vtdeleon]

Saludos

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

[gusanita]

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!!!!

[vtdeleon]

Saludos

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

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

[hecospina]

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

[rlavisse]

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;

[hach]

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

[hach]

Perdón, donde puse

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

debi ir

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

Ahora si....