Erreur lors d’enregistrement d'une date

**surfeur2** · 29/09/2016, 15h35

Bonjour,

lorsque j'essaie de modifier une date j'ai une erreur 500 du serveur !

lorsque j'essaie de lire une date j'ai une erreur 500 du serveur !

Code :

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

 Response.write "Date: " & rsV("DateV") & "<br>"

La date actuelle qui est dans la base et que je veux modifier ou lire à cette valeur : 28.09.2016 13:48:09

son format est: Date/Heure

le recordset est fonctionnel:

Code :

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

1
2
3
 
Total = rsV.recordcount
Response.write "Total: " & Total & "<br>"

cela me donne: Total: 1

Voici mon code:

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
<!doctype html>
<html lang="en">
<head>
	<meta charset="UTF-8" />
	<title>Test</title>
</head>
<body><%

str = 31

truc = "moi"

strAccessDB = "/Base/test.mdb"
DSN_BASE2 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(strAccessDB)
Set CONN2V = Server.CreateObject("ADODB.Connection")
CONN2V.Open DSN_BASE2

Set rsV = Server.CreateObject("ADODB.RecordSet")
sqlV = "select Distinct Pseudo from Visites where Pseudo = " & "'" & truc & "'" & " and IDmembres = " & str 
rsV.Open sqlV, CONN2V,3,2,1

if not rsV.eof then	
	rsV("DateV") = now()    ' le problème est ici	
	rsV.update
end if

rsV.close
set rsV = nothing

CONN2V.close
set CONN2V = nothing 

%>
	
</body>
</html>

**nico84** · 29/09/2016, 16h49

Bonjour,

Y'a des trucs qui ne ressemblent pas à du VBA là dedans mais je vois au moins 3 raisons pour que ça ne marche pas :
- select distinct... n'est jamais un recordset éditable (sauf peut-être si le distinct ne sert à rien ?)
- il manque rsv.edit (qui planterait pour la raison ci-dessus)
- rsv ne contient pas le champ datev

**surfeur2** · 29/09/2016, 17h31

Il y avait 2 raisons pour que cela ne marche pas :

1) Select distinct

J'ai viré distinct, je ne savais pas que si on l'utilise on ne peut pas éditer les recordsets merci de me l'apprendre.

2) J'ai oublier d'inclure dans la requête sql le champ DateV.

voici le code corrigé:

Code :

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

1
2
 
sqlV = "select * from Visites where Pseudo = " & "'" & session("ps") & "'" & " and IDmembres = " & str

si on omet rsv.edit il ne plante pas, par contre il plante si je le met (rsV.edit) ...

PS: c'est du code ASP

**nico84** · 29/09/2016, 22h27

Envoyé par surfeur2

J'ai viré distinct, je ne savais pas que si on l'utilise on ne peut pas éditer les recordsets merci de me l'apprendre.

En gros pour que le recordset soit modifiable il faut que chaque ligne pointe sur une et une seule ligne de la table "principale" sinon le truc ne saurait pas quelle ligne modifier donc ni distinct, ni group by, ni sous-requête complexe...

Envoyé par surfeur2

si on omet rsv.edit il ne plante pas, par contre il plante si je le met (rsV.edit) ...

Curieux, c'est peut-être implicite dans le ,3,2,1

Erreur lors d’enregistrement d'une date

Access

Discussions similaires

Partager

Partager