BackUp

[[enecumene]]

Tomando como ejemplo el codigo del amigo Caral:

Código SQL [-]
var
Ruta, campo: String;

Begin
Ruta := 'C:\TuCarpeta\Backup.Text';
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Text := 'select * from tabla where campo = 'tal cosa'';
Adoquery1.ExecSQL; -> o tambien puede ser Open
Adoquery1.SAvetoFile(Ruta);

End;

Saludos.

[[Caral]]

Hola
Excelente enecumene, eres un maestro.
Saludos

[[enecumene]]

Empezado por Caral

Hola
Excelente enecumene, eres un maestro.
Saludos

Que va Hombre, aprendi de otro Maestro (Usted).

Saludos.

[Buelos]

hola he leido con atencion y esto es justo lo ke necesito pero yo no uso adoquery's en mi aplicacion si no Query, y este no posee la propiedad savetofile, he buscado otras para ver si con alguna me funciona pero no la he encontrado, agradeceria si me pudieran ayudar con eso, pasar el resultado de la consulta del query a un archivo txt, muchas gracias

[[Delphius]]

Empezado por Buelos

hola he leido con atencion y esto es justo lo ke necesito pero yo no uso adoquery's en mi aplicacion si no Query, y este no posee la propiedad savetofile, he buscado otras para ver si con alguna me funciona pero no la he encontrado, agradeceria si me pudieran ayudar con eso, pasar el resultado de la consulta del query a un archivo txt, muchas gracias

Bueno, que no tenga el SaveToFile no implica que no se pueda. En tu caso lo que puedes hacer es leer el conjunto de registros devueltos por tu TQuery e ir almacenandolos en algun TStringList o un Stream. Y dejar que estos objetos guarden el archivo ya que cuentan con el método adecuado: SaveToFile.

El dilema es que deberás indicar tu mismo como "estructurar" tus datos.

Por ejemplo, si se trata de una sola columna se puede hacer algo como esto:

Código Delphi [-]
Archivo := TStringList.Create;
TuQuery.First;
while NOT TuQuery.Eof do
  begin   
    Archivo.Add(TuQuery.Fields[0].asString);
    TuQuery.Next;
  end;
Archivo.SaveToFile(TuRuta);

Espero que se entienda la idea. El código lo escribí al vuelo, pero creo puede ir.

Saludos,

[Buelos]

Muchisimas gracias por la respuesta, era justo lo ke necesitaba, me funciona a la perfeccion, de nuevo muy agradecido por la atencion prestada y la ayudada brindada, gracias vemos