SQL娄据库好像自已有提供一个backup的命令就可用。
解决方案 »
- 有没有关于TCHART插件的是有手册或教程之类的啊!
- 编译好的delphi程序,需要安装什么软件可以使其支持数据库
- 怎样刷新 TListview?
- 关于delphi使用indy需要帮助
- 一个DLL注册失败的不常见问题,急!请各位大侠帮忙。
- 谁有去短信公司拿短信内容的源码?
- 共2000分 启动decal普及计划 ;delphi中的stl,delphi中的泛型编程及其例子 可以另开贴子给分
- 本想让它ping一次,label就显示一个结果出来,可是它直到循环执行完了才一次把所有结果显示出来,不知应该怎么做!
- 我有一个问题。
- Delphi新手提问,怎样编写Tstringgrid中某个单元格的ONENTER,ONEXIT事件?
- 如何做一个数据备份程序(关于Paradox的)?
- 数据的备份和恢复怎么做?
很好用的,你的email给我,我的email是[email protected]
我用的是SQL Server2000
问题是在SQL数据库中怎样将表作为文件拷贝.
var
i: integer;
str: string;
tmpStringList: TStringList;
tmpSaveDialog: TSaveDialog;
begin
if ADataset = nil then Exit;
if not ADataset.Active then Exit;
tmpStringList := TStringList.Create;
tmpSaveDialog := TSaveDialog.Create(nil);
tmpSaveDialog.DefaultExt := '*.txt';
tmpSaveDialog.Filter := 'Text File(*.txt)|*.txt';
try
//添加标题
For i := 0 to ADataset.FieldCount - 1 do
str := str +' ' + Format('%0'+ inttostr(ADataset.Fields[i].DisplayWidth) + 's',[ADataset.Fields[i].DisplayLabel] );
tmpStringList.Add(str);
ADataset.First;
while not ADataset.Eof do begin
str := '';
For i := 0 to ADataset.FieldCount - 1 do
str := str + ' '+ Format('%0'+ inttostr(ADataset.Fields[i].DisplayWidth) + 's',[ADataset.Fields[i].asstring] );
tmpStringList.Add(str);
ADataset.Next;
end;
if tmpSaveDialog.Execute then begin
if tmpSaveDialog.FileName = '' then begin
showmessage('文件名不能为空!');
exit;
end;
tmpStringList.SaveToFile(tmpSaveDialog.FileName);
end;
Finally
tmpStringList.Free;
tmpSaveDialog.Free;
end;
end;你用个TTable读出你的表,再引用这个就可以了。这是个笨办法,如果哪位有好的方式请赐教。