---

Fehler429.jpg VerweiseaufDAO360.jpg

Hallo,
seit 5...6 Jahren benutzen wir zum Überprüfen der Schrauben- und Stiftlängen in der Baugruppe ein Makro, das diese Daten aus der "SWBrowser.mdb" der Toolbox holt. Seit dem gleichzeitigen Wechsel zu Windows7 , zu 64-Bit-Workstation und SWX2013 (DonŽt never change a running System!!!!!) funktioniert es nun nicht mehr. Schade um die Arbeit, die im Makro steckt. Schade um die Arbeit für die manuelle Kontrolle.
Bei den Verweisen stimmt es so weit.
Nur in der Zeile

Code:

---

Set db = OpenDatabase(sACCESSDateiName)

---

bleibt das Makro hängen mit dem "Laufzeitfehler 429..." (s.Bild)
Weiß jemand, wie ich jetzt unter Windows7, mit64-Bit-Workstation und SWX2013 an die "SWBrowser.mdb" rankomme?
Viele Grüße und Frohes Schaffen
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas

ich nehme mal an, dass das Makro die "Jet-Engine" oder wie das heißt für den Zugriff auf die Access-DB verwendet.
Das Problem ist, nach meiner Suche, dass es angeblich eine Jet-Engine
für Win 7 64-bit gibt, die aber nur autom. installiert wird wenn Office 64-bit installiert wird.
Und ich weiß nicht ob es recht viele Office 64-bit Installationen gibt.
Die 32-bit Jet-Engine läuft nicht unter Win 7 64-bit.
siehe dazu auch diverse Artikel im WWW
z.B.:
http://en.wikipedia.org/wiki/Microsoft_Jet_Database_Engine

------------------
Grüße
Heinz
------------------

PS
falls Du eine Lösung findest, dann wär ich sehr daran interessiert!

[Diese Nachricht wurde von nahe am 25. Apr. 2014 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen

Es gibt eine 64-bit Access Database Engine.
Zu finden hier -> http://www.microsoft.com/de-ch/download/details.aspx?id=13255

Falls schon ein 32-bit Office installiert ist, muss ein kleiner Trick angewandt werden um sie zu installieren.

Why can't 32 and 64 bit Access Database Engine (ACE/OLEDB Dataproviders) coexist?

Zitat:

---

- Check the 64-bit registry key "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\14.0\Common\FilesPaths" before installing the 64-bit version of the Microsoft Access Database Engine 2010 redistributable.
- If it does not contain the "mso.dll" registry value, then you will need to rename or delete the value after installing the 64-bit version of the Microsoft Access Database Engine 2010 redistributable on a system with a 32-bit version of MS Office installed.
- Use the "/passive" command line parameter to install the redistributable, e.g. "C:\directory path\AccessDatabaseEngine_x64.exe" /passive
- Delete or rename the "mso.dll" registry value, which contains the path to the 64-bit version of MSO.DLL (and should not be used by 32-bit MS Office versions).
- Now you can start a 32-bit MS Office application without the "re-configuring" issue.

---

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
vielen Dank für Eure Antworten.
Es scheint wohl nicht ohne  Editieren der Windows-Registrierung zu gehen. Leider kann ich das auf keinem nicht-produktiven  64-Bit-Rechner ausprobieren. Also muß ich noch warten, bis ich etwas Luft zum probieren habe, damit ich keine Konstuktionsausfälle habe.
Wenn ichŽs ausprobiert habe, melde ich  mich wieder.
Vielen Dank und viele Grüße,
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
Ich habe alles oben beschriebene ausprobiert und trotzdem funktioniertŽs nicht.
Dennoch ich habe eine Lösung gefunden. Allerdings muß dabei Access installiert sein.
Ich nehme direkt das Access.

Code:

---

Set accsess = CreateObject("Access.Application")
accsess.Visible = False
Set ws = accsess.DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(sACCESSDateiName)

---

Vielen Dank noch mal und viele Grüße
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas

Ich hab schnell auf einem PC ohne Access, aber mit installierter 64-bit Access Database Engine, einen Test gemacht.

Den Verweis auf "Microsoft ActiveX Data Objects 6.1 Library" gesetzt und folgenden Code gestartet.

Code:

---

Dim swApp As SldWorks.SldWorks

Sub main()
    Set swApp = Application.SldWorks
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim sfile As String

    sfile = swApp.GetUserPreferenceStringValue(swHoleWizardToolBoxFolder) & "\SWBrowser.mdb"
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sfile

    Set rs = conn.Execute("SELECT * FROM DIN_Categories")

    While Not rs.EOF
        Debug.Print rs.Fields(0).Value
        rs.MoveNext
    Wend
    rs.Close
    conn.Close

End Sub

---

Hat bei mir geklappt

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andreas,
das warŽs doch, was ich gesucht habe.
Was Du aufgeschrieben hast funktioniert auch bei mir.
Nun muß ich nur noch meinen Code anpassen.
Vielen Dank und viele Grüße
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP