Respaldo y recuperacion

[[jcarteagaf]]

Para hacer Backup usa un componente TQuery (BDE) o TADOQuery (ADO) con el siguiente comando SQL:

Código SQL [-]
BACKUP DATABASE Nombre_Base_de_Datos
TO
  DISK =
 Archivo_de_Backup
WITH
  NOFORMAT,
  NOINIT,
  NAME = Nombre_Backup,
  NOREWIND,
  NOUNLOAD,
  NOSKIP

Y para hacer el Restore usa lo siguiente:

Código SQL [-]
RESTORE DATABASE Nombre_Base_de_Datos
FROM
  DISK =
Archivo_de_Backup
WITH
  FILE = 1,
  NOREWIND,
  NOUNLOAD,
  REPLACE

Donde
Nombre_Base_de_Datos= Nombre de tu base de datos
Archivo_de_Backup= Nombre del archivo en el que generaras el backup

Funcionara para SQL 7 o superior

Espero que te sirva.
Saludos

[flor]

hola gracias por la informacion investigue sobre esas sentencias y trate de aplicarlas pero me marca este error (ADOQuery2:CommandText does not return a result set) me podrias ayudar a identificar que estoy haciendo mal, muchas gracias.

[[jcarteagaf]]

El error que te marca es porque tu estas ejecutando el Metodo Open ,para que te funcione debes usar el ExecSql:

Código Delphi [-]
Adoquery2.ExecSql;

Saludos

[KELVIN RC]

a jcarteagaf yo trabajo con delphi 6 enterprise, wxp sp2 y ms sql server 2000 prodias ayudarme aclarandome un poco mas detallado la forma de como hacer el backup y restore a la bd, me conecto a la bd atraves de un TADOConnection

[[jcarteagaf]]

Hola, KELVIN RC si quieres usar el anterior ejemplo tienes que colocar un TADOQuery en tu aplicacion y colocarle el query que detallo a continuacion:

Código SQL [-]
BACKUP DATABASE
Nombre_Base_de_Datos
TO
  DISK =
Archivo_de_Backup
WITH
  NOFORMAT,
  NOINIT,
  NAME =
Nombre_Backup
,
  NOREWIND,
  NOUNLOAD,
  NOSKIP

Luego cambiar las lineas 1, 4 y 9 por los valores que tu desees. Puedes hacerlo en tiempo de diseño (los valores serian fijos) o en tiempo de ejecucion con instrucciones parecidos a los siguientes:

Código Delphi [-]
Adoquery1.sql[1] := Edit1.text; // en Edit1 tienes el nombre de la Base
Adoquery1.sql[4] := Edit2.text; // en Edit2 el nombre del archivo que quieres generar (incluido el path).
Adoquery1.sql[9] := Edit3.text; // Como se llamara el backup. puede tener el mismo nombre de la base
Adoquery1.Execsql;

La unica condicion es que la ruta del archivo donde generas el backup este en el mismo servidor que el SQL Server.
Lo mismo haces con el restore, pero para este ultimo la condición es la base de datos no este siendo utilizada. Espero que haber clarificado tus dudas.

Saludos

[KELVIN RC]

ESTE CODIGO LO COLOCO EN LA PROPIEDAD SQL DEL ADOQUERY
BACKUP DATABASE
PRESTAMOS
TO
DISK = E:\KELVIN
WITH
NOFORMAT,
NOINIT,
NAME = PRESTAMO,
NOREWIND,
NOUNLOAD,
NOSKIP

CUANDO INTENTO ACTIVARLO ME DA EL SIGUIENTE ERROR
OBJETO PÀRAMETER MAL DEFINIDO SE PROPORCIONO INFORMACION INCORRECTA O INCUERENTE

LO EJECUTO DE LA SIGUIENTE MANERA EN EL SQL QUERY ANALYZER

BACKUP DATABASE
PRESTAMOS/*ES EL NOMBRE DE LA BASE DE DATOS*/
TO
DISK = 'E:\KELVIN'/*ES LA RUTA DONDE QUIERO GUARDAR EL ARCHIVO*/
WITH
NOFORMAT,
NOINIT,
NAME = 'PRESTAMO_Backup',/*AQUI NO SE K PONER Y LO DEJE = */
NOREWIND,
NOUNLOAD,
NOSKIP
Y AKI ME FUNCIONA

GRACIAS POR TU ATENCION

[[jcarteagaf]]

El error que te muestra es debido a que estas usando el archivo destino sin comillas en tu ejemplo dice:

E:\KELVIN

y deberia decir

'E:\KELVIN'

En el ejemplo que te di no tome en cuenta eso, para enviarlo con comillas usa lo siguiente:

Código Delphi [-]
Adoquery1.sql[4] := QuotedStr(Edit2.text);

Saludos.