Visualizar el resultado de una consulta en un TXT

[dsa132132]

Hola gente!

Me gustaría saber cómo visulalizar el resultado de una consulta SQL en un .TXT y saber si daría lo mismo que la SQL estuviera en el DataModule o escrita por código desde el mismo formulario.

Muchas Gracias.

[jhonny]

Me gustaría saber cómo visulalizar el resultado de una consulta SQL en un .TXT y saber si daría lo mismo que la SQL estuviera en el DataModule o escrita por código desde el mismo formulario.

Es algo confuso lo que dices, o yo soy el unico que no entiende...

Si lo que quieres es escribir un sql en un archivo txt y luego cargarlo en runtime a un componente TQUery para luego ejecutarlo puedes usar lo siguiente:

Código Delphi [-]
Query.SQL.LoadFromFile(NombreDelArchivo.txt)

Y para tu segunda inquietud... pues si daria lo mismo.

[dsa132132]

Hola jhonny

Tal vez me he explicado mal, lo siento. Lo que quisiera hacer es visulalizar el resultado de la query (que yo hago en delphi) en un fichero .txt

Por ejemplo; En mi aplicación ejecuto la query (' select nombre from alumnos ') y quisiera que el resultado de esa query ( todos los nombres de la tabla alumnos) se visualice en un fichero txt.

Espero que esta vez me haya explicado (mas o menos) bien.

Gracias por tu interes y por la respuesta anterior, aunque no era lo q buscaba he aprendido algo mas.

Muchas gracias.

[marcoszorrilla]

Prueba con este otro ejemplo a ver si es lo que pides:

Código Delphi [-]
 implementation
 
 {$R *.DFM}
 procedure QueryToCSV(QueryName:TQuery);
 var
 i,j: integer; (*i-field, j-record*)
 s: string; (*Record string*)
 theStringList: Tstringlist; (*temp storage*)
 
 begin
 s:='';
 theStringList:=TStringList.Create;
 
   with QueryName do
   begin
   try
   Active:=True;
   except
   showmessage('No puedo abrir la consulta '+ Name);
   end;
 
     for j:=0 to (RecordCount-1) do
     begin
       s:='';
         for i:=0 to (FieldCount-1) do
         begin
         (*add next field w/comma delimiter*)
         s:=s+(Fields[i].AsString)+',';
         end; (*i for*)
       theStringList.add(s);
       Next;
     end; (*i for*)
 
   theStringList.savetofile('D:\MiTxt.csv'); (*memo1.lines.*)
   Showmessage('El Archivo MiTxt.CSV se creó con exito.');
   close;
   end; (*with*)
 end; (*BackupTableToCSV*)
 
 procedure TForm1.Button1Click(Sender: TObject);
 begin
  QueryToCSV(Query1);
 end;

Un Saludo

[jhonny]

mmm, la respuesta de marcos es fenomenal, pero si yo estuviera usando BDE tambien pensaria en usar entonces el TBathMove Con este componente puedo escribir facilmente un txt.

[dsa132132]

Muchas Gracias a ambos!!

Todavía no he tenido la ocasión de probar las soluciones que me habéis dado, en cuanto pueda os dire como he quedado.

Miraré en la ayuda como funciona el componente TBathMove, por ver si puedo simplificar al máximo la solucion pq no tengo demasiada experiencia en Delphi.

Gracias y Saludos.