BackUp

[LENOCB]

Hola
hago una consulta es posible hacer como digamos un backup y copiar la bd en un archivo de texto ; con el siguiente formato :
Sistema Contraseña /s
Contraseña1
Contraseña2
Grupos y Contraseñas
Nombre del Grupo: Nombre1
Contraseñas Grupo:
Usuario:
Clave:
**
Usuario:
Clave:
**
Nombre del Grupo: Nombre2
Contraseñas Grupo:
Usuario:
Clave.
etc;etc;
en la bd hat 2 tablas, en una se almacenan los grupos y en la otra las contraseñas (todas, cada una lleva de que grupo es)
se puede ? o algo parecido ??

[jachguate]

Respondiendo a tu duda:

Empezado por LENOCB

se puede ? o algo parecido ??

si, ¡si se puede!

Hasta luego.

[[Caral]]

Hola
Me alegro que jachguate amaneciera de buen homor
Esto que quieres hacer, me imagino que se podra usando el comando SaveToFile.
De esto, como de otras muchas cosas, no se, pero me imagino que tendrias que tomar la referencia de los campos que quieres guardar y posteriormente guardarlos (no estoy seguro si se podra todo de un golpe).
Yo creo que se podria hacer algo asi:

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

Begin
Ruta:= 'C:\TuCarpeta\Backup.Text';
Adoquery1.Files[0].Value:= Campo;
Campo.text.SaveToFile(Ruta);

Estoy casi seguro que no funciona, pero de las malas ideas se han hecho algunos ricos.
Saludos

[jachguate]

Empezado por Caral

Hola
Me alegro que jachguate amaneciera de buen homor

Aún así, no me alejo de aquello de la calidad de las preguntas. El buen humor viene porque la varita mágica que me ayudaba a adivinar se me quebró... y me divierte mucho

[[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