insertion de données dans table mySQL

Version imprimable

bonjour, je voudrais inserer des données dans une table membre2 avec base mySQL (pour la gestion des inscriptions des clients) an asp, mais je ne sais pas comment faire.
J'ai ma chaîne de connexion en haut, et mon formulaire ensuite.
Quelqu'un pourrait-il m'aider s'il vous plaît?
voici mon code:

Code:

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
<HTML>
<HEAD>
<TITLE>Inscription</TITLE>
<%
'declaration des variables et recup des données 
dim mail
dim pass
dim nom
dim adresse
dim codepostal
dim ville
mail = Request.Form("mail")
pass = Request.Form("pass")
nom = Request.Form("nom")
adresse = Request.Form("adresse")
codepostal = Request.Form("codepostal")
ville = Request.Form("ville")
 
' IP ou Nom du serveur mySQL
	ServerAddress = "localhost" 'localhost si c'est sur la même machine
	' Nom de la base de données
	DBName = "micro-sell"
	' Login pour la base
	UID = "root"
	' Mot de passe pour la base
	Password = "root"
 
	' Ici on construit la chaine de connexion ODBC
	LE_DSN = "driver={MySQL ODBC 3.51 Driver};server=" & ServerAddress & ";db=" & DBName & ";user id=" & UID & ";pwd=" & Password & ";option=16386"
	' Paramètre de connexion + connexion
	Set MaConnexion = Server.CreateObject("ADODB.Connection")
		MaConnexion.ConnectionTimeout = 30	
		MaConnexion.CommandTimeout = 30
 
		MaConnexion.Open LE_DSN
 
 
%>
 
 
</HEAD>
<BODY>
<H3>S'inscrire en ligne</H3><br>
 
<form name="form" action="inscription.php" method="post">
 Mail : <input type="text" name="mail"><br>
 Mot de passe : <input type="password" name="pass"><br>
 Nom : <input type="text" name="nom"><br>
 Adresse : <input type="text" name="adresse"><br>
 CP : <input type="text" name="codepostal"><br>
 Ville : <input type="text" name="ville"><br>
 
 <input type="submit" value="valider" onClick=<%Maconnexion.execute("INSERT INTO membre2 (mail, pass, nom, adresse, codepostal, ville) VALUES ('" & mail & "', '" & pass & "', '" & nom & "','" & adresse & "','" & codepostal & "','" & ville & "')")%> >
 
</BODY>
</HTML>

Salut,

Si la chaine de connection est bonne (tu arrives à te connecter à ta base) alors, il suffit de mettre l'instruction SQL dans la page "inscription.php". Un truc du style:
Code:

1 2 3 4 5 6 7 Dim cm Set cm = server.create("ADODB.Command") cm.ActiveConnection = MaConnexion if len(request.form) > 0 then cm.CommandText = "INSERT INTO MATABLE (mail, ...) VALUES ('" & request.form("mail") & "', ...);" cm.Execute end if
A+

07/12/2007, 13h27
kumo

non en faite, le "inscription.php" c'est une erreur, je ne dois pas utiliser de php, c'est en asp que je dois le faire

edit: please quelqu'un pourrait m'aider?

Salut,

Que fais l'instruction d'insertion dans le onClick ??

Si tu veux faire l'insertion dans la même page il te suffit de faire ceci :
Code:

1 2 3 4 5 6 7 8 9 <form action="inscription.asp" method="post"> ... <input type="submit" name="ok" value="Enregistre"> </form> <% if request.form("ok") = "Enregistre" then 'execute la requete d'insertion end if %>

07/12/2007, 16h44
kumo

ok mais dans mon fichier "inscription.asp" je met quoi?
le requête je la met ou?
dsl, mais je ne sais pas trop

Salut, essai avec ca

Code:

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
<HTML>
<HEAD>
<TITLE>Inscription</TITLE>
<%
'declaration des variables et recup des données 
dim mail
dim pass
dim nom
dim adresse
dim codepostal
dim ville
mail = Request.Form("mail")
pass = Request.Form("pass")
nom = Request.Form("nom")
adresse = Request.Form("adresse")
codepostal = Request.Form("codepostal")
ville = Request.Form("ville")
 
' IP ou Nom du serveur mySQL
	ServerAddress = "localhost" 'localhost si c'est sur la même machine
	' Nom de la base de données
	DBName = "micro-sell"
	' Login pour la base
	UID = "root"
	' Mot de passe pour la base
	Password = "root"
 
	' Ici on construit la chaine de connexion ODBC
	LE_DSN = "driver={MySQL ODBC 3.51 Driver};server=" & ServerAddress & ";db=" & DBName & ";user id=" & UID & ";pwd=" & Password & ";option=16386"
	' Paramètre de connexion + connexion
	Set MaConnexion = Server.CreateObject("ADODB.Connection")
		MaConnexion.ConnectionTimeout = 30	
		MaConnexion.CommandTimeout = 30
 
		MaConnexion.Open LE_DSN
 
 
%>
 
 
</HEAD>
<BODY>
<H3>S'inscrire en ligne</H3><br>
 
<form name="form" action="" method="post">
 Mail : <input type="text" name="mail"><br>
 Mot de passe : <input type="password" name="pass"><br>
 Nom : <input type="text" name="nom"><br>
 Adresse : <input type="text" name="adresse"><br>
 CP : <input type="text" name="codepostal"><br>
 Ville : <input type="text" name="ville"><br>
 
 <input name="submit" type="submit" id="submit" value="valider">
</form>
<%
if request.form("submit")="valider" then
Maconnexion.execute("INSERT INTO membre2 (mail, pass, nom, adresse, codepostal, ville) VALUES ('" & mail & "', '" & pass & "', '" & nom & "','" & adresse & "','" & codepostal & "','" & ville & "')")
end if
Maconnexion.close()
%>
</BODY>
</HTML>

j'espere que ca va marcher:) tu peux meme faire une redirection vers une autre page pour afficher un message comme "Bienvenue sur le nom de votre site"
tu mets juste ca avant le end if

Code:

1
2
 
response.redirect("ta_page.asp")

ta_page.asp tu la crée biensur en mettant un message de bienvenu
A+

08/12/2007, 12h18
kumo

ok, pour l'instant je ne suis pas chez moi, j'essairai ça lundi et je donnerai des nouvelles.
Merci en tout cas

en faite avec mon onclick ça marche bien également, maintenant, je veux faire un test pour que si le mail existe déjà, il ne fasse pas l'ajout et qu'il renvoie un message pour saisir un nouveau mail.
donc voilà mon code, mais ça ne fonctionne pas, il ne met pas d'erreur, mais il rajoute rien

Code:

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
73
74
75
76
<HTML>
<HEAD>
<TITLE>Inscription</TITLE>
</HEAD>
<BODY>
<%
'declaration des variables et recup des données 
dim mail
dim pass
dim nom
dim adresse
dim codepostal
dim ville
mail = Request.form("mail")
pass = Request.form("pass")
nom = Request.form("nom")
adresse = Request.form("adresse")
codepostal = Request.form("codepostal")
ville = Request.form("ville")
 
' IP ou Nom du serveur mySQL
	ServerAddress = "a-server" 'localhost si c'est sur la même machine
	' Nom de la base de données
	DBName = "micro-sell"
	' Login pour la base
	UID = "root"
	' Mot de passe pour la base
	Password = "ffffffff"
 
	' Ici on construit la chaine de connexion ODBC
	LE_DSN = "driver={MySQL ODBC 3.51 Driver};server=" & ServerAddress & ";db=" & DBName & ";user id=" & UID & ";pwd=" & Password & ";option=16386"
	' Paramètre de connexion + connexion
	Set MaConnexion = Server.CreateObject("ADODB.Connection")
		MaConnexion.ConnectionTimeout = 30	
		MaConnexion.CommandTimeout = 30
 
		MaConnexion.Open LE_DSN
 
 
%>
 
 
 
 
<H3>S'inscrire en ligne</H3><br>
 
<form name="form"  method="post">
 Mail : <input type="text" name="mail"><br>
 Mot de passe : <input type="password" name="pass"><br>
 Nom : <input type="text" name="nom"><br>
 Adresse : <input type="text" name="adresse"><br>
 CP : <input type="text" name="codepostal"><br>
 Ville : <input type="text" name="ville"><br>
 
 
 
 
 
<input type="submit" type="submit" id="submit" value="valider">
<%
if request.form("submit")="valider" then
   set res=Maconnexion.execute("select count(mail) as nb from membre2 where mail='" & mail & "'")
   if res("nb")=0 then
       Maconnexion.execute("INSERT INTO membre2 (mail, pass, nom, adresse, codepostal, ville) VALUES ('" & mail & "', '" & pass & "', '" & nom & "','" & adresse & "','" & codepostal & "','" & ville & "')")
    else alert("ce mail existe déjà")
   end if
end if
Maconnexion.close()
%>
 
 
 
 
 
</BODY>
</HTML>

Désolé de te dire ça mais mettre la requete dans le onclick est strictement inutile. De plus, submit sert à envoyer les données donc où est l'interet de ton onClick ?
Tu ajoutes ta requetes à la suite de ton code, j'ai fais un copier/coller donc s'il y'a des fautes entre deux tu corrigeras ;)

Code:

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
<%
 
if request.form("enregistre") = "Valider" then
 
'declaration des variables et recup des données 
dim mail
dim pass
dim nom
dim adresse
dim codepostal
dim ville
mail = Request.form("mail")
pass = Request.form("pass")
nom = Request.form("nom")
adresse = Request.form("adresse")
codepostal = Request.form("codepostal")
ville = Request.form("ville")
 
' IP ou Nom du serveur mySQL
	ServerAddress = "a-server" 'localhost si c'est sur la même machine
	' Nom de la base de données
	DBName = "micro-sell"
	' Login pour la base
	UID = "root"
	' Mot de passe pour la base
	Password = "ffffffff"
 
	' Ici on construit la chaine de connexion ODBC
	LE_DSN = "driver={MySQL ODBC 3.51 Driver};server=" & ServerAddress & ";db=" & DBName & ";user id=" & UID & ";pwd=" & Password & ";option=16386"
	' Paramètre de connexion + connexion
	Set MaConnexion = Server.CreateObject("ADODB.Connection")
                '--- A QUOI TE SERT CECI, TA BASE S''OUVRE UNIQUEMENT QD LA PERSONNE A CLIQUER SUR VALIDER ET SE FERME APRES --
		MaConnexion.ConnectionTimeout = 30	
		MaConnexion.CommandTimeout = 30
               '----------
	       MaConnexion.Open LE_DSN
 
              set res=Maconnexion.execute("select count(mail) as nb from membre2 where mail='" & mail & "'")
 
               if res("nb")=0 then
                  Maconnexion.execute ("INSERT INTO membre2 (mail, pass, nom, adresse, codepostal, ville) VALUES ('" & mail & "', '" & pass & "', '" & nom & "','" & adresse & "','" & codepostal & "','" & ville & "')")
 
'petit message perso pour toi, pour voir si cela a bien fonctionné, tu l'enleves si sa fonctionne ;)              
response.write "Insertion terminée dans la base"
 
               else 
                    alert("ce mail existe déjà")
               end if
 
     Maconnexion.close()
end if
%>

à la suite,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
<H3>S'inscrire en ligne</H3><br>
 
<form name="form"  method="post">
 Mail : <input type="text" name="mail"><br>
 Mot de passe : <input type="password" name="pass"><br>
 Nom : <input type="text" name="nom"><br>
 Adresse : <input type="text" name="adresse"><br>
 CP : <input type="text" name="codepostal"><br>
 Ville : <input type="text" name="ville"><br>
 
<input type="submit" id="submit" name="enregistre" value="valider">
</form>

18/12/2007, 10h48
kumo

ça marche pas, des que je valide il me met aucun message d'erreur, mais il me rajoute rien dans ma base
18/12/2007, 14h52
roro06
bonjour

essaie plutot :
Code:

1 2 if lcase(request.form("enregistre")) = "valider" then ...
(petits problèmes de majuscules/minuscules dans le code précédent)
18/12/2007, 15h28
kaiser59
Citation:
Envoyé par roro06

bonjour

essaie plutot :

Code:

1 2 if lcase(request.form("enregistre")) = "valider" then ...

(petits problèmes de majuscules/minuscules dans le code précédent)
C'est normale, j'ai écris Valider au lieu de valider et vue que tu as fais un copier/coller du coup sa ne marche pas dsl pour le "V" normalement si tu remplace ou utilise la méthode de roro sa devrait marché ;)
18/12/2007, 20h43
Poussy-Puce

Citation:

Envoyé par kumo

ça marche pas, des que je valide il me met aucun message d'erreur, mais il me rajoute rien dans ma base

Ça serait bien que tu le publies ton message d'erreur! Ça aide d'habitude!!! ;)
18/12/2007, 21h34
kaiser59

Citation:

Envoyé par Poussy-Puce

Ça serait bien que tu le publies ton message d'erreur! Ça aide d'habitude!!! ;)

Logiquement il n'a pas d'erreur qui est normal dans ce cas vue qu'il n'entre jamais dans la condition car si tu lis le message juste avant je disais que je me suis trompé dans l'orthographe de du mot "valider".

Comme il attend le mot "Valider" et que le request lui renvoie le mot "valider" alors il n'entre pas dans la condition quoi que si, mais comme il n'y a pas de "else" donc nada.