Accès base de données : parametre de securite
Bonjour à tous,
J'ai un petit problème d'accès à une base de données.
J'ai un fichier html qui contient cela :
Code:
1
2
3
4
5
6
7
8
9
10
|
...
<head>
<script language="VBScript" src="stat_visite.vbs"></script
....
</head>
....
<body>
<script language="VBSCRIPT">stat_visite()</script>
.... |
Et voici le code de la methode(sub) stat_visite()
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
sub stat_visite()
Dim MoteurDeRecherche
MoteurDeRecherche = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
'
' Déclaration des variables de la base de données ACCESS
'
Dim objConnection
Dim objRecordset
Dim AccesFichier
Dim NumVisite
Dim NomVisiteur
Dim NbVisite
Dim DateDerniereVisite
Dim maj
maj = 0
'stockage des valeur courantes
NbVisite = 1
msgbox("youpi")
NomVisiteur = "toto"
DateDerniereVisite = Now 'date du jour
Msgbox (DateDerniereVisite)
Msgbox (NomVisiteur)
Fichier = "G:\bd1.mdb"
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
AccesFichier = MoteurDeRecherche & Fichier
Msgbox("test 1 : " & AccesFichier)
objConnection.Open AccesFichier
'le mesgbox suivant n'est pas affiché, message d'erreur sur l'appel de open
Msgbox("test 2")
objRecordset.Open "SELECT * FROM visites" , objConnection, adOpenStatic, adLockOptimistic
'objRecordset.MoveLast
'objRecordset.MoveFirst
'pour chaque element de l'enregistrement retourné
'while not(objRecordset.EOF)
' if objRecordset("nom_visiteur") = NomVisiteur then
' msgbox("update")
' objRecordset("nb_visite") = objRecordset("nb_visite") + NbVisite
' objRecordset("date_derniere_visite") = DateDerniereVisite
' maj = 1
' exit
' end if
' objRecordset.MoveNext
'wend
'if maj = 0 then
' msgbox("creation")
' objRecordset.AddNew
' objRecordset("nom_visiteur") = NomVisiteur
' objRecordset("nb_visite") = NbVisite
' objRecordset("date_derniere_visite") = DateDerniereVisite
' objRecordset.Update
'end if
objConnection.Close
'document.write("ok")
end sub |
Et au moment où la ligne "objConnection.Open AccesFichier" est executée j'ai le message suivant :
"Les paramètres de sécurité de cet ordinateur interdisent l'accès à une source de données située sur un autre domaine"
J'ai essayé de remplacer la ligne :
Fichier = "G:\bd1.mdb"
par Fichier = "\\serveur\site\fichiers\bd1.mdb"
ou par Fichier = "C:\Documents and settings\login\Bureau\bd1.mdb"
Et à chaque fois j'obtiens la même erreur.
J'ai essayé l'accès à un fichier XML et j'ai la même erreur.
J'ai les droits d'écriture sur tous ces emplacements.
Je ne sais d'ou peut venir ce problème ....
Quelqu'un aurait une idée ?
Merci beaucoup de votre aide !!!
