Discussion :

[Anthos59]

Bonjour,

J'essaie de réaliser un projet en ASP et j'ai repris le code des cours PHP pour faire celui des news en ASP.

Voila, on me dis que j'ai une erreur à la ligne 56 :



ADODB.Field error '800a0bcd'

BOF ou EOF est égal à True ou l'enregistrement actuel a été supprimé. L'opération demandée nécessite un enregistrement actuel.

/intranet/Form_admin/actu.asp, line 56

et cette ligne est celle ci : titreActu = RsRecupMess("titreActu")

Je ne comprend pas ce qu'il me demande, ça me met en rage, ça fé 1 journée complète que je suis dessus ! Aidez moi svp

Voici une grosse partie du code qui devrait aider. merci

<%

Dim strSQL
Dim DSN_BASE
Dim database
Dim dateActu
Dim titreActu
Dim nomDoc
Dim imageActu
Dim articleOk
Dim modifierActu

'On crée une fonction qui mets des slashs devant les cotes
function slash_cotes(SQL)
SQL_bis = replace(SQL,"'","\'")
slash_cotes = SQL_bis
end function

'On crée une variable pour éviter de remettre Request.Form("var")
dateActu = date()
titreActu = slash_cotes(Request.Form("titreActu"))
nomDoc = slash_cotes(Request.Form("nomDoc"))
imageActu = slash_cotes(Request.Form("imageActu"))
articleOk = 1
modifierActu = Request.QueryString("modifierActu")

'On crée la variable de la requête SQL
strSQL = "SELECT * FROM actub WHERE numActu='"&modifierActu&"'"
database = "intranet"
DSN_BASE = "DRIVER={MySQL ODBC 3.51 Driver};Server=localhost;Port=3306;Database=" & database & ";Uid=root;Pwd=;" & _
"OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384

Set ConnActu = Server.CreateObject("ADODB.Connection")
ConnActu.Open DSN_BASE

Set RsRecupMess = Server.CreateObject("ADODB.Recordset")

RsRecupMess.Open strSQL, ConnActu

'si on demande de modifier l'actu
if not isnull(modifierActu) then

'On récupère les informations dans des variables simples

titreActu = RsRecupMess("titreActu")
nomDoc = RsRecupMess("nomDoc")
imageActu = RsRecupMess("imageActu")
numActu =RsRecupMess("numActu")

else 'On rédige une nouvelle news

titreActu = ""
nomDoc = ""
imageActu = ""
numActu = 0
end if



%>

<form action="Actu_liste.asp" method="post">
<p>Titre Actu : <input type="text" name="titreActu" value="<%=titreActu%>" /></p>
<p>Nom Doc : <input type="text" name="nomDoc" value="<%=nomDoc%>" /></p>
<p>Image Actu : <input type="text" name="imageActu" value="<%=imageActu%>" /></p>
<p> <input type="submit" name="Envoyer" value="Envoyer" />
</form>

MErci d'avance !

A bientôt

[tom_92]

Salut,

es-tu sûr que que ta requete renvoie bien quelque chose?

Fais un test du genre :

Code :

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

1
2
3
4
5
IF RsRecupMess.EOF THEN
	response.Write "Aucun enregistrment retourné"
ELSE
' ici ton code de récupération de tes valeurs 
END IF

a+

[Anthos59]

Mon problème est réglé, je l'ai mis comme ceci et ça a l'air de fonctionner

<%

Dim strSQL
Dim DSN_BASE
Dim database
Dim dateActu
Dim titreActu
Dim nomDoc
Dim imageActu
Dim articleOk
Dim modifierActu

'On crée une fonction qui mets des slashs devant les cotes
function slash_cotes(SQL)
SQL_bis = replace(SQL,"'","\'")
slash_cotes = SQL_bis
end function

'On crée une variable pour éviter de remettre Request.Form("var")
dateActu = date()
titreActu = slash_cotes(Request.Form("titreActu"))
nomDoc = slash_cotes(Request.Form("nomDoc"))
imageActu = slash_cotes(Request.Form("imageActu"))
articleOk = 1
modifierActu = Request.QueryString("modifierActu")

'On crée la variable de la requête SQL
strSQL = "SELECT * FROM actub WHERE numActu='"&Request.QueryString("modifierActu")&"'"
database = "intranet"
DSN_BASE = "DRIVER={MySQL ODBC 3.51 Driver};Server=localhost;Port=3306;Database=" & database & ";Uid=root;Pwd=;" & _
"OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384

Set ConnActu = Server.CreateObject("ADODB.Connection")
ConnActu.Open DSN_BASE

Set RsRecupMess = Server.CreateObject("ADODB.Recordset")




'si on demande de modifier l'actu
if not isnull(modifierActu) then

RsRecupMess.Open strSQL, ConnActu

if not RsRecupMess.eof then
'On récupère les informations dans des variables simples

titreActu = RsRecupMess("titreActu")
nomDoc = RsRecupMess("nomDoc")
imageActu = RsRecupMess("imageActu")
numActu =RsRecupMess("numActu")

end if

else 'On rédige une nouvelle news

titreActu = ""
nomDoc = ""
imageActu = ""
numActu = 0
end if

%>

<form action="Actu_liste.asp" method="post">
<p>Titre Actu : <input type="text" name="titreActu" value="<%=titreActu%>" /></p>
<p>Nom Doc : <input type="text" name="nomDoc" value="<%=nomDoc%>" /></p>
<p>Image Actu : <input type="text" name="imageActu" value="<%=imageActu%>" /></p>
<input type="hidden" name="numActu" value="<%=numActu%>" />
<p> <input type="submit" name="Envoyer" value="Envoyer" />
</form>

<%

ConnActu.Close
Set ConnActu = Nothing

%>

Merci de ton aide. je vais rouvrir un post, j'ai un autre problème

[tom_92]

De rien, noublie pas de marquer ton message comme [RESOLU]

a+
Tom