TmpClientDataSet := TADODataSet.create(nil);
with TmpClientDataSet do
begin
for i := 0 to AdoQuery1.fieldCount - 1 do
begin
if (AdoQuery1.fields[i].datatype = ftstring) or
(AdoQuery1.fields[i].datatype = ftwidestring)
then FieldDefs.add(AdoQuery1.fields[i].fieldname,
AdoQuery1.fields[i].datatype, AdoQuery1.fields[i].size, False)
else if AdoQuery1.Fields[i].DataType = ftAutoInc then
fielddefs.add(AdoQuery1.fields[i].fieldname, ftInteger, 0, False)
else fielddefs.add(AdoQuery1.fields[i].fieldname, AdoQuery1.fields[i].datatype, 0, False);
end;
fielddefs.add('dh1', ftstring, 30);
fielddefs.add('dh2', ftstring, 30);
fielddefs.add('dh3', ftstring, 30);

TmpClientDataSet.createdataset;
// TmpClientDataSet.FieldList.SaveToFile('c:\111.txt');
end;



如果要用SQL处理的话，Tblname是什么吖？ select * from ??