我想备份数据库程序如下:
if MessageDlg('你要备份数据库,继续吗?',mtConfirmation, [mbYes, mbNo], 0)<>mrYes
then abort;
try
with QUpdate3 do
begin
Active:=false;
SQL.Clear;
MSQL:='';
MSQL:=MSQL+' ';
MSQL:=MSQL+' BACKUP DATABASE '+Mydate+' TO disk='+Lj+'';
SQL.Add(MSQL);
Execsql;
end;
showmessage('恭喜,数据库备份完毕!');
except
showmessage('数据库操作失败!');
end;
为什么老是不行,提示说是无法打开备份设备,请高手帮我,谢谢你~!~!~!
if MessageDlg('你要备份数据库,继续吗?',mtConfirmation, [mbYes, mbNo], 0)<>mrYes
then abort;
try
with QUpdate3 do
begin
Active:=false;
SQL.Clear;
MSQL:='';
MSQL:=MSQL+' ';
MSQL:=MSQL+' BACKUP DATABASE '+Mydate+' TO disk='+Lj+'';
SQL.Add(MSQL);
Execsql;
end;
showmessage('恭喜,数据库备份完毕!');
except
showmessage('数据库操作失败!');
end;
为什么老是不行,提示说是无法打开备份设备,请高手帮我,谢谢你~!~!~!
解决方案 »
- 我想改变ehlib的dbgrideh的底下合计值
- dephi中random,如执行random(35)每次都是同样的顺序结果?听说有一个种子数的事,如何办?
- 用delphi从.txt文件中统计生成.dbf文件,怎么做?
- 各位大侠帮忙!!数据导出问题。在线等待!
- 如何用Ehlib打印dbgrideh内容时设置纸张方向?在线等
- 怎么利用TStoredProc中的◎RETURN_VALUE得到存储过程执行的状态信息?
- 求救!在deiphi里不调用word,怎么能打开doc文件,并且不可以改变doc文件的格式!
- 请示范一个简单的dll.例:z=x+y。使用dll完成函数部分,然后从edit1和edit2输入x,y,按钮button1从label1显示z值
- 排序,排序
- 分数多多,看你表现?(关于MIDAS)
- 怎样运用wise installation system?
- 我装的delphi7中的TClientDataSet组件怎么找不到?急...
var
MSQL:String;
begin
if MessageDlg('你要备份数据库,继续吗?',mtConfirmation,
[mbYes, mbNo], 0)<>mrYes then abort;
try
with self.ADOQuery1 do
begin
close;
SQL.Clear;
MSQL:='BACKUP DATABASE telcount2004 TO disk=''i:\telcount2004_back''';
SQL.Add(MSQL);
Execsql;
end;
showmessage('恭喜,数据库备份完毕!');
except
showmessage('数据库操作失败!');
end;
end;end.
这段代码你去试试,把telcount2004换成你自己的数据库,还有路径要写对,up上面所说的最好写成存储过程。