CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 05 28 03:41:17

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil > Forum >

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

Poser une question dans le forum ou lancer une discussion

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

mardi 26 avril 2005 à 11:52:24 | Probleme de modification d'un champs d'une base access.

gerfaut11

35 msg

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

mardi 26 avril 2005 à 13:14:11 | Re : Probleme de modification d'un champs d'une base access.

Yopyop

552 msg

565 msg CS

salut,

peux-tu poster ton code?

yopyop

mardi 26 avril 2005 à 15:10:46 | Re : Probleme de modification d'un champs d'une base access.

gerfaut11

35 msg

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>

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

</head>

<body>

Merci! La plante <%=NomLatinbis%>

a bien été modifié!

retour page d'accueil</a>

</Div>

</body>

</html>

mardi 26 avril 2005 à 15:11:44 | Re : Probleme de modification d'un champs d'une base access.

gerfaut11

35 msg

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>

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

</head>

<body>

Merci! La plante <%=NomLatinbis%>

a bien été modifié!

retour page d'accueil</a>

</Div>

</body>

</html>

mardi 26 avril 2005 à 15:12:58 | Re : Probleme de modification d'un champs d'une base access.

gerfaut11

35 msg

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>

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

</head>

<body>

Merci! La plante <%=NomLatinbis%>

a bien été modifié!

retour page d'accueil</a>

</Div>

</body>

</html>

mardi 26 avril 2005 à 15:22:30 | Re : Probleme de modification d'un champs d'une base access.

Yopyop

552 msg

565 msg CS

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

mardi 26 avril 2005 à 16:08:00 | Re : Probleme de modification d'un champs d'une base access.

gerfaut11

35 msg

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.

mardi 26 avril 2005 à 16:14:01 | Re : Probleme de modification d'un champs d'une base access.

Yopyop

552 msg

565 msg CS

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

Enlèves Refpla=CINT(RefPla)

yopyop

mardi 26 avril 2005 à 16:15:59 | Re : Probleme de modification d'un champs d'une base access.

gerfaut11

35 msg

Enlever
toujours meme probleme

dimanche 1 mai 2005 à 21:46:11 | Re : Probleme de modification d'un champs d'une base access.

Nurgle

1250 msg

1630 msg CS

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 !

Cette discussion est classée dans : access, base, probleme, champs, modification

Répondre à ce message

Sujets en rapport avec ce message

probleme de MAJ en ASP dans une base de données ACCESS 97 [ par shadowmaster ] voila mon probleme :je programme un site intranet en ASP avec la gestion d'une base de données derriere. ma connexion à la base de données (ACCESS 97) HTML dans une BD ACCESS [ par SamBeckett ] Bonjour,j'ai une petite base de donnée ACCESS, et j'affiche les champs avec un petit code ASP...J'aimerais introduire des tag HTML dans un champs pour Probleme Checkbox et access [ par hbon ] Salut à tousJ'ai un enorme problème:j'ai une checkbox dans un formulaireet un champs (de type oui/non) dans ma base access(97)lorsque je fais un inser Probleme d'ecriture dans une base de données access [ par RIZO1 ] Voilà j'ai un problème d'ecriture sur une base de données access le message "une operation doit utiliser une requete de mise à jour" apparait su l'écr probleme base de donnee access [ par yohan49 ] salut les gars , je n'arrive pas depuis mon site Web a lancer des requete du style update , insert , ou delete dans ma base Access . Mon message d'err [c#] Ajout/ modification dans une base access [ par elendila ] champs monétaire access [ par nirega ] Bonjour,j'ai un petit probleme de compatibilité !!j'utilise un serveur local pour testémes codes sur une base Access, sur ma machine j'ai pas de probl probleme insertion dans base access [ par christclamard ] salut c'est christje viens de commencer en asp et je bute sur une probleme lorsque je me connecte a me base de donnée access pour effectuer une insert access 2003 [ par 61bentahar ] bonjour ,J'ai actuellement une base Access qui contient des champs monétaires en Euros, je souhaiterais utiliser ma base dans d'autres pays et les per connection a une base de donnée access (*.mdb) avec visual studio express edition 2008 [ par alahmadi ] Alahmadi_Mohamed: Bon jours a tous j'ai un petit problème avec la connexion a une base de donnée access (*.mdb) avec visuel studio express édition 20

Livres en rapport

Microsoft Access 2000 au quotidien

Access 2000

Acces 2002 Fonctions de base

Votre première base de données avec Access 2002

Tous les livres pour Access, Base, Probleme, Champs, Modification

Nos sponsors

Derniers Blogs

IMAGINE CUP 2012, MAKE A SIGN EN FINALE par junarnoalg

KINECT 1.5 IS OUT ! par Vko

LES ACTUALITéS DE LA SEMAINE SUR C2I.FR (14 MAI - 20 MAI) par richardc

REACTIVE EXTENSIONS : CONSOMMER DES SERVICES AVEC RX PARTIE 3, LES PIèGES à éVITER par Groc

SHAREPOINT BLOG SITE, PROBLèME D'ARCHIVES par junarnoalg

Forum

RE : TROUVER LE PLUS PETIT NOMBRE ENTIER par jacksparoow

TROUVER LE PLUS PETIT NOMBRE ENTIER par PrinceFul

RE : GRIDVIEW CHECKBOX par invent001

RE : GRIDVIEW CHECKBOX par Megafan

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Realisation d-une version 2 d-un site e-commerce existant sous prestashop-REPUBLICATION
Budget : 5 000€
Recherche Infogerance Serveur Debian Linux
Budget : 1 800€
Creation d-un site vitrine avec MagentO
Budget : 2 000€

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