Ver la Versión Completa : Pasar datos de un Adoquery a un ListBox1
danytorres
08-05-2003, 18:08:27
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
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 :
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
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.....
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....
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.