你在窗口放几个组件
ADOConnection1、ADODataSet1在设计在连好比需要的access数据库[以大富翁的库为例]
procedure TForm1.Button1Click(Sender: TObject);
var
ssql:string;
//RoomIndex:integer;
begin
//目的:是查询c:/delphibbs.mdb中的letters表中数据通过
//ADODataSet1,将结果ADODataSet1中的数据集送DBGrid1数据感知组件中
//---1---定义sql语句
ssql:='select id,subject,userfrom,points,regdatetime,replytimes,status from letters where parent = 0 and roomid = 1';
//---2---开始查询,将结果放在ADODataSet1中的数据集中
with ADODataSet1 do
begin
if Active then close;
CommandText := ssql;
open;
end;
//---3---
if (FileExists('d:/SaveFile')) then begin
DeleteFile('d:/SaveFile');
showmessage( '删除先前文件d:/SaveFile是成功的');
end;
//将保存的本地的数据文件用格式pfADTG [有两种格式pfADTG、pfXML);]
ADODataSet1.SaveToFile('d:/SaveFile', pfADTG);
end;