Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как программно слить 2 dbf файла ? / 3 сообщений из 3, страница 1 из 1
20.12.2003, 12:27
    #32358801
Jojo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как программно слить 2 dbf файла ?
Помогите пожалуйста по Delphi

У меня есть 2 dbf файла с проводками надо
1)их слить
2)и получить агрегатную сумму по каждому субсчету

У меня есть мысль слить SQL

INSERT INTO prvetap5.dbf
SELECT * FROM prvetap3.dbf
потом
INSERT INTO prvetap5.dbf
SELECT * FROM prvetap4.dbf
а как сделать еще агрегатирование с минимумом операций
...
Рейтинг: 0 / 0
20.12.2003, 13:30
    #32358820
Lt
Lt
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как программно слить 2 dbf файла ?
Ну еси есть таблица со всеми данными просто
Select субсчет, sum(xxx) from
prvetap5.dbf
group by субсчет
Но лучше обойтись без сливаний всяких
...
Рейтинг: 0 / 0
20.12.2003, 13:33
    #32358821
Jojo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как программно слить 2 dbf файла ?
я тоже бы так сделал
Дело в том что данные в 2 таблицах ...во

File_inp:='bp#nmng.dbf';
File_out:='temp5.dbf';
copy_etalon(File_inp,File_out);

dm.Qtemp.Close;
dm.Qtemp.SQL.Clear;
dm.Qtemp.SQL.Add('INSERT INTO '+ File_out);
dm.Qtemp.SQL.Add(' SELECT *');
dm.Qtemp.SQL.Add(' FROM prvetap3.dbf');
dm.Qtemp.ExecSQL;

dm.Qtemp.Close;
dm.Qtemp.SQL.Clear;
dm.Qtemp.SQL.Add('INSERT INTO '+ File_out);
dm.Qtemp.SQL.Add(' SELECT *');
dm.Qtemp.SQL.Add(' FROM prvetap4.dbf');
dm.Qtemp.ExecSQL;

File_inp:='bp#nmng.dbf';
File_out:='prvetap5.dbf';
copy_etalon(File_inp,File_out);

dm.Qtemp.Close;
dm.Qtemp.SQL.Clear;
dm.Qtemp.SQL.Add('INSERT INTO ' + File_out+' (DT,SMR)');
dm.Qtemp.SQL.Add(' SELECT DT,SUM(SMR) FROM');
dm.Qtemp.SQL.Add(' temp5.dbf');
dm.Qtemp.SQL.Add(' GROUP BY DT');
dm.Qtemp.SQL.Add('HAVING SUM(SMR)<>0');
dm.Qtemp.ExecSQL;
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как программно слить 2 dbf файла ? / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]