sanders1969
Gebruiker
- Lid geworden
- 29 dec 2018
- Berichten
- 243
Onderstaande code levert een foutmelding "Kan het installeerbare ISAM bestand niet vinden" Foutnummer: 3170
Inmiddels meerdere oplossing op Google uitgeprobeerd maar tot op heden geen succes.
Wanneer ik het wachtwoord weghaal uit zowel de code als op de database dan kan ik wel connecten.
Liefst werk ik met DAO ipv ADO en ik heb ook diverse ADO codes uitgeprobeerd maar zodra ik met een wachtwoord werkt dan loopt het in Excel vast.
Ik heb in de reference uiteraard de Microsoft Object DAO 3.6 Library toegevoegd.
Inmiddels meerdere oplossing op Google uitgeprobeerd maar tot op heden geen succes.
Wanneer ik het wachtwoord weghaal uit zowel de code als op de database dan kan ik wel connecten.
Liefst werk ik met DAO ipv ADO en ik heb ook diverse ADO codes uitgeprobeerd maar zodra ik met een wachtwoord werkt dan loopt het in Excel vast.
Ik heb in de reference uiteraard de Microsoft Object DAO 3.6 Library toegevoegd.
Code:
Dim db As Database
On Error GoTo DAO_Connection_Err
strDbName = "C:\Temp\db.mdb"
Set db = DBEngine.OpenDatabase(strDbName, False, False, "wachtwoord")
DAO_Connection_Err:
If Err.Number <> 0 Then
MsgBox Err.Description, vbCritical + vbOKOnly, "Foutnummer: " & Err.Number
Err.Clear
End If