Как выгрузить файл из одной БД и загрузить в другую (используя TDMS Api)

Надо отличать методы у TDMSObject и TDMSFile
У TDMSObject - CheckOut - выгружает все файлы в директорию для выгрузки
У TDMSFile - CheckOut - выгружает конкретный файл с путём, указанным в параметре, т.е. тот, который Вы укажете.

А при вызове TDMSFile.CheckOut файл блокируется? Т.е. потом обязательно делать TDMSFile.CheckIn?

погоди, а не проще просто проапгрейдить?
Если надо часть перенести, то точно также делаем экспорт структуры, экспорт нужных объектов. Потом импортируем их в пустую 2-шечную базу, потом её апгрейдим до 3-шки, потом переносим в нашу настройку  :)

Через скрипт 100% будет медленнее.

P.S.

ИМХО:
Конфигурация это - настройки БД, серверной части и т.д. Т.е.  именно конфигурация.
А "настройка" может не самое удачное слово, но ИМХО больше всего подходит.

Гы-гы. А имхо, надо наоборот  :) По аналогии с конфигурациями 1С. Да и вообще, Анатолий, сами посмотрите, как вы сформулировали:

  :D
Впрочем, как скажате - так и будем называть. Главное - определится раз и навсегда с этими понятиями  :)

Понятно.

Еще раз спрошу, а то мы отвлеклись

В общем, сделал. Работает  :) Спасибо большое за советы.
Теперь интересует вопрос оптимизации.
Очень много времени занимает обращение к объектам. Чтение каждого объекта идет "поатрибутно", значение каждого атрибута тут же пихается в файл с использованием стандартных средств VBA (Put/Get). Конечно, файловый ввод/вывод сильно тормозит (заводить буфер в памяти а потом целиком скидывать его содержимое в файл - даж не знаю, как в VBA это сделать).
Но еще сильнее тормозит "поатрибутное" обращение к объекту. Есть какая-нибудь возможность получать сразу дамп свойств объекта по заданному шаблону? Мож запрос в TDMS написать, который будет возвращать особым образом сформатированные строки из всех значений атрибутов каждого объекта, и запускать этот запрос из моей программки на VBA, и это будет быстрее? Запрос ведь выполняется на сервере?
Или, как еще ускорить мой экспорт/импорт? Пока у меня на экспорт ~1000 объектов уходит 10-12 мин, на импорт - ок 20 мин. Всего в базе около 10000 объектов, когда закончу отлаживатся, надо будет их все перетягивать. Как-то мне боязно немного за весьма вероятные сбои при такой длительности операций...

Edhunter, наверное, имеет в виду считывание сразу всей коллекции.
инструкция Set потребуется в любом случае.

Чтобы считать всю коллекцию атрибутов, без дальнейшего "пересчитывания", то используйте конструкцию with  ;)

Т.е., если Вы пишете

For each x in y.objects
  a = x.attributes(xxx)
  b = x.attributes(yyy)
  c = x.attributes(zzz)
next

то этот код будет работать медленнее, чем:

For each x in y.objects
  with x.attributes  
     a = .item(xxx)
     b = .item(yyy)
     c = .item(zzz)
  end with
next

Просьба: установите таймер, и пришлите результаты по 1-му и 2-му вариантам.  ;) + конфигурацию машины.

Очень странно, что так долго.... Мне кажется, что у Вас тормоза из-за записи. Или же Вы только считываете??
Проверяли на работающей базе (т.е. люди на ней работали?)? Проверяли сколько раз?

Я написал такой код:

on error resume next
 dim t1,t2,t3
 t1 = timer
  For each obj in thisobject.ContentAll
     with obj.attributes
         a = .item(1).Value
         b = .item(2).Value
         c = .item(3).Value
         d = .item(4).Value
         e = .item(5).Value
         f = .item(6).Value
     end with    
 Next
t1 = timer - t1 
t2 = timer 
 For each obj in thisobject.ContentAll
         a = obj.attributes(1).Value
         b = obj.attributes(2).Value
         c = obj.attributes(3).Value
         d = obj.attributes(4).Value
         e = obj.attributes(5).Value
         f = obj.attributes(6).Value
 Next
t2 = timer - t2

t3 = timer 
 For each obj in thisobject.ContentAll
  Set y = obj.attributes
         a = y(1).Value
         b = y(2).Value
         c = y(3).Value
         d = y(4).Value
         e = y(5).Value
         f = y(6).Value
 Next
t3 = timer - t3

msgbox "Время1 = " & t1 & chr(13) & "Время2= " & t2 & chr(13) & "Время3 = " & t3 & chr(13) & "Количество объектов = " & ThisObject.ContentAll.Count

Результат: