Renvoie le code corrigé... Je ne sis rien faire comme cela
Renvoie le code corrigé... Je ne sis rien faire comme cela
Voici le code
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 <html> <body><% Dim objConnection Set objConnection = Server.CreateObject("ADODB.Connection") objConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mappath("base.mdb") objConnection.ConnectionTimeout = 0 objConnection.Open If (objConnection.State = 1) Then Response.Write "Pas de problèmes de connexion" Else Response.Write "Problème de connexion" End If sql="INSERT INTO Doc (reference,titre)" sql=sql & " VALUES " sql=sql & "('" & Request.Form("reference") & "'," sql=sql & "'" & Request.Form("titre") & "')" Response.write (sql) Response.End on error resume next conn.Execute sql,recaffected if err<>0 then Write("No update permissions!") else Response.Write("<h3>" & recaffected & " record added</h3>") end if objConnection.close %> </body> </html>
Première chose, tu enlèves le response.end
Ensuite, tu as toujours le problème du nom de ta variable de connexion qui une fois s'appelle objConnection puis plus loin Conn (voir mon post plus haut !)
oui je t'ai envoyé un autre code dsl ...
j'ai fait les modifications.
Voici le nouveau code
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 <html> <body><% Dim objConnection Set objConnection = Server.CreateObject("ADODB.Connection") objConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mappath("base.mdb") objConnection.ConnectionTimeout = 0 objConnection.Open If (objConnection.State = 1) Then Response.Write "Pas de problèmes de connexion" Else Response.Write "Problème de connexion" End If sql="INSERT INTO Doc (reference,titre)" sql=sql & " VALUES " sql=sql & "('" & Request.Form("reference") & "'," sql=sql & "'" & Request.Form("titre") & "')" Response.write (sql) on error resume next objConnection.Execute sql,recaffected if err<>0 then Write("No update permissions!") else Response.Write("<h3>" & recaffected & " record added</h3>") end if objConnection.close %> </body> </html>
je ne vois pas trop où est le problème à l'heure actuelle ...
Essaye en enlevant exactement ce que je t'ai mis ici et vérifie directement dans la BDD si le record a été ajouté ou envoie la message d'erreur
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 recaffected if err<>0 then Write("No update permissions!") else Response.Write("<h3>" & recaffected & " record added</h3>") end if
Voici le code comme tu me l'as indiqué
Voici le message que j'obtiens
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 <html> <body><% Dim objConnection Set objConnection = Server.CreateObject("ADODB.Connection") objConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mappath("base.mdb") objConnection.ConnectionTimeout = 0 objConnection.Open If (objConnection.State = 1) Then Response.Write "Pas de problèmes de connexion" Else Response.Write "Problème de connexion" End If sql="INSERT INTO Doc (reference,titre)" sql=sql & " VALUES " sql=sql & "('" & Request.Form("reference") & "'," sql=sql & "'" & Request.Form("titre") & "')" Response.write (sql) Response.End on error resume next conn.Execute sql,recaffected conn.close %> </body> </html>
Pas de problèmes de connexionINSERT INTO Doc (reference,titre) VALUES ('A987','sfdfd')
mais aucune insertion dans la base de données
jé également enlevé le recaffected.....mais j'ai toujours le même code et aucune insertion à la base de données....
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 <html> <body><% Dim objConnection Set objConnection = Server.CreateObject("ADODB.Connection") objConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mappath("base.mdb") objConnection.ConnectionTimeout = 0 objConnection.Open If (objConnection.State = 1) Then Response.Write "Pas de problèmes de connexion" Else Response.Write "Problème de connexion" End If sql="INSERT INTO Doc (reference,titre)" sql=sql & " VALUES " sql=sql & "('" & Request.Form("reference") & "'," sql=sql & "'" & Request.Form("titre") & "')" Response.write (sql) Response.End on error resume next conn.Execute sql conn.close %> </body> </html>
C'est plutot celui là kil fo regarder...dsl
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 <html> <body><% Dim objConnection Set objConnection = Server.CreateObject("ADODB.Connection") objConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mappath("base.mdb") objConnection.ConnectionTimeout = 0 objConnection.Open If (objConnection.State = 1) Then Response.Write "Pas de problèmes de connexion" Else Response.Write "Problème de connexion" End If sql="INSERT INTO Doc (reference,titre)" sql=sql & " VALUES " sql=sql & "('" & Request.Form("reference") & "'," sql=sql & "'" & Request.Form("titre") & "')" Response.write (sql) Response.End on error resume next objConnection.Execute sql objConnection.close %> </body> </html>
marabout tu crois kon va réellement faire marcher ce code?
Bonjour
J'aurais dit plutot :Première chose, tu enlèves le response.end
(quitte à le remettre après). Il est impossible de debugger avec cette ligne présente, les messages d'erreur reçus seront autrement plus explicites. Au passage, dans la config d'IIS, vérifier dans l'onglet débogage que l'option activée est : "envoyer des messages d'erreurs détaillés au client" .Première chose, tu enlèves le on error resume next
Ca devrait aider ...
Bonjour,
la configuration IIS ? comment je dois faire exactement? parce ke je ne sais pas où est mon serveur IIS...
à quoi va me servir le serveur IIS ici? Je suis en stage et on me dit rien du tout...est ce que le serveur IIS est obligatoire??
Merci pour les réponses
tout ce qui se trouve entre les balises <% et %>, c'est de l'ASP. et qui dit ASP dit IIS (principalement, il y a aussi PWS sous XP home). Si tu n'y a pas accés, c'est que ton maître de stage l'a déjà configurée, et en fait tu n'est pas obligé d'y toucher, l'option dont je parlais est celle "par défaut".Un serveur est obligatoire pour interpréter asp. IIS étant fourni avec windows, je parlais de celui-là, mais il y en a peut-être d'autre.est ce que le serveur IIS est obligatoire??
Pour revenir à ton débugage, je te conseille fortement de virer une bonne fois pour toutes la ligne(que tu pourra éventuellement remettre après si tu veux faire une gestion d'erreur, mais je suppose que le but ici est d'ajouter les données dans la base)
Code : Sélectionner tout - Visualiser dans une fenêtre à part on error resume next
(pour l'anecdote, si tu es sous XP pro, IIS se gère dans le menu panneau de configuration --> Outils d'administration --> Services Internet)
même en virant la ligne, cela ne fonctionne pas.....
Pas de problèmes de connexionINSERT INTO Doc (reference,titre) VALUES ('A380','lafeedessonges')
jé pas de messages d'erreur...
mais le souci c'est qu'il n'ya pas d'insertion ds la base de données...
j'en ai un peu marre de ce code ca fait une semaine que j'essaye de le faire fonctionner avec l'aide de marabout mais sans succès ca ne fonctionne pas....je ne comprends pas pourtant...je pense que je vais abandonner...
quest ce que vous en pensez?
Que veux tu dire par la ??
add1 c'est ton fichier qui envoie les informations ?
sinon le code que je t'ai donné tu le mets où tu veux que ce soit dans la même page ou non.
Il te suffit juste de donner un nom au bouton submit, pour eviter d'avoir le message directement qui s'affiche si tu mets le code dans la même page, sinon pas besoin de donner de nom.
A titre d'exemple (dans la même page):
Code html : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 <form action="page.asp" method="post"> .. <input type="submit" name="envoie" value="ok" /> </form>
puis avant ou après ton formulaire peut importe
Code asp : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 if request.form("envoie") = "ok" then 'appliquer le code d''insertion avec connexion etc.. 'message de confirmation ou d''infirmation de l''insertion end if
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager