OLEDB Pbm de connexion sur une base ACCESS protégéeRésolu

Question

Bonjour,

J'ai actuellement un petit bout de code qui va chercher des infos dans une table access, tout fonctionnait très bien jusqu'au moment où j'ai du protéger mon fichier .mdb, je pensais qu'en ajoutant le mot de passe à la suite de ma connexion le tour serai joué mais apparement ce n'est pas si simple et une erreur Automation persiste, j'ai essayé de plusieurs manières mais rien n'y fait...
Voici mon code
Merci pour votre aide





Dim CONN As New ADODB.Connection
Dim MyConnString as String

MyConnString = "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password=ziggy;User ID=Admin;Data Source=S:\Clients +.mdb;"






    ' Créé & Ouvre la connexion via le provider "Microsoft.Jet.OLEDB.4.0"
    Set CONN = New ADODB.Connection
        CONN.Open MyConnString ' C'est ici qu'il se fache...

franzini · Accepted Answer

Merci à Fredéric Jouinot !!!





Dim
 MyConnString 
as
 String








    


    
MyConnString 

=


"Provider=Microsoft.Jet.OLEDB.4.0;" _
                               & "Jet OLEDB:Database Password=ziggy;" _
                               & "Data Source=S:\Clients +.mdb;"


 



    SetCONN =CreateObject("ADODB.Connection")
            CONN.Open MyConnString

Et là ça passe !!!

cs_thierry la fronde · Answer

Bonjour

Je point virgule à la fin?? c'est normal?

thierry la fronde

franzini · Answer

Bonjour

Oui c'est normal, de plus j'ai tourné le problème dans des 30 aines de combinaisons, c'est interminable... pour info le code suivant passait très bien quand ma base access n'était pas protégée.

Dim CONN As New ADODB.Connection





    ' Créé & Ouvre la connexion via le provider "Microsoft.Jet.OLEDB.4.0"
    Set CONN = New ADODB.Connection
        CONN.Provider = "Microsoft.Jet.OLEDB.4.0"
        CONN.Open S:\Clients +.mdb

Merci

OLEDB Pbm de connexion sur une base ACCESS protégée

3 réponses

Votre réponse

Discussions similaires