dbgrid 转换成Txt

Question

我希望利用ado 控件，请给出详细代码?

Answer 1

如果想比较快，可以用dbgrideh控件或者cxgrid，他们都提供了导出功能。
不用控件，可以自己先创建txt文件，自己写导出，

Answer 2

DM.DataSet.SaveToFile('C:\我的文件.dbt',pfADTG);
//导出来的文件扩展名你自己随便定， 但是估计你看不懂里面的内容，要想导出标准的文本，你可以 导出成xml文件～！

Answer 3

你要保存成xml 就在后面使用pfXML

Answer 4

  for 循环写 txt

Answer 5

while not DataModule1.ADOQuery.Eof do
begin
  n1 := DataModule1.ADOQuery.fieldbyName('KQJHZD').AsString;
  n2 := DataModule1.ADOQuery.fieldbyName('BHZD').AsString;
  n3 := DataModule1.ADOQuery.fieldbyName('BC1').AsString;
  n4date := DataModule1.ADOQuery.fieldbyName('RQZD').AsDateTime;
  n4 := DateToStr(n4Date);  n5 := DataModule1.ADOQuery.fieldbyName('SJZD').AsString;  TxtStr := ' '+ n1+' '+ ','+' '+ n2+' '+ ','+' '+ n3+' '+ ','+' '+ n4+' '+ ','+' '+ n5+' ';  AssignFile(F, SavePath);
  Append(F);
  Writeln(F, TxtStr);
  CloseFile(F);
  DataModule1.ADOQuery.Next;
end;
这是我用过的一个方法，但愿对你有点帮助

Answer 6

在while循环中可以加入For
for I:=0 to fieldcount-1 do
LinesStr:=LinesStr+Fields[I].asstring+','; 这样就不需要定义变量了！