Thema "Betreff: Inventor VBA, Daten aus einer MS Access DB auslesen" in Inventor - Deutsches Forum

Inventor VBA, Daten aus einer MS Access DB auslesen

h_schuetzeneder — Thu, 11 Jan 2018 18:23:42 GMT

Hallo Forum

Neuer Tag – neues Problem.

In meinem Programm zum Export der Baugruppenstückliste ist eine Funktion enthalten die automatisch die deutsche Benennung ins Englische und Französische übersetzt. Die Übersetzung funktioniert einfach über eine AccessDB in der die Benennung in der entsprechenden Sprache steht.

Das hat bisher immer ohne Probleme funktioniert, bis wir jetzt auf Office 365 gewechselt haben.

Nun kommt eine Fehlermeldung sobald er auf die DB zugreifen will (…kann das Objekt nicht erstellen…). Könnt ihr mir da weiterhelfen ob und wie ich meinen VBA Code anpassen muss.

Public Function Translate(NameDeu As String, ByRef NameEng, ByRef NameFra) As String
    'Funktion um die Benennung ins englische und französische zu übersetzen
    Dim MyDatabase As String
    MyDatabase = "N:\Department\Technik\Datenexport\0 - Vorlagen\scala.mdb"
    Dim dbInfo As Database
    Dim rsInfo As Recordset
    Set dbInfo = OpenDatabase(MyDatabase) '<<<<<<< da kommt der Fehler >>>>>>>>
    Set rsInfo = dbInfo.OpenRecordset("SELECT * FROM SPRACHTABELLE WHERE Deutsch='" & NameDeu & "'", dbOpenDynaset)
    If (rsInfo.RecordCount <> 0) Then
        NameEng = rsInfo("Englisch")
        NameFra = rsInfo("Französisch")
    End If
    rsInfo.Close
    dbInfo.Close
    Set rsInfo = Nothing
    Set dbInfo = Nothing
End Function

Betreff: Inventor VBA, Daten aus einer MS Access DB auslesen

Juergen_Wagner — Thu, 11 Jan 2018 20:34:26 GMT

Den Verweis auf die neue Access-Version hast du aber schon unter Extras > Verweise im VBA Editor gesetzt?

siehe hier unten zum Thema Verweise https://inventorfaq.blogspot.de/2017/03/inventor-automatisieren-programmieren_27.html

Betreff: Inventor VBA, Daten aus einer MS Access DB auslesen

h_schuetzeneder — Thu, 11 Jan 2018 20:51:42 GMT

Hallo Juergen

Ja hab ich, und es ist natürlich auch alles auf 64 Bit.

Betreff: Inventor VBA, Daten aus einer MS Access DB auslesen

Juergen_Wagner — Thu, 11 Jan 2018 21:50:57 GMT

64 bit? Ist das das Problem? Inventor VBA ist 32bit. Kannst du eine 32 Bit Accessversion zum testen installieren?
Lies dir das mal durch.
http://modthemachine.typepad.com/my_weblog/2013/09/using-ms-access-databases-with-inventor-2014-vba.html

Betreff: Inventor VBA, Daten aus einer MS Access DB auslesen

h_schuetzeneder — Thu, 11 Jan 2018 22:10:35 GMT

Glaub ich nicht.

Ich ab doch auch schon bisher mit 64Bit gearbeitet. Inventor 2016 64Bit / Office 2010 64Bit.

Der aktuelle VBA Editor 7.1 unterstützt auch beide Versionen.

Betreff: Inventor VBA, Daten aus einer MS Access DB auslesen

Juergen_Wagner — Thu, 11 Jan 2018 22:14:12 GMT

Hast du den Artikel im Link oben gelesen?

Possible Solutions

Install a 64-bit version of Office (but not Office 365 because of Issue 2 described above). Installing Office will also install the OLEDB Provide component.
If you’ve installed MS Office 365, you can install the Microsoft Access Database Engine 2010 Redistributable. Make sure you select the file “AccessDatabaseEngine_x64.exe” for download to get the 64-bit version. Be aware that this still doesn’t solve the issue of having both the 32 and 64 bit versions of the component installed at the same time.

Betreff: Inventor VBA, Daten aus einer MS Access DB auslesen

h_schuetzeneder — Thu, 11 Jan 2018 22:34:16 GMT

Ok. Jetzt hab ich’s genau gelesen, ob ich es Verstanden habe …?

Also ich hab Office 365 64 Bit und ich hab Inventor 2018 64Bit.

Nun installiere ich noch die „AccessDatabaseEngine_X64“, dann ist alles wieder oK?

Ich wird’s morgen testen.

Betreff: Inventor VBA, Daten aus einer MS Access DB auslesen

Juergen_Wagner — Thu, 11 Jan 2018 22:39:34 GMT

So habe ich das auch verstanden.

Betreff: Inventor VBA, Daten aus einer MS Access DB auslesen

Dennis.Ossadnik — Fri, 12 Jan 2018 14:40:51 GMT

Hallo @h_schuetzeneder,

ich wollte einmal nachfragen, ob Du die Tipps von @Juergen_Wagner schon einmal testen konntest.

Funktioniert die Anbindung wieder?

Betreff: Inventor VBA, Daten aus einer MS Access DB auslesen

h_schuetzeneder — Fri, 12 Jan 2018 17:08:53 GMT

Hallo Juergen

PASST, nach der Installation der „AccessDatabaseEngine_X64“ war der Datenzugriff auf AccessDB wieder uneingeschränkt möglich. Es waren auch keinerlei Änderungen im VBA-Programmcode notwendig. DANKE für deine schnelle und kompetente Hilfe!

Nachtrag zu „Inventor VBA: Skizzensymbol einfügen am Mauszeiger„

Mit dem mir bekannten Errorhandling war es nicht möglich den fatalen Inventor Error bei der Version mit dem „CommandManager„ (Vorschlag von sth) zu verhindern. Ich bin deshalb wieder zu dem ursprünglichen Code zurückgekehrt.