probleme de code formulaire

**bachilbouzouk** · 12/04/2005, 11h50

Bon voilà mon problème de petit débutant:

j'ai crée un formulaire permettant d'ajouter un nom de transporteur dans la table transporteur (constituée uniquement des différents nom_transp)

voici le code correspondant

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
<%'-------récupération des données saisies dans le formulaire-
fnom_transp=Request.Form("nom_transp")
 
<%DSN_BASE = "DBQ=" & Server.Mappath("BD.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>
 
 
<%'-------création de la connection et du recordset--------------------------
Set Conconnexion = Server.CreateObject("ADODB.Connection")
Conconnexion.Open DSN_BASE
Set Rsconnexion = Server.CreateObject("ADODB.Recordset")%>
 
<%'-------définition et exécution de la requête---------------
RequeteSQL = "Insert Into transporteur (nom_transp) Values (' " & fnom_transp & " ')"
Rsconnexion.Open RequeteSQL , Conconnexion%>
 
<%'-------fermeture de la connection et du recordset----------
Rsconnexion.Close
Set Rsconnexion = Nothing
Conconnexion.Close
Set Conconnexion = Nothing%>

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
<form method="POST" action="formulaire_test.asp" name="formulairetest">
  <div align="center">
    <table border="1" cellpadding="10" cellspacing="0" width="48%" bordercolor="#800080">
      <tr>
        <td width="58%" bgcolor="#FFE1FF"><font face="Arial" size="2">transporteur</font></td>
        <td width="78%"><input type="text" name="nom_transp" size="6"></td>
      </tr>
    </table>
  <br><br>
  <input type="submit" value="Valider" name="action">
  </div>
</form>

et là MIRACLE !! impossible d'afficher la page.....

késako?

**pmboutteau** · 12/04/2005, 12h00

Quelle page?

**bachilbouzouk** · 12/04/2005, 12h09

Envoyé par pmboutteau

Quelle page?

la page qui contient ce code
quand je veux la tester, impossible
jai ptetre pas compris quelque chose

:

**pmboutteau** · 12/04/2005, 12h19

Tu as ton formulaire dans une page HTMl qui va exécuter ra page asp.

Evite d'appeler les pages XXX_XXX.

Utilise plutôt formulaireTest.asp

Ensuite si dans ta page asp tu n'a pas de response.write il va rien afficher mais regarde si dans ta base de données il a rempli les champs.

Ensuite si dans ta page formulaireTest.asp tu veux juste remplir ta base
ton Recordset ne sert à rien. Tu peux en créer un si tu veux tester des données de ta base avant de la remplir ( Typiquement pour UPdater des champs) si c'est juste pour insérer,tu fais

Code :

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

Conconnexion.Execute("RequeteSQL")

Je sais pas si çà répond à ton problème mais j'espère que çà peut t'éclairer.

**bachilbouzouk** · 12/04/2005, 13h31

bon voici en détail cque ca donne

page html:

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
<html>
<head>
<title>New Page 1</title>
<form method="POST" action="formulairetest.asp" name="formulairetest">
</head>
<body>
  <div align="center">
    <table border="1" cellpadding="10" cellspacing="0" width="48%" bordercolor="#800080">
      <tr>
        <td width="58%" bgcolor="#FFE1FF"><font face="Arial" size="2">transporteur</font></td>
        <td width="78%"><input type="text" name="nom_transp" size="6"></td>
      </tr>
    </table>
  <br><br>
  <input type="submit" value="Valider" name="action">
  </div>
</form>
</body>
</html>

et page ASP:

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
<%DSN_BASE = "DBQ=" & Server.Mappath("BD.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>
 
 
 
 
 
 
<%'-------création de la connection et du recordset--------------------------
Set Conconnexion = Server.CreateObject("ADODB.Connection")
Conconnexion.Open DSN_BASE
Set Rsconnexion = Server.CreateObject("ADODB.Recordset")%>
 
 
 
<%'-------récupération des données saisies dans le formulaire-
fnom_transp=Request.Form("nom_transp")
 
<%'-------définition et exécution de la requête---------------
RequeteSQL = "Insert Into transporteur (nom_transp) Values (' " &fnom_transp& " ')"
 
 
 
Conconnexion.Execute("RequeteSQL")%>
 
 
 
 
 
 
<%'-------fermeture de la connection et du recordset----------
Rsconnexion.Close
Set Rsconnexion = Nothing
Conconnexion.Close
Set Conconnexion = Nothing%>
 
 
<html>
 
<head>
<title>formulaire bidon</title>
</head>
 
<body>
 
<div align="center">
 
<br>
<br>
 
  </div>
<br><br><br>
 
</body>
 
</html>

mais rien ne change, lorsque jentre une valeur dans ma page html et que je l'envoie, mon explorer m'indique toujours impossible d'afficher la page.
j'ai du faire un erreur ,mais la tout c'est de savoir où

**pmboutteau** · 12/04/2005, 13h42

En haut de ta page asp il faut

Code :

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

1
2
<%@ Language="VBScript"%>
<% option explicit %>

et ensuite déclarer tes variables

Code :

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

1
2
3
Dim Conconnexion
Dim Rsconnexion
Dim fnom_transp

**pmboutteau** · 12/04/2005, 13h48

Et je viens de voir que ton formulaire commence dans ton HEAD.

Faut le mette dans le body est respecté l'ordre d'ouverture et de fermeture des balises.

**bachilbouzouk** · 12/04/2005, 13h50

comme ca donc ?

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
 
<%@ Language="VBScript"%> 
<% option explicit %> 
 
 
 
<%DSN_BASE = "DBQ=" & Server.Mappath("BD.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>
 
 
<%Dim Conconnexion 
Dim Rsconnexion 
Dim fnom_transp
%>
 
 
<%'-------création de la connection et du recordset--------------------------
Set Conconnexion = Server.CreateObject("ADODB.Connection")
Conconnexion.Open DSN_BASE
Set Rsconnexion = Server.CreateObject("ADODB.Recordset")%>
 
 
 
<%'-------récupération des données saisies dans le formulaire-
fnom_transp=Request.Form("nom_transp")
 
<%'-------définition et exécution de la requête---------------
RequeteSQL = "Insert Into transporteur (nom_transp) Values (' " &fnom_transp& " ')"
 
 
 
Conconnexion.Execute("RequeteSQL")%>
 
 
 
 
 
 
<%'-------fermeture de la connection et du recordset----------
Rsconnexion.Close
Set Rsconnexion = Nothing
Conconnexion.Close
Set Conconnexion = Nothing%>
 
 
<html>
 
<head>
<title>formulaire bidon</title>
</head>
 
<body>
 
<div align="center">
 
<br>
<br>
 
  </div>
<br><br><br>
 
</body>
 
</html>

**pmboutteau** · 12/04/2005, 13h54

oui, çà çà devrait marcher.

Tu n'es pas obligé d'avoir le HTML à la fin de ton code asp.

**bachilbouzouk** · 12/04/2005, 14h04

Envoyé par pmboutteau

oui, çà çà devrait marcher.

Tu n'es pas obligé d'avoir le HTML à la fin de ton code asp.

perdu

j'ai cru voir la lumière mais mon explorer reste toujours sur sa position
si quelqu'un comprend pourquoi

**pmboutteau** · 12/04/2005, 14h14

Pour tes variables evite aussi les _.

**bachilbouzouk** · 12/04/2005, 14h16

Envoyé par pmboutteau

Pour tes variables evite aussi les _.

ok je note tout cela

en fait c'était juste pour faire mon 1er formulaire, donc merci de me corriger de suite, ça évitera la mauvaise habitude. Sympa du coup de main

même si mon explorer me fait toujours la tronche avec ce code là

lol

**pmboutteau** · 12/04/2005, 14h28

Sinon essaie çà au niveau de la base de données.

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim str
Dim cnBD
 
str = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(".") &"\Bd.mdb"
'Créer la connection à la base de données'
set cnBD =Server.CreateObject("ADODB.Connection")
'Ouvrir la connexion'
cnBD.Open str

**roots_man** · 12/04/2005, 14h31

C'est quoi le nom de ta premiere page (avec extension) ??

**bachilbouzouk** · 12/04/2005, 14h35

Envoyé par pmboutteau

Sinon essaie çà au niveau de la base de données.

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim str
Dim cnBD
 
str = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(".") &"\Bd.mdb"
'Créer la connection à la base de données'
set cnBD =Server.CreateObject("ADODB.Connection")
'Ouvrir la connexion'
cnBD.Open str