VPF::Объединение двух одинаковых БД.

MotoArhangel

Дата 2.4.2015, 17:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 13.3.2011

Репутация: нет
Всего: нет

Вопрос в следующем: Как объединить несколько абсолютно идентичных dbf таблиц в одну?

Написал вот такое:

Код


procedure AddToDB(DBName:string;Strlst:TStringList);
 var
  i: Integer;
  Query:TADOQuery;
begin
  Query:=TADOQuery.Create(nil);
   try
     for i:=0 to Strlst.Count-1 do
       begin
         Query.Close;
         Query.SQL.clear;
         Query.Sql.Add('TABLE "'+DBName+'" UNION ALL SELECT * FROM "'+Strlst[i]+'"');
         Query.ExecSQL;
         Query.Close;
       end;
   finally
     Query.Free;
   end;
end;

в Strlst хранится список путей к файлам БД.
Но правильно ли?

Это сообщение отредактировал(а) MotoArhangel - 2.4.2015, 17:41

ТоляМБА

Дата 2.4.2015, 18:23 (ссылка)

(голосов:2)

Загрузка ...

Котэ

Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Репутация: 1
Всего: 252

Почему Query.Close в цикле выполняет по два раза друг за другом? я бы вынес 10-ю строку после 6-й.
11 и 12 строки я бы заменил на Query.SQL.Text:='';
Что за СУБД? Я бы использовал запрос Insert Into.
Но это мои личные предпочтения...

Добавлено через 50 секунд
Вопрос про СУБД снимается, прочитал внимательно пост. )

MotoArhangel

Дата 2.4.2015, 18:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 13.3.2011

Репутация: нет
Всего: нет

Код


Query.SQL.Text:='INSERT into "'+DBName+'" ALL SELECT * FROM "'+strlst[i]+'"';

Так правильно? по поводу ALL сомнения. Пример глянул:

Код


INSERT into таблица (поля)  SELECT (поля) FROM таблица

P.S. C SQL запросами сильно не знаком.

Это сообщение отредактировал(а) MotoArhangel - 2.4.2015, 18:44

MotoArhangel

Дата 2.4.2015, 20:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 13.3.2011

Репутация: нет
Всего: нет

Все разобрался, официальный мануал глянул=)

Код


INSERT INTO <название таблицы> SELECT <имя столбца>,... FROM <название таблицы>

Спасибо!!! Завтра проверю.

Это сообщение отредактировал(а) MotoArhangel - 2.4.2015, 20:48

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »