大家好,我现在又有一个新的问题。我以100分为谢(我最高还只能给100) quark(夸克) 有SQL server 吗?? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 backup database dbname to disk='c:\abc.bak' with init backup database dbname to disk='c:\abc.bak ' with init belllab(bell)我不是太懂,可以用在Delphi上吗?? //恢复数据过程procedure Tfrmmain.RestoreData;begin with Query do begin Close; SQL.Clear; if(Length(Label3.Caption)>3)then SQL.Text:=Format('restore database rsdata from disk=''%s'' with replace', [Label3.Caption+'\rsdata.bak']) else SQL.Text:=Format('restore database rsdata from disk=''%s'' with replace', [Label3.Caption+'rsdata.bak']); Prepare; try Caption:='正在恢复数据,请稍候...'; DataBase1.HandleShared := False; ExecSQL; Caption:='数据备份/恢复【数据恢复】'; MessageBox(Self.Handle,'数据恢复成功,即将退出!','确定', MB_OK+MB_ICONINFORMATION+MB_APPLMODAL); Close; except MessageBox(Self.Handle,'请确定已经断开数据库的所有连接后再恢复!','恢复出错', MB_OK+MB_ICONERROR+MB_APPLMODAL); Exit; end; end;end;//备份数据过程procedure Tfrmmain.BackupData;var Ssql: string;begin Ssql:='backup database rsdata to disk=:file with init'; with Query do begin Close; SQL.Clear; SQL.Add(Ssql); if(Length(frmmain.Label3.Caption)>3)then Params[0].Value:=frmmain.Label3.Caption+'\rsdata.bak' else Params[0].Value:=frmmain.Label3.Caption+'rsdata.bak'; prepare; try Caption:='正在备份数据,请稍候...'; Screen.Cursor := crHourGlass; ExecSQL; Caption:='数据备份/恢复【数据备份】'; Close; except MessageBox(Self.Handle,'数据备份出错!,请重新开始','错误', MB_OK+MB_ICONERROR+MB_APPLMODAL); Exit; end; end;end;注意数据恢复过程要在所有与数据库的联接都断开后才可以恢复成功 database rsdata 分别为什么???还有可以一次备份多个表吗??或者一次备份一个数据库 Query应连接到数据库的master表,应有备份/恢复权限Query.SQl.Text := 'backup datebase DBName ......';Query.ExecSQL; amiao(海燕) 我在用你给我的方法时,恢复数据库时,说我没有独占使用权,但我查过没有运行数据库。有什么方法吗?? 将数据读出INSERT INTO BACKUP表就行了很简单的。 masterjames(james) 不用restore 吗?? 在restore之前use master这样就不会使用要恢复的数据库了(当然不能有其它程序联结到此数据库) 有源码 怎么更改delphi生成的EXE的图标和显示的公司名称 50元加100分,解决一个小问题 动态菜单显示图标的问题 com元件路径 在Keypress事件中可以拦截方向键吗,方向键的char是多少 超级快速 “表达式编译类” 源代码!!! TComboBox下拉框的小问题,急!!! 求助,挺有意思的问题!!!!!!!! 关于关闭窗体的问题? 许久了,俺一直打算想学一学DELPHI,所以前些天买了N本DELPHI教程,但感觉基础不扎实,学起来有些不顺手。请问各位大哥,有什么介绍QBJECT PASCAL的精典教程吗??? Delphi连接数据库的问题 判断数据库是否连接成功?
procedure Tfrmmain.RestoreData;
begin
with Query do
begin
Close; SQL.Clear;
if(Length(Label3.Caption)>3)then
SQL.Text:=Format('restore database rsdata from disk=''%s'' with replace',
[Label3.Caption+'\rsdata.bak'])
else
SQL.Text:=Format('restore database rsdata from disk=''%s'' with replace',
[Label3.Caption+'rsdata.bak']);
Prepare;
try
Caption:='正在恢复数据,请稍候...';
DataBase1.HandleShared := False;
ExecSQL;
Caption:='数据备份/恢复【数据恢复】';
MessageBox(Self.Handle,'数据恢复成功,即将退出!','确定',
MB_OK+MB_ICONINFORMATION+MB_APPLMODAL);
Close;
except
MessageBox(Self.Handle,'请确定已经断开数据库的所有连接后再恢复!','恢复出错',
MB_OK+MB_ICONERROR+MB_APPLMODAL);
Exit;
end;
end;
end;//备份数据过程
procedure Tfrmmain.BackupData;
var
Ssql: string;
begin
Ssql:='backup database rsdata to disk=:file with init';
with Query do
begin
Close; SQL.Clear;
SQL.Add(Ssql);
if(Length(frmmain.Label3.Caption)>3)then
Params[0].Value:=frmmain.Label3.Caption+'\rsdata.bak'
else
Params[0].Value:=frmmain.Label3.Caption+'rsdata.bak';
prepare;
try
Caption:='正在备份数据,请稍候...';
Screen.Cursor := crHourGlass;
ExecSQL;
Caption:='数据备份/恢复【数据备份】';
Close;
except
MessageBox(Self.Handle,'数据备份出错!,请重新开始','错误',
MB_OK+MB_ICONERROR+MB_APPLMODAL);
Exit;
end;
end;
end;注意数据恢复过程要在所有与数据库的联接都断开后才可以恢复成功
或者一次备份一个数据库
Query.SQl.Text := 'backup datebase DBName ......';
Query.ExecSQL;
我在用你给我的方法时,恢复数据库时,说我没有独占使用权,但我查过没有运行数据库。
有什么方法吗??
很简单的。
这样就不会使用要恢复的数据库了(当然不能有其它程序联结到此数据库)