Foros Club Delphi - Pasar datos de un Adoquery a un ListBox1

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Pasar datos de un Adoquery a un ListBox1 (https://www.clubdelphi.com/foros/showthread.php?t=227)

danytorres

08-05-2003 18:08:27

Pasar datos de un Adoquery a un ListBox1

Hola a todos, el problema que tengos, es que ejecuto un Adoquery que trae unos datos de una tabla de Sql, esos datos que posee la Query deseo pasarlos a un ListBox1, solo pasarlos mas no borrar los de la tabla. Se ve facil pero de verda no se como hacerlo. les agradeceria que me hayudaran.
----------------------------------------------------------------------------------

Un saludo...

delphi.com.ar

08-05-2003 18:22:16

Te recomiendo como mas sencillo usar un TDBLookupListBox. En la propiedad ListSource, le asignas un TDataSource relacionado con tu Query y en ListField, pones el campo que querés mostrar.

Suerte!

danytorres

08-05-2003 20:13:29

Lisbox

Gracias por responder, pero necesito estrictamente quesea un lisbox.
-----------------------------------------------------------------------------------

Un saludo...

guillotmarc

08-05-2003 20:32:52

Hola.

Entonces no tienes más remedio que añadirlos manualmente, registro a registro :

Código:

ADOQuery1.First;

ListBox1.Items.Clear;

while not ADOQuery1.Eof do begin

  ListBox1.Items.Add(ADOQuery1.FieldByName('Campo').AsString);

  ADOQuery1.Next;

end;

Saludos.

danytorres

08-05-2003 23:06:09

Seleccion

Mil gracias guillotmarc solucione parte del problema, la otra es que con los datos del Adoquery ya vaciados en el ListBox, necesito seleccionar uno de ellos (cuarquiera) y meterlo el un Edit para loego realizar unos procesos el codigo que aplica es el siguiente

Codigo Original
__________________________________________________

procedure TEscritorio.ListBox1Click(Sender: TObject);
begin
Edit1.Text:=ListBox1.Items.Text;
end;
__________________________________________________

Pero me trae todo lo que contiene el item, y lo que quiero que me traiga solo al que le hago clik.

--------------------------------------------------------------------------------

Un saludo.....

juan	09-05-2003 01:25:08

Trata esta forma

edit1.text:= listbox1.items[listbox1.Itemindex];

danytorres

09-05-2003 02:16:37

Gracias Juan el codigo que me diste funciona muy bien y resolbio el problema.
__________________

Un saludo....

La franja horaria es GMT +2. Ahora son las 09:26:51.