CoInitialize(nil);
ADOConnection1:=tADOConnection.create(nil);
ADOQuery1:=tADOQuery.create(nil);
ADOConnection1.ConnectionString :='Provider=MSDASQL.1;Persist Security Info=False;Data Source=dBASE Files;Initial Catalog='+'c:/';
adoquery1.Connection :=adoconnection1;
adoquery1.SQL.Add('select * from a where b>c');
adoquery1.Open ;
AssignFile(BatchFile,filename);
Rewrite(BatchFile);
adoquery1.First ;
while not adoquery1.Eof do
begin
for i:=0 to adoquery1.fields.count-1 do
begin
tmpstr:=tmpstr+' '+trim(adoquery1.Fields.asstring);
end;
Writeln(BatchFile, tmpstr);
// Writeln(BatchFile, chr(13));
tmpstr:='';
adoquery1.Next;
end;
CloseFile(BatchFile);