谢谢!
解决方案 »
- 有没有字符串模糊匹配函数?
- 那里能下载Delphi2009?
- 大家帮忙看看这个编译警告是什么意思?
- 请问如何备份远程数据库(ACCESS的)
- 现在要实现一个导出和导入数据的功能
- 现在有form1与form2两个窗体,我怎样才能按F2键切换这两个窗体??
- $$$ Opengl开发的3D场景展示:MatrixScrv) v2.1 $$$ 各位兄台给小弟,一点建议。
- 今天还有人在吗?编辑时出现“ File not found: 'DBGridEh.dcu'”!
- 在DELPHI中使用ADO对象存取ODBC数据应注意什么?
- 关于ACTIVEFORM+DATAMODULE的问题,急急急,在线等待!!!!!!
- 谁有<<Delphi深度编程及其项目应用开发>>这本书?书中的实例的数据库如何使用,解决者马上给分!!!!!!!!!
- 如何动态创建控件
restore database name from disk='c:\a.bak' with replace //备份。在恢复之前需要将所有的连接断开。备份就不必了。
能说详细一些么?我是菜鸟
将adoquery1连接到adoconnection1with adoquery1 do
begin
active:=false; //name 是你的数据库 ,备份到c:盘
sql.add('use master backup database name to disk='c:\name.bak' with init');
execsql;
end;
@bakequip int, -- 备份设备:磁盘&磁带
@bakpath varchar(50), -- 带全路径的备份文件名
@baktype int, -- 完全备份&增量备份
@baklog int, -- ‘0’备份日志
@bakdb int, -- ‘0’备份数据库
@kind varchar(7), --备份还是恢复
@retmsg varchar(20) output --返回信息
AS
DECLARE @DevName_data varchar(50)
DECLARE @DevName_log varchar(50)
declare @db_path varchar(100)
declare @log_path varchar(100)
DECLARE @RC INT SELECT @db_path = @bakpath + '.dat'
SELECT @log_path = @bakpath + 'log.dat'
SELECT @RC=0 DBCC CHECKDB(Northwind)
/***********************************************************
** CREATE BACKUP AND RESTORE DEVICES
************************************************************/
IF @RC=0
BEGIN
EXEC sp_addumpdevice 'disk', @DevName_data,@db_path
exec sp_addumpdevice 'disk', @DevName_log,@log_path
select @rc=@@error
IF @RC<>0
begin
EXEC SP_DropDevice @Devname_data
exec sp_dropdevice @devname_log
SELECT @RC=-1000
return @rc
end
END
IF @kind='backup'
BEGIN
IF @bakequip=0
BEGIN
IF @baktype=0
BEGIN
IF @bakdb=0
BEGIN
BACKUP DATABASE Northwind TO DISK=@Devname_data
WITH INIT
END
IF @baklog=0
BEGIN
BACKUP LOG Northwind WITH NO_LOG
BACKUP LOG Northwind TO DISK=@DevName_log
WITH INIT,NO_TRUNCATE
END
END
ELSE BEGIN
IF @bakdb=0
BEGIN
BACKUP DATABASE Northwind TO DISK=@DevName_data
WITH NOINIT
END
IF @baklog=0
BEGIN
BACKUP LOG Northwind WITH NO_LOG
BACKUP LOG Northwind TO DISK=@DevName_log
WITH NOINIT,NO_TRUNCATE
END
END
END
SELECT @retmsg='数据库备份成功!'
END
IF @kind='restore'
BEGIN
RESTORE DATABASE Northwind FROM DISK= @DevName_data WITH REPLACE
SELECT @retmsg='恢复数据库成功!'
END
RETURN 0
begin
active:=false;
sql.add('exec 库名..GY_DBBak 你的参数');
execsql;
end;