|
#1
|
|||
|
|||
Firebird + Delphi
Здравствуйте. Есть две базы source.fdb и target.fdb . Target.fdb полностью пустая, в source.fdb есть несколько таблиц. Есть консольное приложение на Delphi. Оно должно скопировать таблицы из source.fdb и target.fdb, но я ни как не могу понять как это сделать. Кучу форумов излазил, но по факту везде предлагают что то в стиле - зачем тебе делфи, копируй через эксперт. Может кто нибудь помочь?
|
#2
|
||||
|
||||
Данные/Структура изменяются при переносе? Если нет, тогда видимо проще будет просто скопировать и затем переименовать сорц-файл
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
|||
|
|||
не изменяются, просто копирование. но нужно именно скопировать таблицы, а не всю базу
|
#4
|
||||
|
||||
Тогда вот, самое простое(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; З.Ы. Увидел что это не то, но было уже поздно Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#5
|
|||
|
|||
Повторяюсь - мне не нужно копировать базу. Мне нужно скопировать таблицы из одной базы в другую. Только таблицы.
|
#6
|
||||
|
||||
Вот почти первая ссыль в гугле, правда консолью, без визуальных компонентов на вкладке интербейс не обойтись
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#7
|
|||
|
|||
Цитата:
|