不一定要用Dbgrid 吧? var str1:tstrings; i:integer; begin query1.close; query1.sql.clear; query1.sql.add('select * from table1'); query1.open; str1:=tstringlist.create; for i:=1 to query1.recordcount do begin str1.add(query1.FieldByName('你要导出的字段').Value+query1.FieldByName('你要导出的字段').Value+...); query1.next; end; str1.savetofile('*******') end;
query.sql.add('select * from t');
query.open;
dbgrid1.Columns[0].FieldName取得字段名,而后从表中取数据;
DataSource1.DataSet:=AdoTable1;
AdoTable1.Sql.Clear;
AdoTable1.ConnectionString:=...;
AdoTabel1.Sql.Add('select * from ...');
AdoTabel1.Active:=true;
dbgrid1.Columns[0].FieldName取得字段名,而后从表中取数据;
var
str1:tstrings;
i:integer;
begin
query1.close;
query1.sql.clear;
query1.sql.add('select * from table1');
query1.open;
str1:=tstringlist.create;
for i:=1 to query1.recordcount do
begin
str1.add(query1.FieldByName('你要导出的字段').Value+query1.FieldByName('你要导出的字段').Value+...);
query1.next;
end;
str1.savetofile('*******')
end;
先将Dbgrid绑上数据库,双击Dbgrid,Column有个FieldName属性,挑要的选择就好了!