Probleme de modification d'un champs d'une base access.

Question

Probleme de modification d'un champs d'une base access.

Signaler

gerfaut11

Messages postés: 32
Date d'inscription: mercredi 8 novembre 2000
Statut: Membre
Dernière intervention: 28 mars 2006

- 26 avril 2005 à 11:52
gerfaut11

Messages postés: 32
Date d'inscription: mercredi 8 novembre 2000
Statut: Membre
Dernière intervention: 28 mars 2006

- 23 mai 2005 à 15:33

Bonjour

J'ai une page asp qui me permet de modifier un enregistrement dans une base access, mais lorsque je l'utilise elle ne fait pas la modification de l'enregistrement mais me supprime le contenu.

Si quelqu'un connaît la solution??

D'avance merci

Afficher la suite

A voir également:

Probleme de modification d'un champs d'une base access.
Visual Basic / VB.NET : Créer une table et des champs dans une base access - CodeS SourceS - Guide
Modification d'un champ texarea ✓ - Forum - Javascript / DHTML
Paramètre d'initialisation d'une méthode, Modification d'un champ d'une table ✓ - Forum - ASP / ASP3
Forcer les modifications sur un champ dans un formulaire ✓ - Forum - VB.NET
Aide sur modification d'un champ ✓ - Forum - Visual Basic

12 réponses

Répondre Posez votre question

cs_Yopyop · Answer 1 · 2005-04-26T13:14:11+0200

Réponse 1 / 12

cs_Yopyop

Messages postés: 586
Date d'inscription: lundi 7 janvier 2002
Statut: Membre
Dernière intervention: 10 février 2010

1
26 avril 2005 à 13:14

salut,

peux-tu poster ton code?

yopyop

gerfaut11 · Answer 2 · 2005-04-26T15:10:46+0200

salut

La modif se fait en trois pages
1ere page je liste toutes les plantes de ma base
2eme page je modifie les champs
3eme page je fais un UPDATE

Voici la 3eme page==>

RefPla=Request.Form("RefPla")

NomLatinbis=Request.Form("NomLatin-bis")

NomFrancaisbis=Request.Form("NomFrancais_bis")

Refpla=CINT(RefPla)

NomLatinbis=Replace(lot_bis,"'","''")

NomLatinbis=Replace(lot_bis,"<","&lt")

NomLatinbis=Replace(lot_bis,">","&gt")

NomFrancaisbis=Replace(sponsor_bis,"'","''")

NomFrancaisbis=Replace(sponsor_bis,"<","&lt")

NomFrancaisbis=Replace(sponsor_bis,">","&gt")%>

DSN_BASE = "DBQ=" & Server.Mappath("/fpdb/Nouvelle plante.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open DSN_BASE

Set Rs = Server.CreateObject("ADODB.Recordset")%>

RequeteSQL = "Update Résultats Set NomLatin='"&NomLatinbis&"',NomFrancais='"&Nomfrancaisbis&"' WHERE ref_Pla=" & RefPla

Rs.Open RequeteSQL , Conn%>

Set Rs = Nothing

Conn.Close

Set Conn = Nothing%>

<HTML>

<head>

<meta http-equiv=
"Content-Type" content="text/html; charset=windows-1252"
>

<meta name=
"GENERATOR" content="Microsoft FrontPage 4.0"
>

<meta name=
"ProgId" content="FrontPage.Editor.Document"
>

<title>
Marathon2000 - asp-irine.com : Validation de la modification du lot
</title>

</head>

"center">

Merci! La plante <%=NomLatinbis%>

a bien été modifié!

[Default.htm

retour page d'accueil]

</html>

gerfaut11 · Answer 3 · 2005-04-26T15:11:44+0200

salut

La modif se fait en trois pages
1ere page je liste toutes les plantes de ma base
2eme page je modifie les champs
3eme page je fais un UPDATE

Voici la 3eme page==>

RefPla=Request.Form("RefPla")

NomLatinbis=Request.Form("NomLatin-bis")

NomFrancaisbis=Request.Form("NomFrancais_bis")

Refpla=CINT(RefPla)

NomLatinbis=Replace(lot_bis,"'","''")

NomLatinbis=Replace(lot_bis,"<","&lt")

NomLatinbis=Replace(lot_bis,">","&gt")

NomFrancaisbis=Replace(sponsor_bis,"'","''")

NomFrancaisbis=Replace(sponsor_bis,"<","&lt")

NomFrancaisbis=Replace(sponsor_bis,">","&gt")%>

DSN_BASE = "DBQ=" & Server.Mappath("/fpdb/Nouvelle plante.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open DSN_BASE

Set Rs = Server.CreateObject("ADODB.Recordset")%>

RequeteSQL = "Update Résultats Set NomLatin='"&NomLatinbis&"',NomFrancais='"&Nomfrancaisbis&"' WHERE ref_Pla=" & RefPla

Rs.Open RequeteSQL , Conn%>

Set Rs = Nothing

Conn.Close

Set Conn = Nothing%>

<HTML>

<head>

<meta http-equiv=
"Content-Type" content="text/html; charset=windows-1252"
>

<meta name=
"GENERATOR" content="Microsoft FrontPage 4.0"
>

<meta name=
"ProgId" content="FrontPage.Editor.Document"
>

<title>
Marathon2000 - asp-irine.com : Validation de la modification du lot
</title>

</head>

"center">

Merci! La plante <%=NomLatinbis%>

a bien été modifié!

[Default.htm

retour page d'accueil]

</html>

gerfaut11 · Answer 4 · 2005-04-26T15:12:58+0200

salut

La modif se fait en trois pages
1ere page je liste toutes les plantes de ma base
2eme page je modifie les champs
3eme page je fais un UPDATE

Voici la 3eme page==>

RefPla=Request.Form("RefPla")

NomLatinbis=Request.Form("NomLatin-bis")

NomFrancaisbis=Request.Form("NomFrancais_bis")

Refpla=CINT(RefPla)

NomLatinbis=Replace(lot_bis,"'","''")

NomLatinbis=Replace(lot_bis,"<","&lt")

NomLatinbis=Replace(lot_bis,">","&gt")

NomFrancaisbis=Replace(sponsor_bis,"'","''")

NomFrancaisbis=Replace(sponsor_bis,"<","&lt")

NomFrancaisbis=Replace(sponsor_bis,">","&gt")%>

DSN_BASE = "DBQ=" & Server.Mappath("/fpdb/Nouvelle plante.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open DSN_BASE

Set Rs = Server.CreateObject("ADODB.Recordset")%>

RequeteSQL = "Update Résultats Set NomLatin='"&NomLatinbis&"',NomFrancais='"&Nomfrancaisbis&"' WHERE ref_Pla=" & RefPla

Rs.Open RequeteSQL , Conn%>

Set Rs = Nothing

Conn.Close

Set Conn = Nothing%>

<HTML>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252"
>

<meta name="GENERATOR" content="Microsoft FrontPage 4.0"
>

<meta name="ProgId" content="FrontPage.Editor.Document"
>

<title>Marathon2000 - asp-irine.com : Validation de la modification du lot
</title>

</head>

"center">

Merci! La plante <%=NomLatinbis%>

a bien été modifié!

[Default.htm

retour page d'accueil]

</html>

cs_Yopyop · Answer 5 · 2005-04-26T15:22:30+0200

re,

est-tu sur que tes valeurs sont pleines à ce moment.
fais un response.write RequeteSQL au lieu d'exécuter ta requête pour voir la tête qu'elle a.

PS:

Tu n'as pas besoin de faire Refpla=CINT(RefPla) et si tu le fais il vaut mieux faire avant
RefPla=Trim("" & Request.Form("RefPla"))

NomFrancaisbis=Replace(sponsor_bis,"<","&lt")

NomFrancaisbis=Replace(sponsor_bis,">","&gt")
A la place tu peux faire
NomFrancaisBis=Server.HTMLEncode("" & sponsor_bis)

Il vaut mieux éviter les nom avec des accens pour les bases de données. (table Résultats)
yopyop

gerfaut11 · Answer 6 · 2005-04-26T16:08:00+0200

Voila ce qui s'affiche avec response.write RequeteSQL :

False
Erreur de compilation Microsoft VBScript error '800a0401'

Fin d'instruction attendue

/iisHelp/common/500-100.asp, line 11

Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
ADODB.Recordset error '800a0bb9'

Les arguments sont de type incorrect, en dehors des limites autorisées ou en conflit les uns avec les autres.

/traitement_modif.asp, line 25

Mais valeurs NomLatin et NomFrancais sont pleines.

cs_Yopyop · Answer 7 · 2005-04-26T16:14:01+0200

Réponse 7 / 12

cs_Yopyop

Messages postés: 586
Date d'inscription: lundi 7 janvier 2002
Statut: Membre
Dernière intervention: 10 février 2010

1
26 avril 2005 à 16:14

C'est bizard que tu n'arrives pas à afficher la requête non ?

Enlèves Refpla=CINT(RefPla)

yopyop

gerfaut11 · Answer 8 · 2005-04-26T16:15:59+0200

Réponse 8 / 12

gerfaut11

Messages postés: 32
Date d'inscription: mercredi 8 novembre 2000
Statut: Membre
Dernière intervention: 28 mars 2006

26 avril 2005 à 16:15

Enlever
toujours meme probleme

cs_Nurgle · Answer 9 · 2005-05-01T21:46:11+0200

Salut

Pourquoi pas :

RequeteSQL = "Update Résultats Set NomLatin='"&NomLatinbis&"',NomFrancais='"&Nomfrancaisbis&"' WHERE ref_Pla=" & RefPla & " "

Conn.Execute(RequeteSQL)

au lieu de

Set Rs = Server.CreateObject("ADODB.Recordset")%>

RequeteSQL = "Update Résultats Set NomLatin='"&NomLatinbis&"',NomFrancais='"&Nomfrancaisbis&"' WHERE ref_Pla=" & RefPla

Rs.Open RequeteSQL , Conn

Set Rs = nothing

on sait jamais...

@+++

Nurgle
C'est une grande folie que de vouloir être sage tout seul !

gerfaut11 · Answer 10 · 2005-05-20T16:48:33+0200

Réponse 10 / 12

gerfaut11

Messages postés: 32
Date d'inscription: mercredi 8 novembre 2000
Statut: Membre
Dernière intervention: 28 mars 2006

20 mai 2005 à 16:48

Salut

Je n'ai plus de message d'erreurs.

Mais les champs qui on étaient mis à jour son vide, l'UPDATE supprime les données.

Si quelqu'un connaît la solution????

Merci

cs_Nurgle · Answer 11 · 2005-05-20T17:09:11+0200

Réponse 11 / 12

cs_Nurgle

Messages postés: 1642
Date d'inscription: samedi 6 novembre 2004
Statut: Modérateur
Dernière intervention: 28 avril 2011

2
20 mai 2005 à 17:09

tu es vraiment sûr que tes variables sont pleines ?

le Response.Write(Requete SQL) donne quoi ?

ou même un Response.Write(NomLatinbis & " " & Nomfrancaisbis & " " & RefPla)

Nurgle
C'est une grande folie que de vouloir être sage tout seul !

gerfaut11 · Answer 12 · 2005-05-23T15:33:43+0200

Réponse 12 / 12

gerfaut11

Messages postés: 32
Date d'inscription: mercredi 8 novembre 2000
Statut: Membre
Dernière intervention: 28 mars 2006

23 mai 2005 à 15:33

Merci

Cela fonctionne correctement!!!!!!!

Votre réponse