Discussion :

[lololoic]

bonjour,
j'utilise le code ci apres pour me connecter sur des bases de données de pc du reseau.
le pb c'est que l'acces à certain disque est protégé par un mot de passe (partage de disque windows). Comment faire pour fournir ce mot de passe ?

(je souhaite pas creer des connections réseaus permanente dans l'explorer windows car il y a trop de PC distant)

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
If testReseau("Bou62483472b") = True Then
  ' Ouverture de la base de données, on recupère la somme des quantités faite
    Set db1 = DBEngine.Workspaces(0).OpenDatabase("\\Bou62483472b\QPH-LC\Suivi-ligne.mdb")
    sSQL1 = "SELECT Sum([Durée par code panne].SommeDeQuantite) AS SommeDeSommeDeQuantite, Sum([Durée par code panne].SommeDeQuantiteOBJ) AS SommeDeSommeDeQuantiteOBJ, [Durée par code panne].Date FROM [Durée par code panne] GROUP BY [Durée par code panne].Date HAVING ((([Durée par code panne].Date)=#" & valajd & "#));"
    ' Ouverture du recordset
    Set rst1 = db1.OpenRecordset(sSQL1, dbOpenForwardOnly, dbReadOnly)
    ' Fermeture du Recordset
 
 
 
If (rst1.EOF = False) Then
QR = rst1(0)
QP = rst1(1)
Else
QR = 0
QP = 0
End If
 
rst1.Close

merci

[Tofalu]

le pb c'est que l'acces à certain disque est protégé par un mot de passe (partage de disque windows). Comment faire pour fournir ce mot de passe ?

A priori c'est pas possible. Quoique.

Je n'ai pas testé mais l'idéal serait de connecter la ressource sur un disque réseaux en local :

Dans un module :

Code :

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

1
2
 
Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName As String) As Long

Puis ton code deviendrais :

Code :

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

1
2
3
4
5
If testReseau("Bou62483472b") = True Then
'Connecte la ressource en local
WNetAddConnection("\\Bou62483472b\QPH-LC","monmotdepasse","Z:")
  ' Ouverture de la base de données, on recupère la somme des quantités faite
    Set db1 = DBEngine.Workspaces(0).OpenDatabase("Z:\Suivi-ligne.mdb")

Bémol : le login User utilisé est celui de l'utilisateur courant sur le PC.