Read only property [Résolu]

[tidus666x]

Bonjours à tous.

Je travail avec un fichier MDB sur un Serveur VPS que je vien de me construire mais cependant j'ai une cette erreur lorsque j'éssaie de m'identifier sur mon système

Code :

1
2
3
4
5
ADODB.Connection error '80040e21' 
 
Read-only property value was not set. 
 
/traitement.asp, line 78

Pourtant, IUSR à tout les droits sur le dossier de ma base de donnée (ainsi que sure ma base de donnée)

Voici mon code :

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
	dim idenzone,conn,rs,sql,email,mopa
 
		idenzone=request.querystring("idenzone")
		email=request.form("email")
		mopa=request.form("mopa")
 
		if idenzone="membre" then
 
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs= Server.CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("db/infoc.mdb")
sql ="select * from utilisateur where email='"&email&"' and mopa='"&mopa&"'"
rs.Open sql, conn , 2, 3 
conn.execute(sql)
if not rs.eof then
do while not rs.eof
 
session("login")="membre"
session("id")=rs.fields("id")
session("perm")=rs.fields("perm")
session("organisation")=rs.fields("organisation")
 
if rs.fields("entreprisenom")="" then
session("nomu")=rs.fields("nom")
else
session("nomu")=rs.fields("entreprisenom")
end if
 
response.redirect("membre_index.asp")
 
 rs.movenext
loop
else
response.write"Votre nom d'usager n'existe pas ! "
response.end
end if
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
 
		end if

La ligne 78:

Code :

sql ="select * from utilisateur where email='"&email&"' and mopa='"&mopa&"'"

Merci

[Immobilis]

Salut,

Essaye ceci pour voir:

Code :

1
2
 
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("db/infoc.mdb") & ";"

Sinon, fait un response.write(Server.Mappath("db/infoc.mdb")) pour vérifier que le chemin correspond bien à celui de la base.
De plus, il est inutile de mettre un "conn.execute" après le "rs.open". Le "rs.open" récupère déjà les données.

Code :

1
2
3
4
5
 
sql ="select * from utilisateur where email='"&email&"' and mopa='"&mopa&"'"
rs.Open sql, conn , 2, 3 
    if not rs.eof then
        do while not rs.eof

A+

[tidus666x]

Merci ça fonctionne

[Immobilis]

Jette un oeil ici: http://www.developpez.net/forums/sho...d.php?t=503798. Il y a des idées/outils qui pourront t'aider, notement la classe DBFactory.

A+