各位大侠:怎样利用ADO控件导入导出数据库表的数据到本地文本文件?(50分)

怎样利用ADO控件导入导出数据库表的数据到本地文本文件?BDE可以用BATCHMOVE控件,ADO呢?
请指教

var
f1:textfile;
str:string;
i,j:integer;

if assigned(adotable1) then
adotable1.first;
j:=adotable1.fieldcount-1;
assignfile(f1,'c:/111.txt');
rewrite(f1);
while not eof do
begin
str:='';
for i:=0 to j do
str:=str+adotable1.fields.fields.asstring+' ';
writeln(f1,str);
adotable1.next;
end；
closefile(f1);

这是一个导出到文本文件的大致框架，你可以根据自己的需要扩充

多人接受答案了。