Discussion :

[fellower]

Bonjour à tous,

voilà je post car j'ai un petit problème dans un de mes programme, en faite fait j'établis une connection sur une base de donnée access

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Public Function initConnection()
 
On Error GoTo errCnx
 
    'on instancie notre connection
 
    Set cnx = New ADODB.connection
 
    'chaine de connection
 
    cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Pointage ETA.mdb;Persist Security Info=False"
 
    cnx.Open
 
    initConnection = "OK"
 
Exit Function
 
errCnx:
 
    initConnection = "0"
 
End Function

donc comme ça en local, pas de problème tout fonctionne parfaitement, mais une fois que je change le chemin de la base de données pour celle se situant sur le serveur

Code :

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

cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=O:\Prestations\Eta\Pointage ETA.mdb;Persist Security Info=False"

là ça foire... j'ai également essayé en utilisant le nom du serveur ou son adresse ip mais rien à faire...

Code :

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

cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=O:\Prestations\Eta\Pointage ETA.mdb;Persist Security Info=False"

Code :

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

cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Serv-v1\Users_commun\Prestations\Eta\Pointage ETA.mdb;Persist Security Info=False"

Code :

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

cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\192.168.1.101:Users_commun\Prestations\Eta\Pointage ETA.mdb;Persist Security Info=False"

pourriez vous me dire ce qui provoque ce problème de connection ?

merci d'avance.

[Phifi]

Une idée peut-être, l'espace dans le nom de ta base, à voir...

[fellower]

Une idée peut-être, l'espace dans le nom de ta base, à voir...

ah peut-être, je vais toujours essayer mais l'espace est là aussi en local donc bon... et ça fonctionne en local... pas quand je veux atteindre celle sur le serveur... mais je vais toujours essayer merci.

[fellower]

non, le résultat avec ou sans l'espace est le même... merci quand même...

[Phifi]

Et en inscrivant \\Serv-v1\Users_commun\Prestations\ dans ton explorateur Windows, le répertoire distant s'ouvre bien ? Si oui, creuser du côté des droits d'accès au fichier (base en lecture seule, ou droits utilisateurs réduits...)

[fellower]

oui le chemin est bon et j'ai tous les droit sur cette base de données là... et elle n'est pas en lecture seule...

[lstjean]

Attention il y a une erreur dans ton code :

Code :

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

cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\192.168.1.101:Users_commun\Prestations\Eta\Pointage ETA.mdb;Persist Security Info=False"

il faut coder :

Code :

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

cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\192.168.1.101\Users_commun\Prestations\Eta\Pointage ETA.mdb;Persist Security Info=False"

[fellower]

Attention il y a une erreur dans ton code :

Code :

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

cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\192.168.1.101:Users_commun\Prestations\Eta\Pointage ETA.mdb;Persist Security Info=False"

il faut coder :

Code :

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

cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\192.168.1.101\Users_commun\Prestations\Eta\Pointage ETA.mdb;Persist Security Info=False"

merci, je vais essayer, désolé du retard de ma réponse, mais je n'ai pas eu accès à internet depuis jeudi...

[fellower]

non, ça ne marche toujours pas, j'ai toujours cette erreur :



sur cette ligne :

Code :

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

rs.Open sql, getConnection, adOpenStatic, adLockPessimistic

dans :

Code :

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

1
2
3
sql = "SELECT DinecExportPath from ConfigMail"
            cnx = getConnection
            rs.Open sql, cnx, adOpenStatic, adLockPessimistic

définition de getConnection :

Code :

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

1
2
3
4
5
Public Function getConnection() As ADODB.connection
 
    Set getConnection = cnx
 
End Function

et voilà comment je crée mon objet As ADODB.connection cnx

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Function initConnection()
 
On Error GoTo errCnx
 
    'on instancie notre connection
 
    Set cnx = New ADODB.connection
 
    'chaine de connection
 
    cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & LireINI("chemin", "db3") & ";Persist Security Info=False"
 
    cnx.Open
 
    initConnection = "OK"
 
Exit Function
 
errCnx:
 
    initConnection = "0"
 
End Function

db3 faisant référence à un fichier ini et contenant les différentes adresses citée ci-dessus... si je met une adresse vers la copie de la base de donnée présente sur mon disque dur local, ça fonctionne parfaitement...

[Phifi]

Ben bizarre... cette erreur fait plus penser à une erreur sql (nom de champ erronné) et ta connexion doit fonctionner. Je pense qu'il fallait commencer par là.
Tu es sûr que ta base est identique en local et sur réseau ?

[fellower]

Ben bizarre... cette erreur fait plus penser à une erreur sql (nom de champ erronné) et ta connexion doit fonctionner. Je pense qu'il fallait commencer par là.
Tu es sûr que ta base est identique en local et sur réseau ?

ben je l'étais mais voilà, la base à été modifiée par d'autre personnes et un champs a été effacé "par accident"... et vu que j'étais persuadé que les base étaient identique étant donnée que j'utilisais la copie de celle de la base ben je n'ai pas cherché de ce coté.

Merci en tout cas