Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   BackUp (https://www.clubdelphi.com/foros/showthread.php?t=52072)

LENOCB 09-01-2008 17:55:47

BackUp
 
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 09-01-2008 18:09:14

Respondiendo a tu duda:
Cita:

Empezado por LENOCB (Mensaje 256960)
se puede ? o algo parecido ??

si, ¡si se puede! :D

Hasta luego.

;)

Caral 09-01-2008 18:37:13

Hola
Me alegro que jachguate amaneciera de buen homor:D;)
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.:D
Saludos

jachguate 09-01-2008 18:53:56

Cita:

Empezado por Caral (Mensaje 256968)
Hola
Me alegro que jachguate amaneciera de buen homor:D;)

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 :D:D:D

enecumene 09-01-2008 19:07:26

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 09-01-2008 19:36:04

Hola
Excelente enecumene, eres un maestro.
Saludos

enecumene 09-01-2008 19:44:12

Cita:

Empezado por Caral (Mensaje 256989)
Hola
Excelente enecumene, eres un maestro.
Saludos

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

Saludos.

Buelos 08-08-2008 03:49:27

mismo problema pero con query
 
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 08-08-2008 04:38:18

Cita:

Empezado por Buelos (Mensaje 306473)
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 14-08-2008 16:28:50

Muchas gracias
 
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


La franja horaria es GMT +2. Ahora son las 07:39:31.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi