[blacklotosdemon]

Здравствуйте. Есть две базы source.fdb и target.fdb . Target.fdb полностью пустая, в source.fdb есть несколько таблиц. Есть консольное приложение на Delphi. Оно должно скопировать таблицы из source.fdb и target.fdb, но я ни как не могу понять как это сделать. Кучу форумов излазил, но по факту везде предлагают что то в стиле - зачем тебе делфи, копируй через эксперт. Может кто нибудь помочь?

[Alegun]

Данные/Структура изменяются при переносе? Если нет, тогда видимо проще будет просто скопировать и затем переименовать сорц-файл

[blacklotosdemon]

не изменяются, просто копирование. но нужно именно скопировать таблицы, а не всю базу

[Alegun]

Тогда вот, самое простое(drkb)

Код:

procedure FileCopy(Const SourceFileName, TargetFileName: String);
var
S,T   : TFileStream;
begin
S := TFileStream.Create(sourcefilename, fmOpenRead);
try
T := TFileStream.Create(targetfilename, fmOpenWrite or fmCreate);
try
   T.CopyFrom(S, S.Size);
   FileSetDate(T.Handle, FileGetDate(S.Handle));
finally
  T.Free;
end;
finally
S.Free;
end;
end;

З.Ы. Увидел что это не то, но было уже поздно

[blacklotosdemon]

Повторяюсь - мне не нужно копировать базу. Мне нужно скопировать таблицы из одной базы в другую. Только таблицы.

[Alegun]

Вот почти первая ссыль в гугле, правда консолью, без визуальных компонентов на вкладке интербейс не обойтись

[Heneken]

Сообщение от blacklotosdemon

Повторяюсь - мне не нужно копировать базу. Мне нужно скопировать таблицы из одной базы в другую. Только таблицы.

Пожалуйста пишите правильнее. Не копировать базу,а копировать данные из таблицы.Вам нужно насколько я понял в 2 базу добавить недостающие таблицы из 1.Это вам надо?