Discussion :

[Depite]

Bonjour,

Je travaille sur un projet VB.net qui accède à des données fournies par une base de données Access 2003 associée à un fichier système spécifique gérant les droits d'accès par utilisateur (une vertu malheureusement disparue avec le format Access 2007 et suivants ..).

J'accède aux données via OleDB, pas de problème.
Toutefois, je dois vérifier et/ou créer une requête dans la base et, ne voulant pas ajouter une référence à DAO je souhaite le faire par les ressources ADOX.

Mon problème est que je ne parviens pas à affecter une chaine de connexion correcte à mon catalogue ADOX, j'ai tout d'abord essayé en utilisant une connexion ouverte OleDB mais ça ne fonctionne pas et ce n'est pas vraiment étonnant. J'ai ensuite essayé d'affecter la même chaine de connexion à mon instance de catalogue mais j'obtiens le message d'erreur suivant:

Les arguments sont de type incorrect, en dehors des limites autorisées ou en conflit les uns avec les autres.

Voici la chaine de connexion:

Code :

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

1
2
3
4
5
Provider=Microsoft.Jet.OLEDB.4.0
                                ;Data Source=\\MonPC\APPLICATIONS\DataDemo.mdb
                                ;User ID=MonAdm
                                ;PassWord=AdmPW#
                                ;Jet OLEDB:System database=\\MonPC\APPLICATIONS\Dev_2003.mdw

Comme le mot de passe comporte un caractère spécial (#) j'ai aussi fait un essai en encadrant le mot de passe entre simples cotes mais c'est pareil.

J'ai fouillé Google cet après-midi à la recherche d'exemples et j'ai consulté plusieurs fils et didacticiels sur Développez.net sans trouver la solution.

Merci pour votre aide.

[loufab]

Bonjour,

As-tu tenté de doubler les caractères spéciaux ?

Cordialement,

[nico84]

Bonjour,

J'utilise la syntaxe suivante qui fonctionne bien :

Code :

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

1
2
3
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\planet\mabase.accdb;Jet OLEDB:Database Password=MonMotDePasse;" 
rs.open "SELECT...", cn, adOpenStatic

Par contre ça fait longtemps que je n'ai plus de fichier mdw

[Depite]

A Loufab tout d'abord, même si le doublement des caractères spéciaux n'a rien changé.
Et à Nico84 qui m'a mis sur la bonne piste:
J'ai ouvert une connexion ADODB en incluant la désignation du fichier de sécurité .mdw dans la chaine de connexion mais sans les identifiants de connexion (userId et UserPwd), Ceux-ci sont déclarés dans la fonction d'ouverture de la connexion puis la connexion établie est affectée au catalogue ADOX:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Dim Txt As String = "Provider=Microsoft.ACE.OLEDB.12.0
;Data Source=" & My.Settings.DataBase & "
;Jet OLEDB:System database=" & My.Settings.FichierMDW
 
Dim cn As New ADODB.Connection  ' ouvre une connexion de type ADODB
cn.Open(ConnectionString:=Txt, UserID:=gUserId, Password:=gUserpwd)
Dim Cat As New ADOX.Catalog
Cat.ActiveConnection = cn