Accès base de données : parametre de securite

**samtheh** · 10/04/2008, 10h16

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 :

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

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 :

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
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 !!!

**ced600** · 10/04/2008, 13h15

As tu regardé quels étaient tes paramètre de sécurité ?
Non parce que vu l'erreur, moi perso, je commencerais par vérifier si ce que me dit le PC est vrai ou pas.

**samtheh** · 10/04/2008, 13h18

C'est à dire ?

J'ai les droits d'écriture/lecture sur ces emplacements réseaux et/ou locaux.

**ced600** · 10/04/2008, 13h21

Bah tu as des paramètres de sécurités pour la machine, je ne sais plus où cela se trouve. Il est possible que tu ne puisses pas faire ce que te dit l'erreur.