Discussion :

[GeorgesAntoineC]

Salut à tous...

C'est surement facile, mais je n'arrive pas à trouver la solution, donc je me suis pourquoi pas demandé!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
    Dim strDBPath As String
 
    strDBPath = "Chemin\BD_Dorsale.accdb"
 
    Dim cn As New ADODB.Connection
    Dim Rs As New ADODB.Recordset
 
    cn.Provider = "Microsoft.ACE.OLEDB.12.0"
    cn.Open "Data Source=" & strDBPath, False, "Mot_de_passe"
 
    Set Rs = cn.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")

Bref, ce code ne fonctionne pas...

[marot_r]

Bonjour.

Bref, ce code ne fonctionne pas...

Et il ne fonctionne pas comment ?

• Tu as un message d'erreur ? Lequel ? Sur quelle ligne ?
• Tu n'as pas de message et il ne se passe rien ?
• Tu as un résultat mais pas celui attendu ?
• Autre chose ?

A+

[GeorgesAntoineC]

l'erreur est sur le .open

Lorsque je n'avais pas de mot de passe, mon code s’exécutait correctement. Depuis, que j'ai mis un MP, il n'arrive tout simplement pas à exécuter cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
cn.Open "Data Source=" & strDBPath, False, "Mot_de_passe"

Bref, je n'arrive pas à incorporer mon MP à ma ligne de code...

Aucun résultat, il saute cette étape avec un ErrorHandler.

[marot_r]

Bonjour.

Déjà enlève les On Error Resume Next, ce qui va te permettre de voir l'erreur générée et de confirmer que l'erreur est bien là où tu le crois.

Peronnellement je n'utilise On Error Resume Next que quand je n'ai vraiment plus aucune autre option sinon j'utilise le code suivant :

en début de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On error goto Err_MaProcedure

en fin de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Exit_MaProcedure:
   exit Sub 'ou exit function
 
Err_MaProcedure:
   select case err.number
      case unNumeroErreurAttendue 'OK j'ai prévu le coup
         'éventuellement du code pour contrer l'erreur
         Resume UneLigne '(ou Resume, ou éventuellement Resume Next mais seulement si l'erreur est sans importance)
 
      case else
         call msgbox(err.number & ", " & err.description, vbExclamation) 'Opps ça c'était pas prévu, merci de m'en parler.
 
  end select

Comme cela soit j'ai des erreurs que gère soit je suis prévunu du problème et il n'est pas "glissé sous le tapis".

A+

[GeorgesAntoineC]

Effectivement,

on s'est mal compris, je n'utilise pas On error resume Next. Mon Erreur erreur est justement le même principe que tu utilises.

Je sais justement que c'est la ligne que j'ai mentionnée plus haut qui ne fonctionne pas.

J'aimerais juste ajouter mon mot de passe pour pouvoir ouvrir la BD access correctement, mais il faut croire que je l'écris mal.

[marot_r]

Désolé mais il me semblait bien avoir vu un Resume Next ... il se passe des choses étranges dans mon cerveau :-(.

J'ai trouvé cela :

https://www.connectionstrings.com/access/

Qui détaille les connexions string à utiliser dans toutes les circonstances et apparement il faut mettre le mot de passe dans la chaîne de connexion, pas à l'extérieur.

Ceci dit pourquoi utiliser une connexion ADO sur une base Access plutôt qu'une table liée, cela me paraîtrai plus simple.

A+

[GeorgesAntoineC]

J'ai essayé plusieurs choses avec le lien tu m'as envoyé...

ça ne fonctionne pas..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
cn.ConnectionString = "Microsoft.ACE.OLEDB.12.0; Data Source=" & strDBPath & "; Jet OLEDB:Database Password=" & MP
   cn.Open

[marot_r]

Bonjour.

avec une erreur de ce type on dirait que cn n'a pas été initialisé avant que tu essayes d'assigner la valeur.

A+

[GeorgesAntoineC]

Bonjour.

avec une erreur de ce type on dirait que cn n'a pas été initialisé avant que tu essayes d'assigner la valeur.

A+

Pourtant, je déclare plus haut :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim cn As New ADODB.Connection