Как перенести все данные в один файл?

← →
sash2 (2003-11-25 10:03) [0]

Есть файлы dbf лежащие в некоторой папке и имещие названия, например: bal1001, bal1002, bal1003 и т. д. ( их всего 12 - ть ).
Цифра 10 - это код предприятия, а 01, 02, 03, ..., 12 - это месяцы. ( т. е. bal1001 - это файл с 10 - го предприятия за 01 месяц ).

Подскажите пожалуйста, как перенести все данные с этих 12 - ти файлов в один файл, например, bal10 ( в этом файле должны быть данные за весе 12 - ть месяцев по данному предприятию ). Файл bal10 находится в отдельной папке.

← →
Anatoly Podgoretsky (2003-11-25 10:06) [1]

Copy /?

← →
chtr (2003-11-25 10:07) [2]

Подробнее структуру таблиц исходных и чего получить надо

← →
Anatoly Podgoretsky (2003-11-25 10:09) [3]

chtr © (25.11.03 10:07) [2]
Структура нужна когда работа будет идти с таблицами, а не с файлами.

← →
Babay (2003-11-25 10:11) [4]

Ну открываем по очереди файлы bal1001, bal1002, bal1003 ... пробегаем по всем записям и запихиваем их в bal10.
Решение, что называется в лоб...

← →
sash2 (2003-11-25 10:16) [5]

А через компоненты Query можно это сделать?
Например, что нить типа

Insert into bal10 select * from bal1001
Insert into bal10 select * from bal1002
Insert into bal10 select * from bal1003
Insert into bal10 select * from bal1004
...

Если можно, то подскажите как.

← →
chtr (2003-11-25 10:19) [6]

Это разово надо сделать, или в программе?

← →
sash2 (2003-11-25 10:24) [7]

Это необходимо сделать разово.
Но это нужно делать раз в месяц, именно поэтому и хочу сделать программно.

← →
chtr (2003-11-25 10:34) [8]

Я бы в акцессе написал запрос.

← →
sash2 (2003-11-25 13:09) [9]

А как это сделать в Delphi?

← →
Reindeer Moss Eater (2003-11-25 13:15) [10]

Table1.BatchMove(Query1,batAppend)
Table1.BatchMove(Query2,batAppend)
Table1.BatchMove(Table3,batAppend)

← →
sash2 (2003-11-25 13:19) [11]

И как это работает?

← →
Reindeer Moss Eater (2003-11-25 13:19) [12]

Бесшумно

← →
Reindeer Moss Eater (2003-11-25 13:20) [13]

В Таблице 1 оказываются все записи из наборов Query1,Query2,Table3

← →
DenK_vrtz (2003-11-25 13:24) [14]

← →
sash2 (2003-11-25 14:50) [15]

Сапасибо Всем!!!

Как перенести все данные в один файл? Найти похожие ветки