Ajouter des éléments dans une base de données Access

**marabout** · 03/09/2007, 12h30

Renvoie le code corrigé... Je ne sis rien faire comme cela

**meryem85** · 03/09/2007, 13h47

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>

**marabout** · 03/09/2007, 13h53

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 !)

**meryem85** · 03/09/2007, 13h57

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>

**meryem85** · 03/09/2007, 15h00

je ne vois pas trop où est le problème à l'heure actuelle ...

**marabout** · 03/09/2007, 15h49

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

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

**meryem85** · 03/09/2007, 16h00

Voici le code comme tu me l'as indiqué

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>

Voici le message que j'obtiens

Pas de problèmes de connexionINSERT INTO Doc (reference,titre) VALUES ('A987','sfdfd')

mais aucune insertion dans la base de données

**meryem85** · 03/09/2007, 16h07

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>

jé également enlevé le recaffected.....mais j'ai toujours le même code et aucune insertion à la base de données....

**meryem85** · 03/09/2007, 16h25

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>

**meryem85** · 03/09/2007, 16h44

marabout tu crois kon va réellement faire marcher ce code?

**roro06** · 03/09/2007, 16h48

Bonjour

Première chose, tu enlèves le response.end

J'aurais dit plutot :

Première chose, tu enlèves le on error resume next

(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" .

Ca devrait aider ...

**meryem85** · 03/09/2007, 16h50

Bonjour,

la configuration IIS ? comment je dois faire exactement? parce ke je ne sais pas où est mon serveur IIS...

**meryem85** · 03/09/2007, 16h57

à 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

**roro06** · 03/09/2007, 18h46

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".

est ce que le serveur IIS est obligatoire??

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.

Pour revenir à ton débugage, je te conseille fortement de virer une bonne fois pour toutes la ligne

Code :

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

on error resume next

(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)

(pour l'anecdote, si tu es sous XP pro, IIS se gère dans le menu panneau de configuration --> Outils d'administration --> Services Internet)

**meryem85** · 04/09/2007, 09h36

même en virant la ligne, cela ne fonctionne pas.....

**roro06** · 04/09/2007, 11h19

Un message d'erreur ?

**meryem85** · 04/09/2007, 13h46

Pas de problèmes de connexionINSERT INTO Doc (reference,titre) VALUES ('A380','lafeedessonges')

**meryem85** · 04/09/2007, 13h47

jé pas de messages d'erreur...
mais le souci c'est qu'il n'ya pas d'insertion ds la base de données...

**meryem85** · 04/09/2007, 15h05

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?

**kaiser59** · 04/09/2007, 15h10

Envoyé par meryem85

merci pour ton code mais il faudrait que je le mette en relation avec mon fichier add1 qui contient mon code en html non??

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

Ajouter des éléments dans une base de données Access

ASP

Discussions similaires

Partager

Partager