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.

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

J'avais bien noté la parade de microsoft :
http://support.microsoft.com/kb/313239/fr

Seulement cela ne m'aide pas beaucoup....

**ced600** · 10/04/2008, 14h18

c'est à dire ?

**samtheh** · 10/04/2008, 16h32

Et bien dans le panneau de configuration --> Option internet --> Sécurité --> Intranet Local --> personnaliser le niveau :

J'ai changer l'option "Divers > Accès aux sources de données sur plusieurs domaines" sur Activer.

Mais cela ne marche toujours pas.

**ced600** · 11/04/2008, 09h42

Est ce que l'utilisateur quio lance le script a les mêmes droits ?

**samtheh** · 11/04/2008, 09h52

Oui, car pour le moment je suis seul à lancer ce script.

Je ne sais vraiment pas quoi faire.....

**ced600** · 11/04/2008, 10h00

et tu es sur de la syntaxe de :

Code :

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

objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\bd1.mdb"

Perso cela me semble correcte, mais je ne peux rien affirmer car je ne travaille aps avec les BD, et donc je n'ai pas l'habitude de ce genre de code.

et puis au cas où essaye un script composé de ces deux lignes uniquement :

Code :

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

1
2
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\bd1.mdb"

Si ce script ne marche pas, alors soit :

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\bd1.mdb" est faux.
"G:\bd1.mdb" n'existe pas ou n'est pas accessible.
Soit le problème viens d'ailleurs ( ce que l'on essaye de déterminer depuis le début mais sans succés).

**samtheh** · 11/04/2008, 10h14

J'ai essayé pour le même résultat....

Sinon j'ai aussi essayé avec les chaine de connection suivantes :

Code :

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

1
2
3
4
5
 
...
objConnection.Open "Data Source=G:\bd1.mdb"
...
objConnection.Open "G:\bd1.mdb"

Et j'ai strictement le même message d'erreur....

Un idée ? Merci de ton aide en tout cas !!!

**ced600** · 11/04/2008, 10h20

tu as installé le driver de connexion à la base de donnée ?

Essayes d'ouvrir directement le fichier avec access.

**samtheh** · 11/04/2008, 10h40

J'ai bien accès à la base directement, le pilote access est bien présent dans les sources de données ADBC du poste.

Mais je ne suis pas sur que le problème vienne de la, car avec une méthode différente et une solution XML j'obtiens la même erreure.
Veux tu le code utilisé pour la méthode XML ?

Comment enregistrer des infos sinon par d'autres moyens ?
Il me faut un enregistrement structuré ou semi-structuré.

**ced600** · 11/04/2008, 14h00

Tu as raison je pense que le problème ne viens pas du code, ni du fichier, ...
Mais bon fallait quand même essayer on ne sait jamais

Comment enregistrer des infos sinon par d'autres moyens ?
Il me faut un enregistrement structuré ou semi-structuré.

Je ne suis pas sur de comprendre, tu veux stocker des données de façon structure comme dans une base de données ou un fichier XML ?

Je viens de capter un truc avec ton fichier xml, tu as essayé d'accéder à un fichier xml sur G et cela n'a pas marché ?

C'est quoi comme lecteur G ? Un lecteur réseau ? Réseau d'entreprise ? Privée ?

**samtheh** · 11/04/2008, 14h31

Je veux stocker mes données dans une BDD ou au pire dans un XML mais pas dans du fichier texte brut.

Oui c'est ce que j'ai fait pour le fichier XML pour le même message d'erreur au final.

Le lecteur G est un lecteur réseau (sur reseau d'entreprise), mais c'est mon espace perso, j'ai tous les droits dessus. J'ai aussi essayé depuis le serveur ou sont stockés tous les fichiers du site. Même résultat...

**ced600** · 11/04/2008, 16h28

Peut être que les admins réseau ont mis des droits spécifiques sur le réseau interdisant ce genre de chose.
Leur as tu demandé ?

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

VBScript

Discussions similaires

Partager

Partager