Respaldo y recuperacion

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

[KELVIN RC]

ya se realiza a las mil maneras, pero prodrias ayudarme a ponerle una barra de progreso para que se vea un poco mas profecional

gracias de nuevo

[[jcarteagaf]]

Lastimosamente no hay forma de colocar una barra de progreso para indicar al
usuario como va la cosa.

Pero puedes usar el componente JVWaitingGradient de los componentes Jedi que indica que se esta haciendo un proceso.

Tambien vi un componente parecido al control que usa el Management Studio del SQL 2005 (una rueda que va cambiando de color) en los componentes TMS.

Saludos

[santi33a]

Yo para la salva cree un Procedimineto almacenado y lo llamo desde Delphi y me funciona bien, yo uso MSSQL Server 2000:

Código SQL [-]
CREATE PROCEDURE BACKUP_BD AS
SET LANGUAGE spanish
DECLARE  @BACKUP VARCHAR(60)
DECLARE  @DIRECTORIO CHAR(20)
DECLARE  @NOMBRE CHAR(60)
SET @DIRECTORIO = 'd:\'
SELECT @nombre = 'DB '+
 CASE Convert(char(1),datepart(dw,getdate()))
  when 1 then 'Lunes'
  when 2 then 'Martes'
  when 3 then 'Miercoles'
  when 4 then 'Jueves'
  when 5 then 'Viernes'
  when 6 then 'Sabado'
  when 7 then 'Domingo'
 end + ' '+
 Convert(char(2),DATEPART(dd,getdate()))+
 ' '+ 'de '+
 case Convert(char(2),datepart(MM,getdate()))
   when  01 then 'Ene'
   when  02 then 'Feb'
   when  03 then 'Mar'
   when  04 then 'Abr'
   when  05 then 'May'
   when  06 then 'Jun'
   when  07 then 'Jul'
   when  08 then 'Ago'
   when  09 then 'Sep'
   when  10 then 'Oct'
   when  11 then 'Nov'
   when  12 then 'Dic'
 End +' '+'del '+
 convert(char(4),datepart(yyyy,getdate()))+'.BAK' 
set @backup = rtrim(@directorio)+rtrim(@nombre)
checkpoint

BACKUP DATABASE RRHH to disk = @backup  with init
BACKUP LOG RRHH TO disk = @backup 

DBCC SHRINKFILE (RRHH_Log, 100)

para restaurar nunca lo pude hacer de Delphi, siempre me dice que la BD esta en uso y no le encontré solución por lo que cuando lo necesito lo hago desde el Interprise Maneger del MSSQL

[KELVIN RC]

gracias santi33a pero soy nuevoen esto y no entiendo mucho lo que me esplicas, y los componentes jedy los buscare y tratare de hacerlo funcional, si saben donde encontrarlos se los agradeceria

[flor]

hola ya puse el Adoquery2.ExecSQL; y aun me sale el mismo error cuando intento ejecutar la sentencia de sql del adoquery. el codigo que puse es el siguente:

procedure TForm2.Button2Click(Sender: TObject);
begin

ADOQuery2.Active:=true;
Adoquery2.ExecSQL;
end;

En la propiedad SQL del adoquery2 puse:

BACKUP DATABASE [JOY] TO DISK = C:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\BACKUP\JOY.BAK' WITH NOFORMAT, NOINIT, NAME = JOY-Full Database Backup', SKIP, NOREWIND, NOUNLOAD, STATS = 10

y el error es:

ADOQuery2: CommandText does not return a result set

necesito ayuda...