Llenar un String con datos de una SQL

[jafera]

Buenas a todos de nuevo.

Uso Delphi 6 y Firebird 1.5

Os explico mi problema:

Tengo un formulario donde he colocado un componente IBSQL para que me busque datos de una tabla.

Tengo creada una var zona1 :string;

Código Delphi [-]
 
private
    { Private declarations }
  public
    { Public declarations }
    Zona1 : String;
  end;

Necesito poder llenar este string con los datos de la SQL, el formato debe ser dato1, dato2, dato3,...datoz, creo que debo hacer algo así pero no consigo nada

Código Delphi [-]
SQLZona1.Close;
SQLZOna1.Open;
While not SQLZona1.Eof do
        begin
                    Zona1.....      No me aclaro aquí
        end;

Gracias a todos

Josep

[marcoszorrilla]

Empezado por jafera

Buenas a todos de nuevo.

Uso Delphi 6 y Firebird 1.5

Os explico mi problema:

Tengo un formulario donde he colocado un componente IBSQL para que me busque datos de una tabla.

Tengo creada una var zona1 :string;

Código Delphi [-]
 private     { Private declarations }   public     
{ Public declarations }     

Zona1 : String;   
end;

Necesito poder llenar este string con los datos de la SQL, el formato debe ser dato1, dato2, dato3,...datoz, creo que debo hacer algo así pero no consigo nada

Código Delphi [-]
SQLZona1.Close; SQLZOna1.Open; While not SQLZona1.Eof do
        begin
                    Zona1:=Zona1+SQLZona1.Fields[0].AsString;        
end; 

Gracias a todos

Josep

Si no he entendido mal algo como lo anterior te valdría.

Un Saludo.

[jafera]

Gracias Marcos, pero me entra en un bucle sin fin.

La consulta es super sencilla y funciona bien con el IBConsole

select * from RE0001
where Zona = 1
order by Poblacio

los campos son tres C_Postal, Poblacio y Zona

No entiendo el porque

Josep

[jafera]

Creo que faltaba el SQLZona1.Next

Hasta luego

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

Empezado por jafera

...pero me entra en un bucle sin fin.

Es lo mínimo que puede pasar si uno no cambia de registro...

Código Delphi [-]
SQLZona1.Close; 
SQLZOna1.Open; 
While not (SQLZona1.Eof) do begin
   Zona1 := Zona1 + SQLZona1.Fields[0].AsString;        
   SQLZona1.Next;
end;