Как перенести записи из одного DBF файла в другой?
Всем доброго дня.
Необходимо перенести записи из группы DBF файлов в другой по определенным условиям.
Планирую использовать такой SQL запрос (названия таблиц и полей условные):
insert into result ( F1, F2 ) select sourse.F1, sourse.F2 from sourse where F3 like "???ABC*";
Ответ
Используем компонент TQuery из вкладки BDE.
И следующий программный код (названия таблиц и полей условные)
dtm.qry.SQL.Text:='insert into result (F1, F2) select F1, F2 from '+FName+' where (F3 like ''___'+'ABC'+'%'')';
dtm.qry.ExecSQL;
Имена
dtm: TDataModule;
qry: TQuery; (в свойстве DatabaseName указываем путь к каталогу с DBF файлами источников)
FName: String; (строковая переменная для хранения имени файла источника).
|