problème d'enregistrement des données depuis asp vers base access

**abderrahim691** · 10/11/2010, 16h57

salut,
je travaille sur une petite application de prises des rendez vous sous asp mais j'arrive pas en à enregistrer les données saisies dans la table de base de données access si quelqu'un peut m'aider merci d'avance
mon code asp est les suivant:

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
 <%@ Language="VBScript" %>
<% Option Explicit %>
<html>
<head>
<title>Insert into database</title>
</head>
<body>
<%
      Dim dbname
        Dim conntemp, cnpath, SQLtemp, RStemp,Submit 
If Session("LoggedIn") <> "yes" Then
        Session("Message") = "Vous devez vous connecter pour voir cette page."
            Response.Redirect "login.asp"
        End If
article =session("article")
nom=session("nom")
date_reception=session("date_reception)
heure_reception=session("heure_reception)
objet=session("objet")
observation=session("obsevation")
 
 
Submit=Request.Form("sauvegarder")
dbname="rendezv.mdb"
Set conntemp=Server.CreateObject("adodb.connection")
cnpath="DBQ=" & Server.MapPath(dbname)
conntemp.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
if Submit="sauvegarder" then
 
SQLtemp="INSERT INTO tanfa(article,nom,date_reception,heure_reception,objet,observation) VALUES('"&article&"','"&nom&"','"&date_reception&"','"&heure_reception&"','"&objet&"','"&observation&"')"
RStemp=conntemp.execute(SQLTemp)
end if
%>
 
Response.Write "vos données ont été ajoutées à la base de données"
conntemp.Close
 
%>
 
</body>
</html>

**sergio88** · 11/11/2010, 11h45

Salut,
Toutes tes variables ne sont pas déclarées alors que ton code demande à ce quelles le soit explicitement par l'utilisation du code :

Code :

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

Option Explicit

il manque des "double quote" ici :

Code :

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

1
2
date_reception=session("date_reception")
heure_reception=session("heure_reception")

A moins que ce ne soit une erreur due au copier/coller, il y a un problème de balisage, "%>" en trop après "end if", que j'ai supprimé ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
...
SQLtemp="INSERT INTO tanfa(article,nom,date_reception,heure_reception,objet,observation) VALUES('"&article&"','"&nom&"','"&date_reception&"','"&heure_reception&"','"&objet&"','"&observation&"')"
RStemp=conntemp.execute(SQLTemp)
end if
 
Response.Write "vos données ont été ajoutées à la base de données"
conntemp.Close
 
%>

Il manque également la déclaration du recordset avant son ouverture :

Code :

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

1
2
3
 
Dim RStemp
set RStemp=Server.CreateObject("ADODB.recordset")

Ne pas oublier de le fermer dès que tu n'en as plus besoin. Détruire tous les objets ADO instanciés dans ton code dès lors que tu n'en as plus besoin.

Est ce que le code soumis est complet ? Si oui, pourquoi utiliser les balises HTML et placer ton code vbscript dans le "body" ?

@+

**abderrahim691** · 12/11/2010, 02h05

salut , tot d'abord je tiens à vous remercie d'avoir penser de m'aider mais je suis vraiment désolé j'arrive pas toujours à ecrire à la base access malgré les rectifications.
aies l'amabilité de m'aider merci beaucoup, mon code est le suivant:

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
<%@ Language="VBScript" %>
<% Option Explicit %>
<html>
<head>
<title>Insert into database</title>
</head>
<body>
 
 
 
<%
Dim conntemp
Dim cnpath
Dim oRs
Dim bname
Dim curDir
Dim SQLtemp
Dim RStemp
Dim article
Dim gestionnaire
Dim date_reception
Dim heure_reception
Dim objet
Dim observation
If Session("LoggedIn") <> "yes" Then
Session("Message") = "Vous devez vous connecter pour voir cette page."
Response.Redirect "index.html"
       End If
article =session("article")
gestionnaire=session("gestionnaire")
date_reception=session("date_reception")
heure_reception=session("heure_reception")
objet=session("objet")
observation=session("obsevation")
 
Submit=Request.Form("sauvegarder")
dbname="\base\rendezv.mdb"
Set conntemp=Server.CreateObject("adodb.connection")
cnpath="DBQ=" & Server.MapPath(dbname)
set RStemp=Server.CreateObject("ADODB.recordset")
conntemp.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
if Submit="sauvegarder" then
SQLtemp="INSERT INTO tanfa(article,gestionnaire,date_reception,heure_reception,objet,observation) VALUES('"&article&"','"&gestionnaire&"','"&date_reception&"','"&heure_reception&"','"&objet&"','"&observation&"')"
RStemp=conntemp.execute(SQLTemp)
end if
 
Response.Write "vos données ont été ajoutées à la base de données"
SQLtemp.Close
conntemp.Close
%>
 
</body>
</html>

**roro06** · 12/11/2010, 09h58

Bonjour

Que te donne ceci ? :

Code :

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

Response.Write(SQLtemp)

Si tu le copie-colle dans access, l'enregistrement se fait-il ?

**pc75** · 17/11/2010, 14h51

Bonjour,

Autre piste ; dans le contenu des zones de type texte du style "observation", il n'y aurait pas des apostrophes ?

**kaiser59** · 20/11/2010, 02h29

Salut,

Je ne sais pas si tu débutes, j'espère que c'est le cas vue le code

c'est pas top comment te retrouves tu dedans ?

Sinon, essayes ceci :

Code asp :

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
 
if Soumit = "Sauvegarder" then
DSN_BASE = "DBQ=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "base\rendezv.mdb"
 & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
 
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set RS = Server.CreateObject("ADODB.Recordset")
 
'ta requete dajout ici
Sql="Insert Into..."
rs.Open Sql, Conn
 
response.write "Ajout du rendez vous terminé"
 
 
Set rs = Nothing
Conn.Close
Set Conn = Nothing
end if

C'est bien plus propre et compréhensible.
De plus, fait ce que te demande roro et exécute ce que te retourne le résultat directement dans Access;

problème d'enregistrement des données depuis asp vers base access

ASP

Discussions similaires

Partager

Partager