salut,
le probleme pour ton code est le suivant :
lorsque tu arrive la première fois sur ta page
la valeur de ton id = vide et donc ton 1er select ne marchera pas.
tu peux avoir plusieurs méthodes en voici une :
<%
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "mabase"
id = trim(Request.QueryString("Id")
SQLQuery = "SELECT * FROM table1 order by id asc "
Action = Left(UCase(Request("Action")),5)
If Action="ENVOY" Then
sql = "update table1 "
sql = sql & "Set Nom =
'" & Request("Nom")
& "',"sql = sql & "Prenom ='" & Request("Prenom") & "',"
sql = sql & "Age ='" & Request("Age") & "' "
sql = sql & "WHERE Id =" & Request("Id")
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "mabase"
Set RS1 = OBJdbConnection.Execute(SQL)
'ici si tu es dans le cas ENVOYER
SQLQuery = "SELECT * FROM table1 WHERE id=" & id
End If
' la requete se trouve ici
Set RS = OBJdbConnection.Execute(SQLQuery)
%>
<FORM METHOD="GET">
<INPUT TYPE="hidden" NAME="Id" VALUE="<% =rs("Id") %>">
<P>Nom</P>
<INPUT TYPE="text" NAME="Nom" VALUE="<% =rs("Nom") %>">
<P>Prénom</P>
<INPUT TYPE="text" NAME="Prenom" VALUE="<% =rs("Prenom") %>">
<P>Age</P>
<INPUT TYPE="text" NAME="Age" VALUE="<% =rs("Age") %>">
<INPUT TYPE="Submit" NAME="Action" VALUE="ENVOYER">
</FORM>
voila en gros..
conseil : fais des tests tout de même pour savoir si tu as des enregistrements dans ta base pour éviter des erreurs
allez à+
-------------------------------
Réponse au message :
-------------------------------
Ok tiffou
Merci d'avoir bien voulu répondre à mon message.
A vrai dire je nage.
J'ai modifié le script et ça marche a moitié.
<% id = Request.QueryString("id") %>
<%Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "mabase"
SQLQuery = "SELECT * FROM table1 WHERE Id "Set RS = OBJdbConnection.Execute(SQLQuery)%>
<%Action = Left(UCase(Request("Action")),5)
If Action="ENVOY" Then
sql = "update table1 "
sql = sql & "Set Nom =
'" & Request("Nom")
& "',"sql = sql & "Prenom ='" & Request("Prenom") & "',"
sql = sql & "Age ='" & Request("Age") & "' "
sql = sql & "WHERE Id =" & Request("Id")
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "mabase"
Set RS1 = OBJdbConnection.Execute(SQL)
End If%>
<FORM METHOD="GET">
<INPUT TYPE="hidden" NAME="Id" VALUE="<% =rs("Id") %>">
<P>Nom</P>
<INPUT TYPE="text" NAME="Nom" VALUE="<% =rs("Nom") %>">
<P>Prénom</P>
<INPUT TYPE="text" NAME="Prenom" VALUE="<% =rs("Prenom") %>">
<P>Age</P>
<INPUT TYPE="text" NAME="Age" VALUE="<% =rs("Age") %>">
<INPUT TYPE="Submit" NAME="Action" VALUE="ENVOYER">
</FORM>
je m'explique
qd j'ouvre le fichier il m'affiche la première donnée de la base, je pense qu'il doit y avoir un lien avec modif que j'ai faite.
SQLQuery = "SELECT * FROM table1 WHERE Id "
comment lui dire que je veux modifier l'Id n° 14
Si tu as une idée. Merci
au sinon quand je modifie l'enregistrement qui m'affiche il mets bien a jour la base. C'est un miracle :)