Automation Error при вызове TransferText из другого потока

[dennis svezhentsev]

Вызов следующей функции

Public Sub ThreadProc()
Application.OpenCurrentDatabase MainForm.Text1.Text
DoCmd.TransferText acExportDelim, , "Points_253", CurDir + "orcl.csv"
Application.CloseCurrentDatabase
End Sub

В отдельном потоке:
Thread1 = CreateThread(ByVal 0&, 2000000, AddressOf ThreadProc, ByVal 0&, THREAD_PRIORITY_NORMAL, ThreadID)

Дает ошибку:

Automation Error: -2147221008

Кто-нибудь знает ка этого избежать?

[Konst_One]

надо открывать базу через отдельный workspace

[tyomitch]

Сдаётся мне, параметров у ThreadProc маловато...

[GSerg]

В общем-то да, один параметр должен быть
Хотя если его нет, то это тоже работает (и я, если честно, до сих пор не понимаю, почему ).
Но дело, наверное, в том, что некий activex юзается в нарушение его threading model. Не нужно этим, наверное, заниматься

[sslion]

А что за Application в процедуре стоит?

Реальный заработок в Интернете: http://www.bxod.com/newuser.asp?frid=166509
Подробней о заработке в Интернете: http://sslion.narod.ru

[Konst_One]

я уже писал, что нужно использовать отдельный workspace и юзать DAO, а не методы объекта Application в Access

[sslion]

Так Application - это Access????
Тогда ясна причина ошибки! В данном случае Access выступает в роли сервера объекта Application, который нельзя "запихнуть" в другой процесс от основной программы. Либо нежно инициализировать Application в том процессе из которого ты его вызываешь!

Действительно, пользуйся DAO! Так намного проще и "гибче"!


Реальный заработок в Интернете: http://www.bxod.com/newuser.asp?frid=166509
Подробней о заработке в Интернете: http://sslion.narod.ru