Voila pour ceux que ca interesse je met les codes car tt fonctionne maintenan, un grand merci a tout le monde et surtout a kaiser .
formulaire :
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67 <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title>Fiche de Suivi SAV </title> <style type="text/css"> <!-- body {background-color: #FF6600;} h1 {text-align: center;border-bottom:1px #000000 solid;} label {float: left;width:500px;text-align:right;padding-right:.3em;} p { margin: 10px auto 10px auto; text-align: left; font-size: 1.2em; font-weight: bold; font-family: Serif,Verdana, Arial, Sans-serif; font-style:italic; width:95%; } --> </style> </head> <body> <% DSN_BASE = "DBQ=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "bd1.mdb" & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DSN_BASE Set RS = Server.CreateObject("ADODB.Recordset") Sql = "SELECT * FROM SuiviSAV where id = "& request.querystring("id") &"" Rs.open Sql, conn Response.write " <h1>Fiche de Suivi SAV</h1>"&vbcrlf Response.write "<form action=""recept2.asp"" method=""post"">"&vbcrlf if not rs.eof then 'Si un enregistrment existe dj dans ce cas l''id ne peut etre modifiable: Response.write " <p><label>ID :</label> <input readonly type=""text"" name=""idsav"" size=""2"" value="""& rs(0) &"""></p>"&vbcrlf Response.write " <p><label>N d'emplacement :</label> <input type=""text"" size=""5"" name=""desc"" value="""& rs(1) &"""></p>"&vbcrlf Response.write " <p><label>Nom du client :</label> <input type=""text"" size=""15"" name=""clt_nom"" value="""& rs(2) &""" /></p>"&vbcrlf Response.write " <p><label>Emplacements du MH : </label><input type=""text"" name=""emplacement"" size=""15"" value="""& rs(3) &"""></p>"&vbcrlf Response.write " <p><label>Date de prise en charge du client : </label><input type=""text"" name=""dtpchclt"" size=""7"" maxlength=""10"" value="""& rs(4) &"""></p>"&vbcrlf Response.write " <p><label>Date de Prise en charge du materiel : </label><input type=""text"" name=""dtpchm"" size=""7"" maxlength=""10"" value="""& rs(5) &"""></p>"&vbcrlf Response.write " <p><label>Avancement du travail : </label><input type=""text"" name=""avancement"" size=""12"" value="""& rs(6) &"""></p>"&vbcrlf Response.write " <p><label>Matriel Rpar : </label><input type=""text"" name=""Mat_rep"" size=""4"" value="""& rs(7) &""" /></p>"&vbcrlf Response.write " <p><label>Retour Atelier : </label><input type=""text"" name=""retour"" size=""4"" value="""& rs(8) &""" /></p>"&vbcrlf Response.write " <p><label>Dtail de la panne : </label><textarea name=""detailpanne"" cols=""30"" rows=""4"">"& rs(9) &"</textarea></p>"&vbcrlf Response.write " <p><label>Remarques : </label><textarea name=""rmq"" cols=""30"" rows=""2"">"& rs(10) &"</textarea></p>"&vbcrlf Response.write " <p><input type=""submit"" name=""Envoie"" value=""Modifier""/></p>"&vbcrlf end if response.write "</form>" Set RS = Nothing Conn.Close Set Conn = Nothing %> </body> </html>
code de resultat de la modification ou de l enregistrement :
Voila j'espère que cela pourras vous faire avancer
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
29
30
31
32
33
34
35
36
37
38
39
40 <%@ 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> <% dpanne=Request.form("detailpanne") dpanne=replace(dpanne,"<br/>","\vbcrlf") DSN_BASE = "DBQ=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "bd1.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 N0emplacement = '"& Request.form("desc") &"', nomduclient = '"& Request.form("clt_nom") &"', emplacementduMH = '"& Request.form("emplacement") &"', DatedepriseenchargeduClient = '"& Request.form("dtpchclt") &"', Datedepriseenchargedumateriel = '"& Request.form("dtpchm") &"', avancementduTravail = '"& Request.form("avancement") &"', MaterielRepare = '"& Request.form("Mat_rep") &"', Retouratelier = "& Request.form("retour") &", Remarques = '"& Request.form("rmq") &"', Detaildelapanne = '"& dpanne &"' where ID = "& Request.form("idsav") &"" RS.Open SQL , Conn Response.write "Mise jour termine du materiel de : "& Request.form("clt_nom") &"" case "Enregistrer" Sql="Insert into SuiviSAV (N0emplacement,nomduclient,emplacementduMH,datedepriseenchargeduclient,datedepriseenchargedumateriel,avancementdutravail,materielrepare,retouratelier,remarques,detaildelapanne) Values ('"& Request.form("desc") &"','"& Request.form("clt_nom") &"','"& Request.form("emplacement") &"','"& Request.form("dtpchclt") &"','"& Request.form("dtpchm") &"','"& Request.form("avancement") &"','"& Request.form("Mat_rep") &"',"& Request.form("retour") &",'"& Request.form("rmq") &"', '"& dpanne &"')" Rs.Open SQL, conn Response.write "Le materiel de : "& Request.form("clt_nom") &" a bien ete enregistre dans la base." case else Response.write "aucune tache choisie" end select Set RS = Nothing Conn.Close Set Conn = Nothing %> </BODY> </HTML>merci encore à tous et vive DEVELOPPEZ
héhé
Partager