Respaldo y recuperacion

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

[KELVIN RC]

Con Eso Se Resolvio El Problema Solo Hacian Falta Las Comillas Pero Ahora,
El Archivo Generado En E:\kelvin Se Aumenta Sin Cambiar Nada En El Sistema, Ose Sin Hacer Ninguna Entrada O Transaccion Si Se Realiza 2 Veces El Backup Se Aumenta,
Sabes A Que Se Deve Esto Y Como Resoberlo

Gracias Por Tu Tiempo

[[jcarteagaf]]

Si, SQL crea "versiones" del backup sobre el mismo archivo.

Lo puedes hacer es controlar en tu aplicación si el archivo existe y eliminarlo antes de hacer el backup:

Código Delphi [-]
if FileExists(NombredelArchivo) then
  DeleteFile(NombreDelArchivo)
.....
Ejecutar Backup

Saludos.

[KELVIN RC]

GRACIAS CON ESO SE RESOLBIO
PERO HAY QUE ARRECLAR ALGO QUE ES
if FileExists(NombredelArchivo)/* AQUI EL NOMBRE DEL ARCHIVO VA DENTRO DE COMILLAS*/ then DeleteFile(NombreDelArchivo)/* IGUAL AQUI CON SU RUTA CLARO*/.....Ejecutar Backup GRACIAS DE NUEVO