[ WEB ] creer un bouton pour modifier , enregistrer ma bdd access

**nboubeur** · 10/08/2007, 09h39

le voila :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
<%@ LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1252">
<TITLE>resultat de la modification ou de l enregistrement  </TITLE>
</HEAD>
<BODY>
 <%
Request.Form("envoie")
strProvider = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\base\bd1.mdb;"
Set rs = server.CreateObject("ADODB.connection")
rs.open strProvider
 
Select case Request.form("Envoie")
 sql="update SuiviSAV Where id="& request.Form("SuiviSAV")&""
    Rs.open Sql, strProvider
    Reponse.white "Mise  jour termin"
 case"Enregistrer"
 Sql="Insert into SuiviSAV"
   Rs.open Sql, strprovider
   reponse.white "Vous venez d'enregistrer "& request.Form("champ") &" dans la base"
 case else
   Response.write "aucune tache choisie"
end select
 %>
 
</BODY>
</HTML>

**kaiser59** · 10/08/2007, 11h43

Tu as oublier de mentionner le cas du modifier mais pas la requête donc il ne comprend pas ce que tu lui demandes

Code asp :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Select case Request.form("Envoie")
 case "Modifier"
 sql="update SuiviSAV Where id="& request.Form("SuiviSAV")&""
    Rs.open Sql, strProvider
    Reponse.white "Mise  jour termin"
 case "Enregistrer"
 Sql="Insert into SuiviSAV"
...

**nboubeur** · 10/08/2007, 14h45

Eu bas rien ne ce passe

rien d'ajouté ou de modifié dans ma base access , mais , plus de message d'erreur .

**kaiser59** · 10/08/2007, 16h07

Alors on va faire un petit test

Le code qui se réfère à la connexion avec la bd tu mets en commentaire tu ajoutes juste un (') avant la syntaxe ensuite, tu fais ceci

Code asp :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
'strProvider = "Driver={Microsoft Access Driver (*.mdb)}; 'DBQ=C:\base\bd1.mdb;"
'Set rs = server.CreateObject("ADODB.connection")
'rs.open strProvider
 
Select case Request.form("Envoie")
 case "Modifier"
    sql="update SuiviSAV Where id="& request.Form("SuiviSAV")&""
    'Rs.open Sql, strProvider
    Reponse.white sql
 case"Enregistrer"
   Sql="Insert into SuiviSAV"
   'Rs.open Sql, strprovider
   reponse.white Sql
 case else
   Response.write "aucune tache choisie"
end select

tu fais le test avec les deux cas afin de savoir ce que te retourne les requêtes. Du résultat qu'il t'affiche, tu le copie et tu colle la requête dans Access ceci te permettra de vérifier s'il n'y a pas d'erreur

Voila test ceci en général, cela permet de voir l'erreur

**nboubeur** · 10/08/2007, 16h21

voila , une page blanche et rien , meme pas de message d'erreur .

**kaiser59** · 10/08/2007, 16h38

avec le changement tu as toujours un blanc ??

En mettant tout le reste en commentaire, pour ne laisser apparaitre que la syntaxe de dessous :

Code asp :

Sélectionner tout - Visualiser dans une fenêtre à part

Response.write "La page doit : "& Request.form("Envoie")

Qu'as tu à l'écran ??

**nboubeur** · 10/08/2007, 17h54

la j'ai sur fond blanc :

La page doit : Modifier

**kaiser59** · 10/08/2007, 22h57

Ensuite juste ceci :

Code asp :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Select case Request.form("Envoie")
 case "Modifier"
    sql="update SuiviSAV Where id="& request.Form("SuiviSAV")&""
    'Rs.open Sql, strProvider
    Reponse.white sql
 case "Enregistrer"
   Sql="Insert into SuiviSAV" 'par contre pour cette requete se serait bien que tu ajoute la suite pcq comme ça il n'ajoute rien
   'Rs.open Sql, strprovider
   reponse.white Sql
 case else
   Response.write "aucune tache choisie"
end select

**nboubeur** · 11/08/2007, 13h47

rien page blanche

**kaiser59** · 13/08/2007, 12h12

AHHHHH la boulette j'en ai honte

C'est response.write et non reponse.white

Code asp :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Select case Request.form("Envoie")  
case "Modifier"  
sql="update SuiviSAV Where id="& request.Form("SuiviSAV")&""  
'Rs.open Sql, strProvider  
Response.write sql 
case "Enregistrer"  
Sql="Insert into SuiviSAV" 
'par contre pour cette requete se serait bien que tu ajoute la suite pcq comme ça il n'ajoute rien  
'Rs.open Sql, strprovider  
response.write Sql 
case else  
Response.write "aucune tache choisie" 
end select

**nboubeur** · 13/08/2007, 15h15

héhé , tu es excusable

, mais en meme temp ca change rien car rien ne ce modifie dans ma bdd

**kaiser59** · 13/08/2007, 17h22

C'est normale si tu as laissé en commentaire l'ouverture, le recordset et la fermeture de bd

De plus, as-tu bien fait les modification que j'ai donné ? C'est-à-dire, de finir la requête

Code asp :

Sélectionner tout - Visualiser dans une fenêtre à part

Sql="Insert into SuiviSAV"

parce que la, elle est incomplète

**nboubeur** · 13/08/2007, 17h27

**nboubeur** · 13/08/2007, 17h28

oui oui regarde ( sauf erreur de ma part encore une fois )

:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 <%
Select case Request.form("Envoie")
 case "Modifier"
    sql="update SuiviSAV Where id="& request.Form("SuiviSAV")&""
    Rs.open Sql, strProvider
    Response.white sql
 case "Enregistrer"
   Sql="Insert into SuiviSAV Where id="& request.Form("SuiviSAV")&""
   Rs.open Sql, strprovider
   response.white Sql
 case else
   Response.write "aucune tache choisie"
end select
 %>

**kaiser59** · 13/08/2007, 17h38

C'est bien ce que je disais

regarde la syntaxe exacte pour :

- Modifier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sql="Update table Set champ = '"& val &"' where IdPara = "& request.form("id") &""

or tu as :

Code asp :

Sélectionner tout - Visualiser dans une fenêtre à part

Sql="update SuiviSAV Where id="& request.Form("SuiviSAV")&""

Comme tu peux le voir elle est incomplète donc tu ne mets pas à jour.

Idem pour Enregistrer :

Code asp :

Sélectionner tout - Visualiser dans une fenêtre à part

Sql="Insert into table (champ1, champ2) Values ('"& Request.form("val1") &"','"& Request.form("val2") &""

Tu as ceci :

Code asp :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sql="Insert into SuiviSAV Where id="& request.Form("SuiviSAV")&"" 
'il n'enregistre rien

Par ailleurs, tu n'as pas changé le response.write

Envoyé par nboubeur

Code asp :

Sélectionner tout - Visualiser dans une fenêtre à part

response.white Sql

**nboubeur** · 13/08/2007, 17h47

Donc ca donne ca en gros ?

:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 <%
Select case Request.form("Envoie")
 case "Modifier"
    sql="update table Set SuiviSAV = '" & val"'Where id="& request.Form("SuiviSAV")&""
    Rs.open Sql, strProvider
    Response.write sql
 case "Enregistrer"
   Sql="Insert into table Values  '"& request.Form("SuiviSAV")&""
   Rs.open Sql, strprovider
   response.write Sql
 case else
   Response.write "aucune tache choisie"
end select
 %>

je comprend vite , mais il faut m 'expliquer vraiment longtemp lol

**kaiser59** · 13/08/2007, 18h03

Presque

Créer une autre page comme ça tu garderas ta page si jamais tu comprends pas ma page

Donc dans la nouvelle page met ceci :
recept2.asp

Code asp :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
<%
'connexion à la base
DSN_BASE = "DBQ=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "db1.mdb" & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"  
'S''il ne se connecte pas à la base, remplace " & Request.ServerVariables("APPL_PHYSICAL_PATH") & " par C:\base\
 
 
'recordset
Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DSN_BASE Set RS = Server.CreateObject("ADODB.Recordset") 
 
'choix 
Select case request.form("Envoie") 
  case "Modifier" 
     Sql="Update SuiviSAV set champ1='"& request.form("val1") &"' where id="& request.Form("SuiviSAV") &""
     Rs.open Sql, conn   
  case "Enregistrer"  
     Sql="Insert into SuiviSAV  (champ1, champ2) Values ('"& Request.form("val1") &"','"& Request.form("val2") &"'"
     Rs.open Sql, conn 
  case else  
         Response.write "aucune tache choisie" 
end select   
 
'fermeture bd 
Set RS = Nothing 
Conn.Close 
Set Conn = Nothing 
%>

Remplace Champ par le nom des champs que tu as donnée dans la table SuiviSAV car je ne connais pas leur nom et ajoute les champs à modifier ou à enregistrer.
Fais de même avec Val1, Val2 donne leur nom que tu as donnée dans le formulaire et qui doivent correspondre au champ de la table

PS : N'oublie pas de changer le nom de la page dans action de ton formulaire qui devient

Code html :

Sélectionner tout - Visualiser dans une fenêtre à part

<form action="recept2.asp" method="post">

**nboubeur** · 13/08/2007, 18h12

oki merci bcp pour ton aide

, je fais les changements et je te tiend au courant , donc , ci je comprend bien je dois reprendre chaque champ , car il n'est pas possible de valider une table complete .

je fais ca de suite

merci encore ( ca rentre tt doucement lol )

**nboubeur** · 13/08/2007, 18h38

ummm message d'erreur :

Erreur de compilation Microsoft VBScript error '800a0401'

Fin d'instruction attendue

/recept2.asp, line 15

Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DSN_BASE Set RS = Server.CreateObject("ADODB.Recordset")
---------------------------------------------------^

sinon voila les premiers modifs au niveau enregistrement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
<%
DSN_BASE = "DBQ=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "db1.mdb" & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"  
 
 
Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DSN_BASE Set RS = Server.CreateObject("ADODB.Recordset") 
 
 
Select case request.form("Envoie") 
  case "Modifier" 
     Sql="Update SuiviSAV set champ1='"& request.form("val1") &"' where id="& request.Form("SuiviSAV") &""
     Rs.open Sql, conn   
  case "Enregistrer"  
     Sql="Insert into SuiviSAV  (ID,N0emplacement,nomduclient,emplacementduMH,datedepriseenchargeduclient,datedepriseenchargedumateriel,avancementdutravail,,matrielrpr,retouratelier,remarques,dtaildelapanne) Values ('"& Request.form("ID") &"','"& Request.form("N0emplacement") &"','"& Request.form("nomduclient") &"','"& Request.form("emplacementduMH") &"','"& Request.form("datedepriseenchargeduclient") &"','"& Request.form("datedepriseenchargedumateriel") &"','"& Request.form("avancementdutravail") &"','"& Request.form("matrielrpar") &"','"& Request.form("retouratelier") &"','"& Request.form("remarques") &"','"& Request.form("dtaildelapanne") &"'"
     Rs.open Sql, conn 
  case else  
         Response.write "aucune tache choisie" 
end select   
 
Set RS = Nothing 
Conn.Close 
Set Conn = Nothing 
%>

**kaiser59** · 13/08/2007, 19h40

remplace ceci :

Code asp :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DSN_BASE Set RS = Server.CreateObject("ADODB.Recordset")

par :

Code asp :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set RS = Server.CreateObject("ADODB.Recordset")

Ensuite :

Code asp :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sql="Insert into SuiviSAV  (ID,N0emplacement,nomduclient,emplacementduMH,datedepriseenchargeduclient,datedepriseenchargedumateriel,avancementdutravail,,matrielrpr,retouratelier,remarques,dtaildelapanne) Values ('"& Request.form("ID") &"','"& Request.form("N0emplacement") &"','"& Request.form("nomduclient") &"','"& Request.form("emplacementduMH") &"','"& Request.form("datedepriseenchargeduclient") &"','"& Request.form("datedepriseenchargedumateriel") &"','"& Request.form("avancementdutravail") &"','"& Request.form("matrielrpar") &"','"& Request.form("retouratelier") &"','"& Request.form("remarques") &"','"& Request.form("dtaildelapanne") &"'"
     Rs.open Sql, conn

- id n'est pas à mettre normalement tu as du le mettre en numéroautomatique ou alors c'est toi qui lui donne une valeur genre référence ??
- Tu as une double virgule (avancementdutravail,,...) à éviter.
- N0emplacement ? si c'est du texte ok c'est bon si c'est numérique il ne faut pas mettre de (') donc Numérique ou texte ?

[ WEB ] creer un bouton pour modifier , enregistrer ma bdd access

ASP

Discussions similaires

Partager

Partager