Mise a jour automatique d un enregistrement
ludwigfve
Messages postés
52
Date d'inscription
lundi 13 février 2006
Statut
Membre
Dernière intervention
10 juillet 2008
-
13 sept. 2006 à 09:08
ludwigfve Messages postés 52 Date d'inscription lundi 13 février 2006 Statut Membre Dernière intervention 10 juillet 2008 - 13 sept. 2006 à 09:40
ludwigfve Messages postés 52 Date d'inscription lundi 13 février 2006 Statut Membre Dernière intervention 10 juillet 2008 - 13 sept. 2006 à 09:40
A voir également:
- Mise a jour automatique d un enregistrement
- Mise à jour sybase - Conseils pratiques -SQL
- Le code contenu dans ce projet doit etre mis a jour ✓ - Forum VBA Office (Excel, Word ...)
- Visual studio code enregistrement automatique - Forum Visual Basic 6
- L'opération doit utiliser une requête qui peut être mise à jour - Forum C# / .NET
- Visual studio code mise en forme automatique - Forum VB.NET
2 réponses
ludwigfve
Messages postés
52
Date d'inscription
lundi 13 février 2006
Statut
Membre
Dernière intervention
10 juillet 2008
1
13 sept. 2006 à 09:12
13 sept. 2006 à 09:12
<form action="<%=MM_editAction%>" method="POST" name="remarque" id="remarque">
----
<label></label>,
<label>
</label>,
<label></label>,
">
">
</form></td>
<td width="643" align="left" valign="top"> <form name="form1" method="POST" action="<%=MM_editAction%>">
----
<label></label>,
<label>
</label>,
<label></label>,
">
">
</form></td>
<td width="643" align="left" valign="top"> <form name="form1" method="POST" action="<%=MM_editAction%>">
ludwigfve
Messages postés
52
Date d'inscription
lundi 13 février 2006
Statut
Membre
Dernière intervention
10 juillet 2008
1
13 sept. 2006 à 09:40
13 sept. 2006 à 09:40
<%
If (CStr(Request("MM_update")) = "remarque") Then
If (Not MM_abortEdit) Then
' execute the update
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_ludwig_STRING MM_editCmd.CommandText "UPDATE message SET etat ? WHERE id = ?"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 50, Request.Form("monmessage")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 5, 1, -1, MM_IIF(Request.Form("MM_recordId"), Request.Form("MM_recordId"), null)) ' adDouble
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
End If
End If
%>
If (CStr(Request("MM_update")) = "remarque") Then
If (Not MM_abortEdit) Then
' execute the update
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_ludwig_STRING MM_editCmd.CommandText "UPDATE message SET etat ? WHERE id = ?"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 50, Request.Form("monmessage")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 5, 1, -1, MM_IIF(Request.Form("MM_recordId"), Request.Form("MM_recordId"), null)) ' adDouble
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
End If
End If
%>
