----------------------------------------------------------------------------------------
procedure Tdatasetting.FlatButton1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('backup database hrdb to disk = ' + ''''+FlatEdit1.Text+'''');
ADOQuery1.ExecSQL;
showmessage('数据以成功备份成功!');
datasetting.Close;
end;
procedure Tdatares.FlatButton1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('restore database hrdb from disk = ' + ''''+FlatEdit1.Text+'''');
ADOQuery1.ExecSQL;
showmessage('数据以成功恢复成功!');
datares.Close;
end;
--有异常信息
try
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('backup database databasename to datadatadevice');
adoquery1.exec;
except
on E: Exception
ShowError('备份失败:' + E.Message);
end;
SQL Server数据库文件恢复技术
yzhshi(yzhshi@etang.com)
SQL Server数据库备份有两种方式,一种是使用BACKUP DATABASE将数据库文件备份出去,另外一种就是
直接拷贝数据库文件mdf和日志文件ldf的方式。
下面将主要讨论一下后者的备份与恢复。本文假定您能熟练使用SQL Server Enterprise Manager
(SQL Server企业管理器)和SQL Server Quwey Analyser(SQL Server查询分析器)
1、正常的备份、恢复方式
正常方式下,我们要备份一个数据库,首先要先将该数据库从运行的数据服务器中断开,或者停掉整个数
据库服务器,然后复制文件。
卸下数据库的命令:Sp_detach_db 数据库名
连接数据库的命令:Sp_attach_db或者sp_attach_single_file_db
s_attach_db [@dbname =] ′dbname′, [@filename1 =] ′filename_n′ [,...16]
sp_attach_single_file_db [@dbname =] ′dbname′, [@physname =] ′physical_name′
使用此方法可以正确恢复SQL Sever7.0和SQL Server 2000的数据库文件,要点是备份的时候一定要将
mdf和ldf两个文件都备份下来,mdf文件是数据库数据文件,ldf是数据库日志文件。
例子:
假设数据库为test,其数据文件为test_data.mdf,日志文件为test_log.ldf。
下面我们讨论一下如何备份、恢复该数据库。
卸下数据库:sp_detach_db 'test'
连接数据库:sp_attach_db 'test','C:/Program Files/Microsoft SQL Server/MSSQL/Data/test_data.mdf','C:/Program Files/Microsoft SQL Server/MSSQL/Data/test_log.ldf'
sp_attach_single_file_db 'test','C:/Program Files/Microsoft SQL Server/MSSQL/Data/test_data.mdf'
2、只有mdf文件的恢复技术
由于种种原因,我们如果当时仅仅备份了mdf文件,那么恢复起来就是一件很麻烦的事情了。
如果您的mdf文件是当前数据库产生的,那么很侥幸,也许你使用sp_attach_db或者
sp_attach_single_file_db可以恢复数据库,但是会出现类似下面的提示信息
设备激活错误。物理文件名 'C:/Program Files/Microsoft SQL Server/MSSQL/data/test_Log.LDF'
可能有误。
已创建名为 'C:/Program Files/Microsoft SQL Server/MSSQL/Data/test_log.LDF' 的新日志文件。
但是,如果您的数据库文件是从其他计算机上复制过来的,那么很不幸,也许上述办法就行不通了。
你也许会得到类似下面的错误信息
服务器: 消息 1813,级别 16,状态 2,行 1
未能打开新数据库 'test'。CREATE DATABASE 将终止。
设备激活错误。物理文件名 'd:/test_log.LDF' 可能有误。
怎么办呢?别着急,下面我们举例说明恢复办法。
A.我们使用默认方式建立一个供恢复使用的数据库(如test)。可以在SQL Server Enterprise Manager
里面建立。
B.停掉数据库服务器。
C.将刚才生成的数据库的日志文件test_log.ldf删除,用要恢复的数据库mdf文件覆盖刚才生成的数据
库数据文件test_data.mdf。
D.启动数据库服务器。此时会看到数据库test的状态为"置疑"。这时候不能对此数据库进行任何操作。
E.设置数据库允许直接操作系统表。此操作可以在SQL Server Enterprise Manager里面选择数据库服
务器,按右键,选择"属性",在"服务器设置"页面中将"允许对系统目录直接修改"一项选中。也可以
使用如下语句来实现。
use master
go
sp_configure 'allow updates',1
go
reconfigure with override
go
F.设置test为紧急修复模式
update sysdatabases set status=-32768 where dbid=DB_ID('test')
此时可以在SQL Server Enterprise Manager里面看到该数据库处于"只读/置疑/脱机/紧急模式"可以
看到数据库里面的表,但是仅仅有系统表
G.下面执行真正的恢复操作,重建数据库日志文件
dbcc rebuild_log('test','C:/Program Files/Microsoft SQL Server/MSSQL/Data/test_log.ldf')
执行过程中,如果遇到下列提示信息:
服务器: 消息 5030,级别 16,状态 1,行 1
未能排它地锁定数据库以执行该操作。
DBCC 执行完毕。如果 DBCC 输出了错误信息,请与系统管理员联系。
说明您的其他程序正在使用该数据库,如果刚才您在F步骤中使用SQL Server Enterprise Manager
打开了test库的系统表,那么退出SQL Server Enterprise Manager就可以了。
正确执行完成的提示应该类似于:
警告: 数据库 'test' 的日志已重建。已失去事务的一致性。应运行 DBCC CHECKDB 以验证物理一致
性。将必须重置数据库选项,并且可能需要删除多余的日志文件。
DBCC 执行完毕。如果 DBCC 输出了错误信息,请与系统管理员联系。
此时打开在SQL Server Enterprise Manager里面会看到数据库的状态为"只供DBO使用"。此时可以
访问数据库里面的用户表了。
H.验证数据库一致性(可省略)
dbcc checkdb('test')
一般执行结果如下:
CHECKDB 发现了 0 个
----------------------------------------------------------------------------------------
sql-dmo编程
sql-dmo的文件:
sqldmo.dll:实现sql-dmo对象的dll;
sqldmo.rll:本地化资源文件;
sqldmo.h:包含SQL-DMO的成员函数、类型、枚举数据类型和宏的C/C++文件;
sqldmoid.h:包含接口和类标识的c/c++头文件。
你这个问题好像就是不对,你的dmo,db,tb彼此都没有关联起来
试试这样:
procedure TForm1.Button1Click(Sender: TObject);
var
DMO,DB,TB: OLEvariant;
Str:string;
begin
Dmo:= CreateOleObject('SQLDMO.SQLServer');
DB:= CreateOleObject('SQLDMO.DataBase');
tB:= CreateOleObject('SQLDMO.table');
Dmo.connect('who','sa','');
db:=dmo.databases.item('pubs');
tb:=db.tables.item('jobs');
str:=tb.script();
showmessage(str);
end;
在w2000+D6+SQL2000没问题
补充一下:如果使用CreateOleObject的话,就不会出错了,为什么阿?
var
lSQLServer: OleVariant;
begin
lSQLServer:= CreateOleObject('SQLDMO.SQLServer.8.0');
lSQLServer.Connect('192.168.6.26','sa','net026');
。。。。。。
end.
关于SQL Server2000 DMO 在Delphi下的使用:
如何将SQLDMO.DLL导入为ActiveX控件?
使用Delphi自动生成的控件时,为什么要报错?
如果使用原生对象时,其事件如何触发?
SQLDMO.DLL不是ActiveX控件,不能导为ActiveX控件吧?
在Project-Import type library里可以导入生成单元文件
不过太大了,有4M多,我用D6没成功
导入时注意,报错的话不用管它,
在你的工程里uses它生成的单元文件就可以用了。
我使用SQL Server DMO对象对SQL Server Lof文件进行压缩,参看就不是很清楚了,需要老
兄自己研究研究。
uses
SQLDMO_TLB ;
var
svr : _SQLServer;
dbs : Databases ;
db : _Database ;
tlog : TransactionLog ;
logs : LogFiles ;
log : _LogFile ;
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer ;
p : ProPerty_ ;
begin
svr := CoSQLServer.Create() ;
svr.Connect('BRUCE', 'sa', EmptyParam);
// 连接到SQL Server数据库
// 参数: _SQLServer.Connect(&Server Name&, &User name&, &password&) ;
dbs := svr.Databases ;
for i := 1 to dbs.Count do
begin
if (dbs.ItemByID(i).Name = 'DFW') then
begin
db := dbs.ItemByID(i) ;
break ;
end;
end;
// 从SQL Server中选择名字为DFW的Database对象 - db
tlog := db.TransactionLog ;
logs := tlog.LogFiles ;
// 从_Database对象获得LogFiles对象
for i := 1 to logs.Count do
begin
if (logs.Item(i).Name = 'DFW_log') then
begin
log := logs.Item(i) ;
break ;
end;
end;
// 从LogFiles对象中选取名为DFW_log的_LogFile对象 - log
log.Shrink(10, EmptyParam);
// 将Log文件压缩到10M以下
svr := nil ;
end;
-----------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------------
在使SQL SERVER数据库进行数据备份和恢复时如何显示进度条?
是使用SQL语句进行备份和恢复的。
你可以試著將數據集設置為異步方式執行,這樣數據集就提供了二個事件進行進度顯示
(一個是進度,一個完成),具體么看幫助.
-----------------------------------------------------------------------------------------