Rellenar un ListBox con los registros de un campo de la BD

[[fjcg02]]

procedure TForm7.FormCreate(Sender: TObject);
begin
// Asigna la SQL y abre una sola vez, no cien ..
AdoQuery1.SQL.Add('SELECT distinct Poblacion FROM agenda');
AdoQuery1.Active:=true;
// recorre los registros
WHILE not AdoQuery1.EOF do
  begin
    // y asigna el valor de los campos de esa query que utilizas, y no otra
    ListBox1.Items.Add(AdoQuery1,Fields.FieldByName('Poblacion'.AsString);
    AdoQuery1.NEXT;
  end;
end;

Espero que te sirva de ayuda.

Un saludo

[[Nbull]]

Fjcg02 muchas gracias ya lo he solucionado, tenia que sacar la consulta fuera del While.Pero, ahora como quito los registros que estan vacios, Neftalí me dijo que con la propiedad Isnull del Field pero como llamo a esa propiedad.

Muchisimas gracias a los dos por vuestra ayuda.

Un Saludo

[Neftali [Germán.Estévez]]

Empezado por Nbull

...Pero, ahora como quito los registros que estan vacios, Neftalí me dijo que con la propiedad Isnull del Field pero como llamo a esa propiedad.

Algo así debería funcionar.

Código Delphi [-]
  procedure TForm7.FormCreate(Sender: TObject);
 begin
 // Asigna la SQL y abre una sola vez, no cien ..
 AdoQuery1.SQL.Add('SELECT distinct Poblacion FROM agenda');
 AdoQuery1.Active:=true;
 // recorre los registros
 WHILE not AdoQuery1.EOF do
   begin
     // Si es vacío no lo añado
     if not (AdoQuery1,Fields.FieldByName('Poblacion').IsNull) then begin
       // y asigna el valor de los campos de esa query que utilizas, y no otra
       ListBox1.Items.Add(AdoQuery1,Fields.FieldByName('Poblacion').AsString);
     end;
     AdoQuery1.NEXT;
   end;
 end;

[[Nbull]]

Neftalí muchisimas gracias ya he solucionado el problema pongo el código por si alguien que sea tan novato como yo lo necesita:

Código Delphi [-]
procedure TForm7.FormCreate(Sender: TObject);
begin
 AdoQuery1.SQL.Text:='SELECT distinct Poblacion FROM agenda';
 AdoQuery1.Active:=true;
 WHILE not AdoQuery1.EOF do
 begin
     If(Adoquery1.Fields.FieldByName('Poblacion').IsNull=false)Then
      begin
       ListBox1.Items.Add(Datasource3.DataSet.FieldByName('poblacion').AsString);
      end;
      AdoQuery1.Next;
 end;
end;

Un Saludo y muchas gracias

[Neftali [Germán.Estévez]]

Falta cerrar un paréntesis en:

Código Delphi [-]
 // y asigna el valor de los campos de esa query 
 // que utilizas, y no otra
 ListBox1.Items.Add(AdoQuery1,Fields.FieldByName('Poblacion').AsString);

y opcionalmente añadir el control para evitar un posible nulo, pero a ésto era a lo que yo me refería.


(Editado...)
NOTA: Veo que la aclaración llegó tarde...