Discussion :

[Viniraptor]

Bonjour,

J'ai un petit souci pour ouvrir un dbf passwordé. Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
Dim strConnex As String = "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq="
 
        Try
            Dim connection As OdbcConnection
            connection = New OdbcConnection(String.Concat(New String() {strConnex, szTable, ";User ID=Admin;Password='", szWBSerial, "';"}))
 
            Dim adapter As New OdbcDataAdapter(selectCommandText, connection)
            connection.Open()

Mon string de connexion une fois lancé est :

Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=C:\test.dbf;User ID=Admin;Password='0008579';

L'erreur :

ERROR [HY024] [Microsoft][Pilote ODBC dBase] '(Inconnu)' n'est pas un chemin d'accès valide. Assurez-vous que le nom du chemin d'accès est correct et qu'une connexion est établie avec le serveur sur lequel réside le fichier.
ERROR [01S00] [Microsoft][Pilote ODBC dBase]Attribut de chaîne de connexion non valide User ID
ERROR [01S00] [Microsoft][Pilote ODBC dBase]Attribut de chaîne de connexion non valide Password

Merci de vos lumières ...

[Danyel]

'(Inconnu)' n'est pas un chemin d'accès valide

Ca me parait explicite non ?
Il ne trouve pas '(Inconnu)' qui doit etre le chemin du fichier.

[Viniraptor]

Ca me parait explicite non ?
Il ne trouve pas '(Inconnu)' qui doit etre le chemin du fichier.

Justement le problème c'est que le fichier est bel est bien à cette adresse et qu'aucun processus n'y accède non plus.

Je sais vraiment pas ce qui ce passe.

[Bluedeep]

Pas sur du tout que l'identification utilisateur soit utilisable avec ODBC.

Il y a-t-il une raison valable pour ne pas utiliser le provider OleDB ?

(si on en juge par cette syntaxe de connection, ici ,OleDB supporte l'identification de l'utilisateur).

[Viniraptor]

Merci pour votre idée, j'ai tenté le coup avec Ole DB, mais cette fois à partir d l'ajout de data sources directement dans le GUI et pas dans le code.

J'ai eu le message suivant :

Le fichier d'informations du groupe de travail est absent ou ouvert en mode exclusif par un autre utilisateur

Après un petit google, j'ai trouvé qu'il fallait préalablement mettre le pass direcement dans les propriété étendues, ce que j'ai fait. J'ai à présent un beau :

Format de base de données ('c:\test.dbf') non reconnu

.

Jet 4.0 OLE DB ne peut pas ouvrir du DBF ????

Par contre lorsque je le lance directement à partir du code :

Code :

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

1
2
3
4
5
 
Dim strconnex2 As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Dim connection As OdbcConnection
connection = New OdbcConnection(String.Concat(New String() {strconnex2, szTable, ";Extended Properties=dBASE IV, User ID=Admin;Password='", szWBSerial, "';"}))
connection.Open()

Mon string de connection donne

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.dbf;Extended Properties=dBASE IV, User ID=Admin;Password='0008579';"

J'ai un

System.Data.Odbc.OdbcException = {"ERROR [IM002] [Microsoft][Gestionnaire de pilotes ODBC] Source de données introuvable et nom de pilote non spécifié"}

Aurais-je un soucis avec mes drivers ?

[Bluedeep]

Euh, là il semble que tu continues à utiliser les classes ODBC avec une syntaxe de chaine de connection OleDB. (ODBCConnection au lieu de OleDBConnection)

D'ailleurs, à la base, c'est ta DAL qui est mal fichue (utiliser les classes d'accés au lieu des interfaces permettant de ne s'occuper du choix OleDB vs ODBC qu'au moment de la connection).