Accueil > Forum > > > > Modification d'un enregistrement dans une bd
 Modification d'un enregistrement dans une bd
vendredi 13 février 2004 à 16:04:24 |
Modification d'un enregistrement dans une bd
reyterg
|
Bonjour à tous Après la suppression d'un enregistrement dans une bd pas plus tard qu'hier (merci à Fabrice pour son aide ), la suite logique est de faire la modification dans la base. J'ai réalisé un listing de mes enregistrements, quand je clique sur un enregistrement celui-ci va sur une page ASP où des champs de textes accueillent les informations détenues dans la base. Je coince à partir du moment où je dois envoyer les modifications dans la base. Pour info car je ne sais pas si c'est important, mais id est un nombre. Voici mon code (partiel) pour cette page: <%var_id = Request.Querystring("reference")%>
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../")&"/databases/bd.mdb;"
Set Rs = Server.CreateObject("ADODB.Recordset")
|
id_bis= Request.Form("id")
nom_bis= Request.Form("nom")
prenom_bis= Request.Form("prenom")
mail_bis= Request.Form("mail")
|
RequeteSQL = "Update annmoto Set nom='"&nom_bis&"',prenom='"&prenom_bis&"',mail='"&mail_bis&"' WHERE id='"&id_bis&"';"
Rs.Open RequeteSQL , Con%>
|
<%
Rs.Close
set Rs = Nothing
con.Close
set con = Nothing
%>
|
L'erreur provoquée est celle-ci : Microsoft OLE DB Provider for ODBC Drivers error '80040e07'
[Microsoft][Pilote ODBC Microsoft Access] Type de données incompatible dans l'expression du critère.
/modif_exe_ann_moto_wm.asp, line 40 et voici la ligne d'erreur (ligne 40): mais je pense plutôt que le problème se trouve une ligne plus haut Merci à tous ceux qui essayeront de faire tourner ce code chatouilleur. Greg |
|
vendredi 13 février 2004 à 16:40:02 |
Re : Modification d'un enregistrement dans une bd
Bud
|
Hello
2 lignes à changer...
id_bis= cLng(Request.Form("id"))
et
RequeteSQL = "Update annmoto Set nom='" & nom_bis & "',prenom='" & prenom_bis & "',mail='" & mail_bis & "' WHERE id=" & id_bis & ";"
|
|
lundi 16 février 2004 à 15:39:25 |
Re : Modification d'un enregistrement dans une bd
reyterg
|
Merci Bud, mais ce n'est pas suffisant, il me donne toujours une erreur. Je viens de simplifier le nombre des champs de texte histoire de réduire les fautes de programmations bégnines. ça vient peut-être aussi des autres pages. Voici les codes: Page de listing : <%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../")&"/databases/bd.mdb;"
Set rst = Server.CreateObject("ADODB.Recordset")
rst.open "SELECT * FROM annmoto ORDER BY date_parution DESC;", con, adOpenKeyset, adLockOptimistic
%>
|
<%while (not rst.EOF) %>
<table width="100%">
<tr>
<td width="20%">
<div align="center"><a href="modif_ann_moto_wm.asp?reference=<%=Rst("id")%>">Modifier</a>
</div>
<div align="center"></div></td>
<td width="20%">
<div align="center"><%=rst("date_parution")%></font></div></td>
<td width="20%"><a href="recup_formulaire.asp?id=<%=rst("id")%>">
<div align="center"><%=rst("nom")%></div>
</a></td>
<td width="20%"><a href="recup_formulaire.asp?id=<%=rst("id")%>">
<div align="center"><%=rst("prenom")%></div>
</a></td>
<td width="16%"><a href="recup_formulaire.asp?id=<%=rst("id")%>">
<div align="center"><%=rst("mail")%></div>
</a></td>
</tr>
<%rst.movenext
wend%>
</table>
|
Code de la page de modif des champs: <%var_id = Request.Querystring("reference")%>
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../")&"/databases/bd.mdb;"
Set rst = Server.CreateObject("ADODB.Recordset")
rst.open "SELECT * FROM annmoto WHERE id =" & var_id &";", con, adOpenKeyset, adLockOptimistic
%>
|
<form action="modif_exe_ann_moto_wm.asp" method="post" name="form2">
<td width="50%" height="114">
<div align="left"><font color="#000000">id<br>
</font>
<input name="id" type="text" id="id" value="<%=Rst("id")%>">
<br>
Nom:</font><br>
<input name="nom" type="text" id="nom" value="<%=Rst("nom")%>">
<br>
Prénom: </font><br>
<input name="prenom" type="text" id="prenom" value="<%=Rst("prenom")%>">
<br>
Adresse E-mail:<br>
<input name="mail" type="text" id="mail" value="<%=Rst("mail")%>">
<input type="hidden" Name="id" Value="<%=id%>">
<p align="center">
<input name="Submit" type="submit" value="Envoyer la modification">
</div></td></form>
|
Page d'exécution des modifications: <%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../")&"/databases/bd.mdb;"
Set Rs = Server.CreateObject("ADODB.Recordset")
id_bis= Request.Form("id")
nom_bis= Request.Form("nom")
prenom_bis= Request.Form("prenom")
mail_bis= Request.Form("mail")
RequeteSQL = "Update annmoto Set nom='" & nom_bis & "',prenom='" & prenom_bis & "',mail='" & mail_bis & "' WHERE id=" & id_bis & ";"
Rs.Open RequeteSQL ,con%>
|
il me dit qu'il y a une erreur de syntaxe (une virgule)au niveau de la ligne : RequeteSQL = "Update annmoto Set nom='" & nom_bis & "',prenom=... Merci à vous. Greg
|
|
lundi 16 février 2004 à 15:39:29 |
Re : Modification d'un enregistrement dans une bd
reyterg
|
Merci Bud, mais ce n'est pas suffisant, il me donne toujours une erreur. Je viens de simplifier le nombre des champs de texte histoire de réduire les fautes de programmations bégnines. ça vient peut-être aussi des autres pages. Voici les codes: Page de listing : <%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../")&"/databases/bd.mdb;"
Set rst = Server.CreateObject("ADODB.Recordset")
rst.open "SELECT * FROM annmoto ORDER BY date_parution DESC;", con, adOpenKeyset, adLockOptimistic
%>
|
<%while (not rst.EOF) %>
<table width="100%">
<tr>
<td width="20%">
<div align="center"><a href="modif_ann_moto_wm.asp?reference=<%=Rst("id")%>">Modifier</a>
</div>
<div align="center"></div></td>
<td width="20%">
<div align="center"><%=rst("date_parution")%></font></div></td>
<td width="20%"><a href="recup_formulaire.asp?id=<%=rst("id")%>">
<div align="center"><%=rst("nom")%></div>
</a></td>
<td width="20%"><a href="recup_formulaire.asp?id=<%=rst("id")%>">
<div align="center"><%=rst("prenom")%></div>
</a></td>
<td width="16%"><a href="recup_formulaire.asp?id=<%=rst("id")%>">
<div align="center"><%=rst("mail")%></div>
</a></td>
</tr>
<%rst.movenext
wend%>
</table>
|
Code de la page de modif des champs: <%var_id = Request.Querystring("reference")%>
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../")&"/databases/bd.mdb;"
Set rst = Server.CreateObject("ADODB.Recordset")
rst.open "SELECT * FROM annmoto WHERE id =" & var_id &";", con, adOpenKeyset, adLockOptimistic
%>
|
<form action="modif_exe_ann_moto_wm.asp" method="post" name="form2">
<td width="50%" height="114">
<div align="left"><font color="#000000">id<br>
</font>
<input name="id" type="text" id="id" value="<%=Rst("id")%>">
<br>
Nom:</font><br>
<input name="nom" type="text" id="nom" value="<%=Rst("nom")%>">
<br>
Prénom: </font><br>
<input name="prenom" type="text" id="prenom" value="<%=Rst("prenom")%>">
<br>
Adresse E-mail:<br>
<input name="mail" type="text" id="mail" value="<%=Rst("mail")%>">
<input type="hidden" Name="id" Value="<%=id%>">
<p align="center">
<input name="Submit" type="submit" value="Envoyer la modification">
</div></td></form>
|
Page d'exécution des modifications: <%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../")&"/databases/bd.mdb;"
Set Rs = Server.CreateObject("ADODB.Recordset")
id_bis= Request.Form("id")
nom_bis= Request.Form("nom")
prenom_bis= Request.Form("prenom")
mail_bis= Request.Form("mail")
RequeteSQL = "Update annmoto Set nom='" & nom_bis & "',prenom='" & prenom_bis & "',mail='" & mail_bis & "' WHERE id=" & id_bis & ";"
Rs.Open RequeteSQL ,con%>
|
il me dit qu'il y a une erreur de syntaxe (une virgule)au niveau de la ligne : RequeteSQL = "Update annmoto Set nom='" & nom_bis & "',prenom=... Merci à vous. Greg
|
|
lundi 16 février 2004 à 15:40:19 |
Re : Modification d'un enregistrement dans une bd
reyterg
|
Merci Bud, mais ce n'est pas suffisant, il me donne toujours une erreur. Je viens de simplifier le nombre des champs de texte histoire de réduire les fautes de programmations bégnines. ça vient peut-être aussi des autres pages. Voici les codes: Page de listing : <%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../")&"/databases/bd.mdb;"
Set rst = Server.CreateObject("ADODB.Recordset")
rst.open "SELECT * FROM annmoto ORDER BY date_parution DESC;", con, adOpenKeyset, adLockOptimistic
%>
|
<%while (not rst.EOF) %>
<table width="100%">
<tr>
<td width="20%">
<div align="center"><a href="modif_ann_moto_wm.asp?reference=<%=Rst("id")%>">Modifier</a>
</div>
<div align="center"></div></td>
<td width="20%">
<div align="center"><%=rst("date_parution")%></font></div></td>
<td width="20%"><a href="recup_formulaire.asp?id=<%=rst("id")%>">
<div align="center"><%=rst("nom")%></div>
</a></td>
<td width="20%"><a href="recup_formulaire.asp?id=<%=rst("id")%>">
<div align="center"><%=rst("prenom")%></div>
</a></td>
<td width="16%"><a href="recup_formulaire.asp?id=<%=rst("id")%>">
<div align="center"><%=rst("mail")%></div>
</a></td>
</tr>
<%rst.movenext
wend%>
</table>
|
Code de la page de modif des champs: <%var_id = Request.Querystring("reference")%>
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../")&"/databases/bd.mdb;"
Set rst = Server.CreateObject("ADODB.Recordset")
rst.open "SELECT * FROM annmoto WHERE id =" & var_id &";", con, adOpenKeyset, adLockOptimistic
%>
|
<form action="modif_exe_ann_moto_wm.asp" method="post" name="form2">
<td width="50%" height="114">
<div align="left"><font color="#000000">id<br>
</font>
<input name="id" type="text" id="id" value="<%=Rst("id")%>">
<br>
Nom:</font><br>
<input name="nom" type="text" id="nom" value="<%=Rst("nom")%>">
<br>
Prénom: </font><br>
<input name="prenom" type="text" id="prenom" value="<%=Rst("prenom")%>">
<br>
Adresse E-mail:<br>
<input name="mail" type="text" id="mail" value="<%=Rst("mail")%>">
<input type="hidden" Name="id" Value="<%=id%>">
<p align="center">
<input name="Submit" type="submit" value="Envoyer la modification">
</div></td></form>
|
Page d'exécution des modifications: <%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../")&"/databases/bd.mdb;"
Set Rs = Server.CreateObject("ADODB.Recordset")
id_bis= Request.Form("id")
nom_bis= Request.Form("nom")
prenom_bis= Request.Form("prenom")
mail_bis= Request.Form("mail")
RequeteSQL = "Update annmoto Set nom='" & nom_bis & "',prenom='" & prenom_bis & "',mail='" & mail_bis & "' WHERE id=" & id_bis & ";"
Rs.Open RequeteSQL ,con%>
|
il me dit qu'il y a une erreur de syntaxe (une virgule)au niveau de la ligne : RequeteSQL = "Update annmoto Set nom='" & nom_bis & "',prenom=... Merci à vous. Greg
|
|
lundi 16 février 2004 à 15:40:45 |
Re : Modification d'un enregistrement dans une bd
reyterg
|
Merci Bud, mais ce n'est pas suffisant, il me donne toujours une erreur. Je viens de simplifier le nombre des champs de texte histoire de réduire les fautes de programmations bégnines. ça vient peut-être aussi des autres pages. Voici les codes: Page de listing : <%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../")&"/databases/bd.mdb;"
Set rst = Server.CreateObject("ADODB.Recordset")
rst.open "SELECT * FROM annmoto ORDER BY date_parution DESC;", con, adOpenKeyset, adLockOptimistic
%>
|
<%while (not rst.EOF) %>
<table width="100%">
<tr>
<td width="20%">
<div align="center"><a href="modif_ann_moto_wm.asp?reference=<%=Rst("id")%>">Modifier</a>
</div>
<div align="center"></div></td>
<td width="20%">
<div align="center"><%=rst("date_parution")%></font></div></td>
<td width="20%"><a href="recup_formulaire.asp?id=<%=rst("id")%>">
<div align="center"><%=rst("nom")%></div>
</a></td>
<td width="20%"><a href="recup_formulaire.asp?id=<%=rst("id")%>">
<div align="center"><%=rst("prenom")%></div>
</a></td>
<td width="16%"><a href="recup_formulaire.asp?id=<%=rst("id")%>">
<div align="center"><%=rst("mail")%></div>
</a></td>
</tr>
<%rst.movenext
wend%>
</table>
|
Code de la page de modif des champs: <%var_id = Request.Querystring("reference")%>
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../")&"/databases/bd.mdb;"
Set rst = Server.CreateObject("ADODB.Recordset")
rst.open "SELECT * FROM annmoto WHERE id =" & var_id &";", con, adOpenKeyset, adLockOptimistic
%>
|
<form action="modif_exe_ann_moto_wm.asp" method="post" name="form2">
<td width="50%" height="114">
<div align="left"><font color="#000000">id<br>
</font>
<input name="id" type="text" id="id" value="<%=Rst("id")%>">
<br>
Nom:</font><br>
<input name="nom" type="text" id="nom" value="<%=Rst("nom")%>">
<br>
Prénom: </font><br>
<input name="prenom" type="text" id="prenom" value="<%=Rst("prenom")%>">
<br>
Adresse E-mail:<br>
<input name="mail" type="text" id="mail" value="<%=Rst("mail")%>">
<input type="hidden" Name="id" Value="<%=id%>">
<p align="center">
<input name="Submit" type="submit" value="Envoyer la modification">
</div></td></form>
|
Page d'exécution des modifications: <%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../")&"/databases/bd.mdb;"
Set Rs = Server.CreateObject("ADODB.Recordset")
id_bis= Request.Form("id")
nom_bis= Request.Form("nom")
prenom_bis= Request.Form("prenom")
mail_bis= Request.Form("mail")
RequeteSQL = "Update annmoto Set nom='" & nom_bis & "',prenom='" & prenom_bis & "',mail='" & mail_bis & "' WHERE id=" & id_bis & ";"
Rs.Open RequeteSQL ,con%>
|
il me dit qu'il y a une erreur de syntaxe (une virgule)au niveau de la ligne : RequeteSQL = "Update annmoto Set nom='" & nom_bis & "',prenom=... Merci à vous. Greg
|
|
jeudi 3 février 2005 à 14:36:20 |
Re : Modification d'un enregistrement dans une bd
|
Cette discussion est classée dans : base, bd, enregistrement, code, modification
 Répondre à ce message
 Sujets en rapport avec ce message
Ajout Enregistrement BD [ par dan05 ]
Salut à tous,j'ai une requete de ce type :SQLQuery= "INSERT INTO annuaire (Nom, Prenom, Societe) "SQLQuery= SQLQuery & "VALUES( '" &Nom& "','"&Prenom&
Base de donné. Mon code ne marche pas [ par kikim ]
Salut tout le monde, j'ai un etit probléme avec ce code.Quand j'essai de l'appliquer j'ai une erreur au niveau de la ligne :Dim TabNom_ASP (RS.RecordC
Base de données [ par Jiri ]
Bonjour,J'ai une table qui contient 1000 enregistrement, je veux que lorsqu'un utilisateur reçoit 50 enregistrement par page de consultation, c à d Co
Modification d'un élément dans une base de donnée [ par onha ]
Bonjour,Bon voilà, j'ai une base de donnée sous access.J'ai récupéré un script pour permettre la modification d'un élément dans une base de donnée. Le
aspsmartupload [ par rony ]
bjr,j'utilise aspsmatupload pour uploader des fichiers dans ma basele nom des fichiers est corectemnt inscrit.mais je n'arrive pas à ajouter la valeur
Code pour calculer temps [ par Zeus ]
Je recherche du code pour calculer le temps que prend une requête a interroger une base de donnees pour comparer la rapiditer de différent codes qui a
modification du contenu de ma base = erreur '80040e14' [ par jpeg ]
Je veux modifier ma base Access en ligne.J'ai choisi la POSTPour créer c'est O.KPour supprimer c'est O.K mais pour modifier j'ai le message d'erreur
Comment transférer des données entre 2 BD SQL Server 7 ??? [ par klotze ]
Salut à tous, J'ai un grand problème, il faut que je mette à jour des données d'une base de données installées sur un serveur Server1 à partir d
Mise à jour de BD SQL Server 7 [ par klotze ]
Salut à tous, J'ai un grand problème, il faut que je mette à jour des données d'une base de données installées sur un serveur Server1 à partir d
Créer une base de donnée [ par Niaphron ]
Je voudrais savoir si il y a un moyen en ASP, de crée une base de donnée par l'intermédiaire d'un code source !J'avais croisé le code sur internet, ma
 Livres en rapport
|
Derniers Blogs
 IMAGINE CUP 2012, MAKE A SIGN EN FINALEIMAGINE CUP 2012, MAKE A SIGN EN FINALE par junarnoalg
Voilà qui est fait, la nouvelle est officielle ! L'équipe belge "Make a Sign" va au pays des kangourous défendre son projet dans la catégorie Software Design. http://www.imaginecup.com/CompetitionsContent/Competition/WorldwideFinalists.aspx V...
Cliquez pour lire la suite de l'article par junarnoalg KINECT 1.5 IS OUT !KINECT 1.5 IS OUT ! par Vko
La version 1.5 du Kinect For Microsoft vient tout juste de sortir ! Plein de nouveautés: Tracking de squelette en Near Mode Détection en position assise Détection faciale avec un SDK dédié Documentation et des guideline (enfin) Un out...
Cliquez pour lire la suite de l'article par Vko LES ACTUALITéS DE LA SEMAINE SUR C2I.FR (14 MAI - 20 MAI) LES ACTUALITéS DE LA SEMAINE SUR C2I.FR (14 MAI - 20 MAI) par richardc
Mise à jour des Web API du 14 Mai
Réservez dès maintenant votre journée du 20 juin pour le Windows Azure Dev Camp 2012 à Paris
Mise à jour de Team Foundation Service
MechCommander 2 sur Windows 8
Entity Framework 5 Release Candidate e...
Cliquez pour lire la suite de l'article par richardc REACTIVE EXTENSIONS : CONSOMMER DES SERVICES AVEC RX PARTIE 3, LES PIèGES à éVITERREACTIVE EXTENSIONS : CONSOMMER DES SERVICES AVEC RX PARTIE 3, LES PIèGES à éVITER par Groc
Une mauvaise utilisation de rx lors de l'écriture d'une couche d'accès à des services peut conduire à des cas embarassants avec des erreurs mal gérées, des appels qui ne partent lorsqu'ils le devraient, et même des résultats incorrects . le tout nuis...
Cliquez pour lire la suite de l'article par Groc SHAREPOINT BLOG SITE, PROBLèME D'ARCHIVESSHAREPOINT BLOG SITE, PROBLèME D'ARCHIVES par junarnoalg
Dernièrement, nous avons migré le site
myTIC
vers un nouveau serveur SharePoint 2010. Dans les contenus que nous vouloins récupérer, nous avions un certain nombre de blogs.
Nous avons utilisé les commandes Power...
Cliquez pour lire la suite de l'article par junarnoalg
Logiciels
 sDEVIS-FACTURES vlPRO (8.1.0.3)SDEVIS-FACTURES VLPRO (8.1.0.3)sDEVIS-FACTURES vlPRO a été mis au point pour les particuliers, créateurs, entrepreneurs, artisa... Cliquez pour télécharger sDEVIS-FACTURES vlPRO 974 Application Server (12.2.4.6)974 APPLICATION SERVER (12.2.4.6)Développez de puissantes applications dans un environnement de 'cloud computing', clusterisé, séc... Cliquez pour télécharger 974 Application Server vPicture (1.4.2.1)VPICTURE (1.4.2.1)Avec vPicture, hébergez vos images facilement et rapidement.
vPicture est un utilitaire simple, ... Cliquez pour télécharger vPicture Easy-Planning (2.2.1.6)EASY-PLANNING (2.2.1.6)Easy-Planning permet de créer des plannings sous la représentation de diagrammes et est adapté au... Cliquez pour télécharger Easy-Planning COM-BACKUP (2.0)COM-BACKUP (2.0)
COM-BACKUP est un logiciel de sauvegarde qui permet de planifier les sauvegardes de vos dossiers ...
Cliquez pour télécharger COM-BACKUP
|