[ WEB ] Création d un formulaire en .ASP

**nboubeur** · 29/05/2007, 15h44

Voila apres plusieurs jours à harpenter le net , apres avoir acheté des livres etc ...je fais appel a votre savoir

j 'ai une base access BD1.MDB ou pour l 'instant j 'arrive à me connecté via une page .asp et ou je liste la table .

Mais le but serais que j 'arrive à faire comme dino501 http://www.developpez.net/forums/sho...d.php?t=104395.

faire le formulaire , n'est pas le probleme .( la j ai fais un truc a l arrache )

ce qui me derange c 'est comment faire ou quel code faut t'il mettre pour d'enregistrer les données dans ma BDD ACCESS et de pouvoir apres les ressortir , pour les modifier en fonction de l avancement du projet par rapport au client .

car ici le but est d'avoir un formulaire de suivi SAV , ou on entre le nom etc .. du client et apres on modifier en fonction de l 'avancement des travaux .

Merci d'avance

ps : j 'ai lu pas mal de tuto etc , mais suis trop un noob sur ce coup la

voici le code pour vous donnez une idée de ce que je veut faire

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
68
69
70
71
72
<%@ LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=windows-1252">
<TITLE>Suivi SAV</TITLE>
</HEAD>
<BODY>
<%
strProvider = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\base\bd1.mdb;"
Set rs = server.CreateObject("ADODB.recordset")
	rs.open "SELECT * FROM [suivi SAV]", strProvider,1,1
		response.write "nb champs = " & rs.fields.count & "<br>" 
		response.Write("<table>"  & vbcrlf)
		for i= 0 to rs.fields.count-1 
			response.write ("<th>" & rs.fields(i).name & "&nbsp;</th>" & vbcrlf)
		next 
		while not rs.eof 
			response.Write("<tr>" & vbcrlf)
			for i= 0 to rs.fields.count-1 
				response.write ("<td>" & rs.fields(i).value & "&nbsp;</td>" & vbcrlf)
			next 
			response.Write("<tr>" & vbcrlf)
			rs.movenext 
		wend
		response.Write("</table>" & vbcrlf)
	rs.close
set rs = nothing
%>
<form name="form1" method="post" action="">
  <p style="text-align: left"> ID &nbsp;<input type="text" name="ot" value="<% =request("Nom du Client") %>" id="ID" tabindex="0" language="javascript" onclick="return ID_onclick()">
      &nbsp; &nbsp; &nbsp;&nbsp; N d'emplacement &nbsp;&nbsp;
    <input type="text" name="desc" value="<% =request("nom du champs 2 a modifier") %>"></p>
  <p style="text-align: left">
      Nom du client
        <input type="text" name="ot" value="<% =request("Nom du Client") %>">
      &nbsp; &nbsp;&nbsp; Emplacements du MH &nbsp; &nbsp;<input type="text" name="desc" value="<% =request("nom du champs 2 a modifier") %>" style="width: 203px"></p>
    <p style="text-align: left">
        Date de prise en charge du client &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<input type="text" name="ot" value="<% =request("Nom du Client") %>">&nbsp;</p>
    <p style="text-align: left">
        Date de Prise en charge du materiel &nbsp; &nbsp; &nbsp;<input type="text" name="desc" value="<% =request("nom du champs 2 a modifier") %>"></p>
    <p style="text-align: left">
        Avancement du travail
    </p>
    <p style="text-align: left">
        <input type="text" name="ot" value="<% =request("Nom du Client") %>" style="width: 640px; height: 101px">&nbsp;</p>
    <p style="text-align: left">
        Matriel rpar&nbsp; &nbsp;<input type="text" name="desc" value="<% =request("nom du champs 2 a modifier") %>"></p>
    <p style="text-align: left">
        &nbsp;Retour atelier &nbsp;&nbsp; &nbsp;<input type="text" name="ot" value="<% =request("Nom du Client") %>"></p>
    <p style="text-align: left">
        &nbsp;Remarques</p>
    <p style="text-align: left">
        &nbsp;<input type="text" name="desc" value="<% =request("nom du champs 2 a modifier") %>" style="width: 641px; height: 121px"></p>
    <p style="text-align: left">
        &nbsp;Dtail de la panne</p>
    <p style="text-align: left">
        <input type="text" name="desc" value="<% =request("nom du champs 2 a modifier") %>" style="width: 645px; height: 72px"></p>
    <p>
        &nbsp;</p>
    <p>
    <input type="submit" name="action" value="modifier" id="Submit1" language="javascript" onclick="return Submit1_onclick()">
        &nbsp;
        <input type="submit" name="action" value="enregistrer" id="Submit2" language="javascript" onclick="return Submit2_onclick()">&nbsp;
        <input type="submit" name="action" value="prcedent" id="Submit3" language="javascript" onclick="return Submit3_onclick()">
        <input type="submit" name="action" value="suivant" id="Submit4" language="javascript" onclick="return Submit4_onclick()">
        <input type="submit" name="action" value="fermer" id="Submit5" language="javascript" onclick="return Submit4_onclick()">
        <input type="submit" name="action" value="imprimer" id="Submit6" language="javascript" onclick="return Submit4_onclick()">
        <input type="submit" name="action" value="rechercher" id="Submit7" language="javascript" onclick="return Submit4_onclick()"></p>
</form>
 
</BODY>
</HTML>

bon au debut du code il y a ma connection a la base et derriere le code pour lister la table ( que je dois enlever ) .

merci d'avance

**Immobilis** · 29/05/2007, 22h44

Salut,

Imagine uns table "matable" avec un champ de type texte appelé "monchamp".
Pour que IIS mette à jour des données il faut utiliser des requetes SQL du style:

Code :

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

"INSERT INTO matable (monchamp) VALUES ('" & request.form("matextbox") & "');"  'il faut mettre une apostrophe quand c'est du texte

Le plus simple est de créer un objet "command"

Code :

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

Set cm = server.create("ADODB.Command")

de lui passer la requete et de l'executer

Code :

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

1
2
3
 
cm.commandtext = "INSERT ..."
cm.execute

Tu trouveras plein de truc dans la section "server scripting" de http://www.w3schools.com/

A+

**nboubeur** · 30/05/2007, 11h12

Bon je vais passer pour le mec super chiant , mais bon , faut que mon projet aboutisse , sinon c'est le drame

Apres avoir retourné le truc dans tt les sens , j 'arrive pas a placer les code que tu me donne

voila ci je te dis :

mon champ est : Nom du Client

ma table : SuiviSAV

peut tu me faire au moin 1 code pour que je puisse faire de quoi voir et modifier le nom de mon client via ma bdd access ( BD1.mdb )

apres je ferais le reste , le truc est de piger le fonctionnement , car je debute et j apprend par moi meme alors , honnetement c'est sport meme avec des livres etc .

une fois que j aurais compris et vu le fonctionnement je pense que je vais m'en sortir via tte la masse dedoc que j 'ai lol .

**nboubeur** · 01/06/2007, 10h40

eu meme pas un petit code re recuperation de donnée dans un champ ?

**Phiss** · 01/06/2007, 11h48

Salut,

Pour voir c'est a dire aller chercher un enregistrement dans une base il faut utiliser un requte du type

Code :

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

requete = "select * from suivisav where [nom du client] = '"& valeurrecupere&"' "

pour mettre à jour ton enregistrement après c'est du style

Code :

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

requete = "update suivisav set champs = "& nouvellevaleurchamps &", champs2 = "& nv_valeur_chps2 &" where [nom du client] = '"& valeur_nom_client&"'

Après c'est tout expliqué dans les tutoriels ou autres cours.
Donc si tu as tout une documentation cela ne devrait pas poser de problèmes

**nboubeur** · 01/06/2007, 13h21

Dis moi pour l 'instant j ai mis ca :

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
<%@ LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=windows-1252">
<TITLE>Contacts</TITLE>
</HEAD>
<BODY>
<%
strProvider = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\base\bd1.mdb;"
Set rs = server.CreateObject("ADODB.recordset")
	rs.open "SELECT * FROM [suivi SAV]", strProvider,1,1
	requete = "select * from SuiviSAV where [Nom du Client] = '"& valeurrecupere&"' "
 rs.close
set rs = nothing
%>
 
</form>
 
</BODY>
</HTML>

mais comment la faire aparaitre ?

car la page blanche ( dsl , je comprend vite mais faut m'expliquer longtemp )

[ WEB ] Création d un formulaire en .ASP

ASP

Vue hybride

Discussions similaires

Partager

Partager