-Ïîèñê ïî äíåâíèêó

Ïîèñê ñîîáùåíèé â rss_sql_ru_access_programming

 -Ïîäïèñêà ïî e-mail

 

 -Ïîñòîÿííûå ÷èòàòåëè

 -Ñòàòèñòèêà

Ñòàòèñòèêà LiveInternet.ru: ïîêàçàíî êîëè÷åñòâî õèòîâ è ïîñåòèòåëåé
Ñîçäàí: 16.03.2006
Çàïèñåé:
Êîììåíòàðèåâ:
Íàïèñàíî: 4


Êàê ïåðåäàòü ìàññèâ èç îäíîãî ïðèëîæåíèÿ Access â äðóãîå?

×åòâåðã, 09 Èþëÿ 2015 ã. 17:20 + â öèòàòíèê
Åñòü äâà ïðèëîæåíèÿ Access, ðàáîòàþùèå ïàðàëëåëüíî (îäíî çàïóñêàåòñÿ èç äðóãîãî).
Èç ïåðâîãî ïðèëîæåíèÿ ÿ âèæó îáúåêòû âòîðîãî, íî íå ïîéìó êàê ïîëó÷èòü äîñòóï ê ìàññèâó, êîòîðûé çàïîëíåí âî âòîðîì ïðèëîæåíèè.

Êîä ïðèìåðíî òàêîé:

Sub m1()
    Dim acc As Access.Application
    Set acc = New Access.Application
    acc.OpenCurrentDatabase "D:\app2.mdb" ' Îòêðûâàåì âòîðóþ áàçó äàííûõ
    acc.Run "test1" ' Âûïîëíÿåì ïðîöåäóðó â áàçå äàííûõ, êîòîðàÿ çàïîëíÿåò ìàññèâ arr1
    ' òåïåðü ìàññèâ arr1 çàïîëíåí
    
    ' çäåñü âûäàåò îøèáêó "Method or data member not found"
    MsgBox acc.arr1(0) ' ïûòàþñü ïîëó÷èòü ýëåìåíò ìàññèâà arr1
    
    Set acc = Nothing
End Sub


Îøèáêà âûëåçàåò â ñòðîêå
MsgBox acc.arr1(0)
Ìîæíî ëè êàê-òî ïîëó÷èòü äîñòóï ê ìàññèâó arr1?

Âàðèàíò ñ çàïèñüþ ìàññèâà â òàáëèöó íå ïîäõîäèò, ò.ê. ìåäëåííî ðàáîòàåò (â ìàññèâå ïîðÿäêà ìèëëèîíà çàïèñåé, è îíè âñå íóæíû).

http://www.sql.ru/forum/1165263/kak-peredat-massiv-iz-odnogo-prilozheniya-access-v-drugoe


 

Äîáàâèòü êîììåíòàðèé:
Òåêñò êîììåíòàðèÿ: ñìàéëèêè

Ïðîâåðêà îðôîãðàôèè: (íàéòè îøèáêè)

Ïðèêðåïèòü êàðòèíêó:

 Ïåðåâîäèòü URL â ññûëêó
 Ïîäïèñàòüñÿ íà êîììåíòàðèè
 Ïîäïèñàòü êàðòèíêó