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

**meryem85** · 31/08/2007, 10h46

je lé é enlevé mais ca marche toujours pas.....

**meryem85** · 31/08/2007, 10h48

là c la ligne 11

Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/TECHPUB1/TRANSFERT/Fatima/Projet/add2.asp, line 11, column 44

**marabout** · 31/08/2007, 10h59

Ton "on error resume next" doit passer à la ligne !

**meryem85** · 31/08/2007, 11h02

ok c'est bon je l'ai fait et là il me met comme message d'erreur

No update permissions!

pourquoi??

**marabout** · 31/08/2007, 11h03

Là, c'est un problème de droits sur ta BDD. Vérifie que le fichier n'est pas en readonly

**meryem85** · 31/08/2007, 11h07

je suis administrateur de mon ordinateur je suis en modify donc je ne pense pas que ce soit ça....tu aurais pas une autre idée...

**meryem85** · 31/08/2007, 11h26

j'ai regardé 20.000 fois mon code je trouve pas mon erreur ...c'est pas un problème de connexion à la base?

**marabout** · 31/08/2007, 11h57

D'abord, est-ce que la ligne

Code :

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

objConnection.Open "sql="INSERT INTO customers (reference,titre)"

est écrite telle quel ?
Si oui, il y a une erreur car tu dois passer à la ligne après le Open
Puis ajoute ce code-ci (une ligne après le open et avant ton sql):

Code :

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

1
2
3
4
5
6
7
 
If (objConnection.State = 1) Then
   Response.Write "Pas de problèmes de connexion"
Else
   Response.Write "Problème de connexion"
End If
Response.End

Après (une fois que tu auras la solution), il suffira de désactiver le response.end

**meryem85** · 31/08/2007, 12h04

Voici mon code pour que vous le voyez

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
<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
Response.End
 
sql="INSERT INTO Doc (reference,titre)"
sql=sql & " VALUES "
sql=sql & "('" & Request.Form("reference") & "',"
sql=sql & "'" & Request.Form("titre") & "',"
on error resume next
conn.Execute sql,recaffected
if err<>0 then
  Response.Write("No update permissions!")
else 
  Response.Write("<h3>" & recaffected & " record added</h3>")
end if
conn.close
%>
 
</body>
</html>

la réponse est: Pas de problème de connexion....donc ce n'est pas la connexion à la base....

**marabout** · 31/08/2007, 12h11

Etape suivante du débogage:
Tu vires le Response.End puis tu ajoutes ceci avant la ligne de ton "on error resume next" et tu vois si la reuqête semble correcte voire tu la teste dans Access directement

Code :

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

1
2
3
 
Response.write (sql)
Response.End

**meryem85** · 31/08/2007, 13h04

Voici mon 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)
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
conn.close
%>
 
</body>
</html>

Voici ce qu'il m'affiche
Pas de problèmes de connexionINSERT INTO Doc (reference,titre) VALUES ('A897','qresf'

je vais la tester sur Access , mais pourquoi la tester sur Access??

**meryem85** · 31/08/2007, 13h18

Vous croyez que c'est un problème de requete?

**marabout** · 31/08/2007, 13h40

Avoir comme ça, il manque au moins une parenthèse à la fin de ta requête

**meryem85** · 31/08/2007, 13h44

oui je l'avais déjà modifié mais j'ai toujours le même message mais aucune insertion concrète dans la base de données

Voici mon 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
conn.close
%>
 
</body>
</html>

**meryem85** · 31/08/2007, 14h43

j'ai testé ma requete sur access , elle fonctionne correctement...
là je vois pas du tout où est le problème....

**marabout** · 31/08/2007, 15h40

Si je lis bien ton code, tu as changé le nom de ta connexion sur la ligne où tu lance la requête: tu l'appelles conn alors qu'elle s'appelle objConnection !

**kaiser59** · 01/09/2007, 00h31

Salut,

Pour ajouter dans une base il te suffit de faire 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
'-------declaration de la base------------------------------
DSN_BASE = "DBQ=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "bd.mdb" & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
 
'-------création de la connection et du recordset-----------
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set RS = Server.CreateObject("ADODB.Recordset")
 
'-------requete sql---------------------------------------
 SQL = "Insert into NomTable (champ1, champ2) values ('"& request.form("var1") &"','"& request.form("var2") &"')"
 RS.Open SQL , Conn
 
Response.write "Enregistrement terminé"
 
'-------fermeture de la connection et du recordset----------
Set RS = Nothing
Conn.Close
Set Conn = Nothing