Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Como pasarle un valor a un Combobox desde un campo (https://www.clubdelphi.com/foros/showthread.php?t=36106)

Arturo 02-10-2006 19:30:31

Como pasarle un valor a un Combobox desde un campo
 
saludos club:
estoy programando con los componentes standard para recuperar los datos de una varios campos de una Base de datos, no se por que con un combobox no le puedo pasar un valor extraido de un campo y en dado caso a veces me sale el desplegado de item que tiene ese comboboxy otras no.

Código Delphi [-]
 
// cuendo quiero ver algun dato en un edit coloco esta parte de codigo
txtNombre.text := Trim(FieldByName('Nombre').AsString);

// en el caso de combo box no me pasa el valor, y no me algun error al compilar
txtEQ_SO.Text := Trim(FieldByName('EQ_SO').AsString);

// en el combobox desde el object inspector me introdusco los valor que contendra en la propiedad Items.

En que estoy mal, hace falta algo mas.

Caral 02-10-2006 19:51:51

Hola Arturo
Supongo que tu combobox se llama txtEQ_SO., bueno:
Trata con:
Código Delphi [-]
txtEQ_SO.Items.Add(' ');
Con esto deberia incrementar la lista de lo que hay en el combobox, dentro de los parentesis de este pones lo que vas a adherir al combo.
Espero te sirva
Saludos

subzero 02-10-2006 23:52:14

Otra idea:


Que te parece, borras lo que tienes en el combobox y realizas la consulta por medio de un query y lo agregas al combo así:

Código:

//borras el contenido del combo
combobox.Items.Clear;

with IBQuery do
begin
  close;
  sql.clear;
  sql.add('select campo from tabla');
  open; first;
  if Not IsEmpty then
  begin
      while Not EOF do
      begin
        combobox.items.add(FieldByName('campo').AsString);
        next;
      end;
  end;
end;

Espero te sirva...


La franja horaria es GMT +2. Ahora son las 18:02:03.

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