本人想在DELPHI程序里面直接附加一个指定的数据文件。还有就是在DELPHI里面能够通过执行某一个命令直接将指定的数据库进行备份。
应该是很简单的问题,但是在很多书里面都没有找到答案,大家多给我一些提示吧!
多谢了!
最好能直接告诉我用法,呵呵。
总感觉是一个SQL SERVER存储过程的调用,但是就是招不到
应该是很简单的问题,但是在很多书里面都没有找到答案,大家多给我一些提示吧!
多谢了!
最好能直接告诉我用法,呵呵。
总感觉是一个SQL SERVER存储过程的调用,但是就是招不到
解决方案 »
- 我写的一个Delphi小程序,为什么
- 请教提交TWebBrowser按钮的问题,框架结构
- 关于如何用代码创建IIS的FTP站点的虚拟目录的问题!
- license information from TMScomm not found,you cannot use this control in design mode?
- 急!ListView中某一subitem项改变字体颜色的问题
- 关于adoquery的问题
- adoquery2.clone(adoquery1)后,怎么样count=''的过滤掉!
- Mastering Delphi 6 出来了哦!!!
- 谁来解决这个错误??????????
- 如何判断数据库中的NULL字段
- #######-->请高手指点,请问:怎么调用windowsAPI创一个位图,然后在这个位图中画图.
- 高手帮帮忙啊:如何把容器(比如panel)上的信息存成图片啊?
你应该去数据库版问的
mysql='backup database db_cle to disk='c:\feng.bak'';
with adoquery do
begin
close;
sql.clear;
sql.text := mysql;
try
execsql;
except
showmessage('error');
end;
end;
数据库恢复:
DM.CLE_Connect.Connected := False;
MySQL := 'ALTER DATABASE DB_CLE SET OFFLINE WITH ROLLBACK IMMEDIATE';
with ADOQueryRestor do
begin
Close;
SQL.Clear;
SQL.Text := MySQL;
try
ExecSQL;
except end;
end;
RestorStr := 'RESTORE DATABASE DB_CLE FROM DISK = ''' + Trim(e_lj.Text) + ''' WITH REPLACE';
with ADOQueryRestor do
begin
Close;
SQL.Clear;
SQL.Text := RestorStr;
try
ExecSQL;
Application.MessageBox('恢复数据库成功!','提示!',mb_ok+mb_iconinformation);
except
Application.MessageBox('恢复数据库出错!','错误!',mb_ok+mb_iconError);
end;
end;
MySQL := 'ALTER DATABASE DB_CLE SET ONLINE WITH ROLLBACK IMMEDIATE';
with ADOQueryRestor do
begin
Close;
SQL.Clear;
SQL.Text := MySQL;
try
ExecSQL;
except end;
end;
DM.CLE_Connect.Connected := True;