-> Hier kostenlos registrieren
Hallo zusammen,
ich habe vor Jahren mal einen OPC Client unter Access 2003 programmiert. Als Server wurde der OPC Manager von PI eingesetzt und die OPCDAAuto.dll als Wrapper.
Nun stellen die Kunden auf Win7 64bit und Access 2010 um. Irgendwie gelingt es mir nicht meinen Client zum laufen zu bringen.
Ich habe mir von graybox den Wrapper für 64 Bit runtergeladen (gbda_aut.dll) und wie beschrieben in den System32 Ordner kopiert und erfolgreich manuell registriert.
Die 64Bit Version der OPCDAAuto.dll, falls es sie gibt, steht mir nicht mehr zur Verfügung.
Im VBA Editor dann den Verweis auf die OPCDAAuto.dll ersetzt durch den auf gbda_aut.dll.
Leider bleibe ich beim Verbindungsaufbau immer bei "Set Server = New OPCServer" (siehe unten) mit folgender Fehlermeldung hängen.
Laufzeitfehler 429, Objekterstellung durch ActiveX-Komponente nicht möglich.
Hat jemand eine Idee worauf ich noch achten muß oder vieleicht eine funktionierendes VBA Beispiel?
Bis dann, Matze
Auszug Code:
Dim Server As OPCServer
Dim MyServerName As String
MyServerName = "OPCManager.DA.XML-DA.Server.DA"
Set Server = New OPCServer
Server.Connect MyServerName
ich habe vor Jahren mal einen OPC Client unter Access 2003 programmiert. Als Server wurde der OPC Manager von PI eingesetzt und die OPCDAAuto.dll als Wrapper.
Nun stellen die Kunden auf Win7 64bit und Access 2010 um. Irgendwie gelingt es mir nicht meinen Client zum laufen zu bringen.
Ich habe mir von graybox den Wrapper für 64 Bit runtergeladen (gbda_aut.dll) und wie beschrieben in den System32 Ordner kopiert und erfolgreich manuell registriert.
Die 64Bit Version der OPCDAAuto.dll, falls es sie gibt, steht mir nicht mehr zur Verfügung.
Im VBA Editor dann den Verweis auf die OPCDAAuto.dll ersetzt durch den auf gbda_aut.dll.
Leider bleibe ich beim Verbindungsaufbau immer bei "Set Server = New OPCServer" (siehe unten) mit folgender Fehlermeldung hängen.
Laufzeitfehler 429, Objekterstellung durch ActiveX-Komponente nicht möglich.
Hat jemand eine Idee worauf ich noch achten muß oder vieleicht eine funktionierendes VBA Beispiel?
Bis dann, Matze
Auszug Code:
Dim Server As OPCServer
Dim MyServerName As String
MyServerName = "OPCManager.DA.XML-DA.Server.DA"
Set Server = New OPCServer
Server.Connect MyServerName
