[ASP3] Ma base de données ne se met pas à jour

Question

Bonjour le forum, Je travail avec asp3, vbscript et Access 2003 sous windows server 2003. J'aimerais juste introduire des données via un site web asp et que ces données soient enregistrées dans une table access. J'ai créé un site de test que vous pouvez voir ici http://164.15.112.38/delibes/chanteur.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <%Response.Buffer = False%> Document sans titre <% dim cnn dim rst set cnn = server.createobject("ADODB.connection") cnn.open "DSN=delibes" set rst = server.CreateObject("ADODB.recordset") rst.open "select * FROM [chanteur];",cnn rst.movefirst while not rst.EOF %> <%response.Write rst("nom")%>, , " size="4" /> <% rst.movenext wend %> et voici le code de ma page "recupchanteur" feuille asp qui est censé envoyer les données vers la table access : J'aimerais juste entrer des cotes (exemple 18 , 15...) et en appuyant sur le bouton, enregistrer ces cotes dans une table mais ça ne fonctionne pas. Pas d'erreur mais lorsque je check la table de la base de données, il n'y a rien. Voici le code de ma page chanteur.asp : <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Document sans titre <% dim cnn dim rst const adOpenDynamic = 2 const adLockOptimistic = 3 set cnn = server.CreateObject("ADODB.CONNECTION") cnn.open = "delibes" set rst = server.CreateObject("ADODB.RECORDSET") rst.open "select * FROM [chanteur];",cnn,2,3 rst.movefirst 'while not rst.eof with request rst("guitare") = .form("txtun") rst("chant") = .form("txtdeux") end with 'rst.movenext 'wend rst.update rst.close set rst = nothing cnn.close set cnn = nothing %> Mise à jour effectuée J'ai fais au plus simple, sans boucle... mais ça ne fonctionne pas. J'ai pourtant donné l'autorisation de modification sur la base de données à tout le monde. Est-ce que vous voyez quelque chose d'anormal ? Merci d'avance pour votre aide. David

nahzhir · Answer

Comme je te le disais sur l'autre post je prefere utiliser un requette sql

a la place de :
with request
rst("guitare") = .form("txtun")
rst("chant") = .form("txtdeux")
end with

je mettrais : update [chanteurs] set [guitare] = 'textun', [chant] = 'textdeux' where [nom] = 'renaud séchan';

daviddubois · Answer

Merci de ta réponse à partir d'ici, il considère le texte comme du commentaire : 'textun', [chant] = 'textdeux' where [nom] = 'renaud séchan';'" voici le code entier après la modif que tu me conseilles : Document sans titre <% dim cnn dim rst const adOpenDynamic = 2 const adLockOptimistic = 3 set cnn = server.CreateObject("ADODB.CONNECTION") cnn.open = "delibes" set rst = server.CreateObject("ADODB.RECORDSET") rst.open "select * FROM [chanteur];",cnn,2,3 rst.movefirst 'while not rst.eof 'with request 'rst.fields("guitare") = .form("txtun") 'rst.fields("chant") = .form("txtdeux") 'end with 'rst.movenext 'wend update [chanteurs] set [guitare] = 'textun', [chant] = 'textdeux' where [nom] = 'renaud séchan';'" rst.update rst.close set rst = nothing cnn.close set cnn = nothing %> Mise à jour effectuée Merci encore David

nahzhir · Answer

le rst.update ne sert plus a rien donc tu peut l'enlever mais sinon ça devrait marcher

daviddubois · Answer

Salut,

Merci pour ton aide d'hier soir.

Comme tu le dis, le SQL n'est pas si mal.

J'ai toujours un probl&#232;me avec mon code, &#231;a te d&#233;rangerais pas de regarder stp (j'ai une erreur 500).

Merci d'avance.

David

<% 
'R&#233;cup&#233;rer le nombre de lignes &#224; traiter 
Str_NbLignes = Request.QueryString("NbLignes") 
dim cnn
dim Str_Chanteur
dim Str_Guitare
dim Str_Chant
dim txtSQL


set cnn = server.CreateObject("ADODB.CONNECTION")
Cnn.Open(Application("delibes"))
'cnn.open "delibes"


' R&#233;cup&#233;rer les valeurs 
For i = 1 to Str_NbLignes 
   Str_Chanteur = Request.Form("txtChanteur" & i) 
   Str_Guitare = Request.Form("txtGuitare" & i) 
   Str_Chant = Request.Form("txtChant" & i) 


   ' Tentative d'insertion 
   'en cas d'erreur on va &#224; la ligne suivante
   on error resume next 
   txtSQL = "" 
txtSQL = "insert into chanteur [(nom_chanteur, guitare, chant)]
values('" &  txtChanteur & "', '" & txtGuitare & "' , '" & txtChant & "')"; 
Cnn.Execute (txtSQL) 
    
   'Si erreur => Update 
   if Err then 
      on error goto 0 
      txtSQL = "" 
      txtSQL = "update [chanteur]" 
      Cnn.Execute (txtSQL) 
   end if 
   Cnn.close 
   set Cnn = nothing 
Next 
Response.Redirect("pc75.asp") %>

nahzhir · Answer

je vois pas trop ou peut etre ton erreur 
mais je te conseil(ça vaut ce que ça vaut) :
Evite le On error resume next 
et active ta gestion d'erreur quand tu aura fini de developpement

nahzhir · Answer

je vois pas trop ou peut etre ton erreur 
mais je te conseil(ça vaut ce que ça vaut) :
Evite le On error resume next 
et active ta gestion d'erreur quand tu aura fini le developpement

daviddubois · Answer

Salut,

Merci pour ta r&#233;ponse.

Firefox me dit :


Erreur de compilation Microsoft VBScript erreur '800a0409' 


Constante cha&#238;ne non termin&#233;e 


/delibes/recupchanteurpc75.asp, ligne 33 

txtSQL = "insert into chanteur (nom_chanteur, guitare, chant)
-------------------------------------------------------------^

Internet explorer me dit erreur 500. Encore une bonne raison d'utiliser firefox.

Merci pour ton conseil, quand je pourrai appliquer ce que tu me dis, c'est que je serais d&#233;j&#224; bien avanc&#233;, ce qui n'est pas encore le cas.

Meric quand m&#234;me

nahzhir · Answer

je crois avoir trouvé tu as oublié un " a la fin de ta ligne 33
txtSQL = "insert into chanteur [(nom_chanteur, guitare, chant)]values('" &  txtChanteur & "', '" & txtGuitare & "' , '" & txtChant & "')";

nahzhir · Answer

je crois avoir trouvé tu as oublié un " a la fin de ta ligne 33
txtSQL = "insert into chanteur [(nom_chanteur, guitare, chant)]values('" &  txtChanteur & "', '" & txtGuitare & "' , '" & txtChant & "')";

nahzhir · Answer

je crois avoir trouvé tu as tecalé un " a la fin de ta ligne 33
txtSQL = "insert into chanteur [(nom_chanteur, guitare, chant)]values('" &  txtChanteur & "', '" & txtGuitare & "' , '" & txtChant & "')";

apres correction

txtSQL = "insert into chanteur [(nom_chanteur, guitare, chant)]
values('" &  txtChanteur & "', '" & txtGuitare & "' , '" & txtChant & "');"

daviddubois · Answer

Plus de message d'erreur maintenant !

Il fallait le mettre sur une seule ligne 

txtSQL = "insert into chanteur (nom_chanteur, guitare, chant) values('" &  txtChanteur & "', '" &txtGuitare & "' , '" & txtChant & "')" 

Par contre la table se met toujours pas &#224; jours.

Merci pour tout

David

nahzhir · Answer

le "insert into ..." ne m'est pas a jour il ajoute une autre ligne dans a table
pour la mise a jour c'est "update ..."
cherche un tutorial SQL ça t'aidera

[ASP3] Ma base de données ne se met pas à jour

12 réponses

Votre réponse

Discussions similaires