怎样将sql_server中某一数据库中的表以文本方式读出?(4分)

我在学习时遇到这样一个问题，就是要求将sql_server中的比如pubs库中的employee表
中的数据读到一文本文件中，以*.txt格式保存在某一目录下；
希望大家能给我回答！！

//打开文件写
AssignFile(txtf,wjm);
Rewrite(txtf);
try
while not Qr_cl.Eof do
begin
temp:='';
//将表的一行拼接为文件的一条记录,写文件
for j:=0 to Qr_cl.FieldCount-1 do temp:=temp+Qr_cl.Fields[j].AsString+',';
temp:=copy(temp,1,length(temp)-1);
Writeln(txtf,temp);
Qr_cl.Next;
end;
finally
closefile(txtf);
end;

接受答案了.