Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Como ingresar datos a un DBCombobox (https://www.clubdelphi.com/foros/showthread.php?t=76676)

Niiña 17-11-2011 18:34:12

Como ingresar datos a un DBCombobox
 
Hola.. como puedo ingresar datos a un Tdbcombobox he buscado en otros hilos pero no los entiendo muy bien necesito la sintaxis correcta de como ingresarlos...
Estoy trabajando la base de datos en firebird y utilizando los componentes de TSQLquery, TIbConnection..
tengo una consulta que muestra un listado de los datos que quiero ingrsar en el combobox.. pero no se como ingresarlo y salgan todos..

Código Delphi [-]
    Query.Close;
    Query.SQL.Clear;
    Query.SQL.Add('SELECT b.MUESTRAL');
    Query.SQL.Add('FROM REGENSAYO a, HUMEDADNATURAL b');
    Query.SQL.Add('where a.IDENSAYO=b.IDENSAYO and a.IDENSAYO=5705 and ');
    Query.SQL.Add('a.IDMUESTRA=b.IDMUESTRA and a.IDMUESTRA=5701 and ');
    Query.SQL.Add('b.ALBARAN='P1' ');
    Query.open;

ayudaa.. :S

ecfisa 17-11-2011 19:26:59

Cita:

como puedo ingresar datos a un Tdbcombobox
Hola Niiña.

Para cargar un TComboBox o un TDBComboBox con un campo determinado, tendrías que agregar a continuación de la apertura de la consulta:
Código Delphi [-]
  ...
  while not Query.Eof do  //mientras haya registros
  begin
    DBComboBox1.Items.Add(Query.FieldByName('CAMPO_DESEADO').AsString);  // agregar valor del campo al combo
    Query.Next;  // siguiente registro
   end;
  Query.First; // regresar al primer registro (opcional)

Un saludo.

MartinS 17-11-2011 19:32:47

Podes ir recorriendo el listado del query e insertarlo en el DbCombo asi:

Código Delphi [-]
 
DBComboBox1.Items.Add(Valor)

y por si queres que no se repitan

Código Delphi [-]
if DBComboBox1.Items.IndexOf(Valor) <> -1  then
    DBComboBox1.Items.Add(Valor);

Creo que entendi la pregunta si no es así describi un poco mas el problema.. Saludos


La franja horaria es GMT +2. Ahora son las 05:50:32.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi