Respaldo y recuperacion

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

[[jcarteagaf]]

El problema esta en llamar a Active

Código Delphi [-]
procedure TForm2.Button2Click(Sender: TObject);
begin

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

Solo deberias llamara Execsql

Código Delphi [-]
procedure TForm2.Button2Click(Sender: TObject);
begin
Adoquery2.ExecSQL;
end;

Utilizas Active := true u Open para abrir datasets que devuelvan un conjunto de datos, en cambio execsql ejecuta las instrucciones sql, que no necesariamente devolveran datos a la aplicación.

Saludos.

[[Lepe]]

Dicho de otra forma:

Cuando el SQL es de seleccion (un SELECT *) se usa Active:= true (o bien adoquery1.Open que es lo mismo)

Cuando el SQL es de acción ( UPDATE, DELETE, ALTER TABLE, BACKUP) se usa ExecSql.

bye