Hi,
We are upgrading our application from BDE to ANYDAC.
We are using Embarcadero® Delphi® XE3 Version 17.0.4770.56661.
But I am getting one issue that in our project We have used TBatchMove to write TQuery data to TTable and then to locale .DBF file. So we have used TTable.TableType property in our code so many time. So while upgrading I did not find this property in TADTable component.
So would anybody please inform what is compatible property of TTable.TableType in TADTable. So that I can implement easily.
Or also inform me if there any other solution to move batch of data to another TADTable to write in a local .dbf file in AnyDAC/FireDAC.
Thanks,
Following are some code snippet...
if OutputTable.TableType = ttASCII then
sExt := '.txt'
else
sExt := '.dbf';
with tblSql Do Begin
Close;
StatFrm.SetStatText('Archiving Exchange data');
StatFrm.SetType(idStatus);
SQL.Clear;
SQL.Add('SELECT * FROM DBA.Exchange WHERE InvPayId IN ');
SQL.Add('(SELECT PayId FROM TrwUser.TempPurgeInv)');
Open;
if not EOF then begin
OutputTable.TableName := 'EX' + DateToDbStr('yymmdd', dDate);
if FileExists(sDirName + OutPutTable.TableName + sExt) then
InvArchive.Mode := batAppend
else
InvArchive.Mode := batCopy;
InvArchive.Execute;
end;
↧