Ada ga yang punya script backup-restore database MSSQL Server dari Delphi? Sementar ini backup langsung dari MSSQL

saya punya script u/ backup (saya pake MSSQL2000), tp dengan option yang paling sederhana. mungkin script ini bisa dibuatkan stored-proc.nya supaya bisa di exec dari delphi [code:1:24ca607b48] declare @Disk varchar (100) set @Disk = 'lokasi' + 'database_name ' + convert (varchar(100), YEAR (getdate())) + convert (varchar(100), MONTH (getdate())) + convert (varchar(100), DAY (getdate())) BACKUP DATABASE [database_name] TO DISK = @Disk [/code:1:24ca607b48] bagian database_name diganti nama database dan [i]lokasi[i/] diganti path yang valid contoh: [code:1:24ca607b48] declare @Disk varchar (100) set @Disk = 'D:\Auto Backup' + 'SIAtest ' + convert (varchar(100), YEAR (getdate())) + convert (varchar(100), MONTH (getdate())) + convert (varchar(100), DAY (getdate())) BACKUP DATABASE [SIAtest] TO DISK = @Disk [/code:1:24ca607b48] kebetulan saya dah pake (memanfaatkan DTS) dan saya bikin job sehingga bisa backup tiap hari. cmiiw

oya, untuk restore nya bisa dicoba perintah: RESTORE DATABASE [db_name] FROM DISK = '[lokasi_backup]' tapi, maap. saya blm pernah coba

dari sqlservercentral.com [sql:1:5e80f7cace] declare @IDENT INT, @sql varchar(1000), @DBNAME VARCHAR(200) select @IDENT=min(DBID) from SYSDATABASES WHERE [DBID] > 0 AND NAME NOT IN ('PUBS', 'NORTHWIND', 'TEMPDB') while @IDENT is not null begin SELECT @DBNAME = NAME FROM SYSDATABASES WHERE DBID = @IDENT /Change disk location here as required / SELECT @SQL = 'BACKUP DATABASE '+@DBNAME+' TO DISK = ''I:\MSSQL\BACKUP'+@DBNAME+'.BAK''WITH INIT' PRINT @SQL EXEC (@SQL) select @IDENT=min(DBID) from SYSDATABASES WHERE [DBID] > 0 and DBID>@IDENT AND NAME NOT IN ('PUBS', 'NORTHWIND', 'TEMPDB') end [/sql:1:5e80f7cace]