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

**bidule123456** · 29/08/2007, 16h48

Bonjour,

j'ai fait un formulaire d'ajout et une connexion à une base access.
Mon problème c'est que quand je veux le tester sur le serveur , rien ne fonctionne, j'ai une page blanche.
Quelqu'un pourrait m'aider?

merci

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
54
55
56
57
58
59
60
61
62
<!-- #include file="_connexion.asp"-->
 
 
 
Ajout de la fiche :
 
<%
' Sélectionne toutes les fiches de la table "Document"
SQL="SELECT * FROM [Doc]"
Set RS = server.createobject("ADODB.Recordset")
RS.Open SQL,Conn , 3, 3
' Ajoute la nouvelle fiche
RS.addnew
RS("Titre")=Request.form("Titre")
RS("Reference")=Request.form("Reference")
RS.update
%> 
 
 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />
<title>Gestion Docs</title>
<script src="SpryAssets/SpryTabbedPanels.js" type="text/javascript"></script>
<link href="SpryAssets/SpryTabbedPanels.css" rel="stylesheet" type="text/css" />
</head>
 
<body>
<script type="text/javascript">
	function check()
	{
		if (document.formRecherche.ref.value == '')
		{
			var erreur = document.getElementById("erreur");
			document.erreur.innerHTML = 'Erreur au niveau de la référence !';
			document.erreur.style.visibility = 'visible';
			return false;
		}
		return true;
	}
 
      <div class="TabbedPanelsContent" align="center">
        <p style="color:#0099FF ; font-size:large;">
        	Ajout de documents        </p>
        <form name="formAjout" method="post" action="ajout.php" style="width:70%;text-align:left;padding: 10px 10px 10px 10px; margin:auto">
            <table width="100%" border="0" cellpadding="10" cellspacing="10">
              <tr>
                <td>Reference : </td>
                <td><input type="text" name="ref"  /></td>
              </tr>
              <tr>
                <td>Titre : </td>
                <td><input type="text" name="titre"  /></td>
              </tr>
              <tr>
 
var TabbedPanels1 = new Spry.Widget.TabbedPanels("TabbedPanels1");
//-->
</script>
</body>
</html>

Code de connexion

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
<%
' Path long de la base de données
dbPath = Server.MapPath("../documents.mdb")
' Création de l'objet permettant la connexion
Set Conn = Server.CreateObject("ADODB.Connection")
' Connexion
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};Pwd=;" _
   & " DBQ=" & dbPath
 
 
 
%>

**kaiser59** · 29/08/2007, 17h33

Salut,

Tu peux m'expliquer pourquoi ta page d'ajout contient l'extension .php ?

si tu travailles en ASP

De plus en asp tu peux évité le rs.addnew il te suffit de faire une requête avec Insert into.

**bidule123456** · 30/08/2007, 09h41

je voudrais savoir un code de connexion qui n'utilise pas l'ODBC mais qui soit web , sans avoir besoin de la configuration ODBC mais web.

**marabout** · 30/08/2007, 09h54

ODBC ou OLEDB sont indispensable pour attaquer une base de données. Par contre un DSN n'est pas indispensable (ce n'est qu'un alias pour une connexion). Est-ce de cela que tu parles ? Pourquoi ne veux-tu pas d'ODBC ou OLEDB ?

**pc75** · 30/08/2007, 09h55

Bonjour,

Envoyé par bidule123456

je voudrais savoir un code de connexion qui n'utilise pas l'ODBC mais qui soit web , sans avoir besoin de la configuration ODBC mais web.

Tu peux nous traduire ça en français ?

**bidule123456** · 30/08/2007, 09h58

En fait , pour pouvoir me connecter à une base de données ; je configurais mon ordi avec l'ODBC.
Mais mon maître de stage me dit qu'il ne veut pas de ce genre de connexion , mais qu'il voudrait une connexion de type web.
tu comprends mieux là? ou pas du tout?

**marabout** · 30/08/2007, 10h07

Essaye plutôt ce genre de code-ci pour ta connexion:

Code :

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

1
2
3
4
5
6
7
 
Dim objConnection
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.ConnectionString = 
      "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=GuruData.mdb;"
objConnection.ConnectionTimeout = 0
objConnection.Open

Je crois que c'est de ce genre-là !
Attention à ton chemin vers ta BDD: il doit être relatif à la racine de ton site

**meryem85** · 30/08/2007, 15h35

ok merci pour la connexion
j'ai trouvé un code sur internet grâce au conseil de marabout donc il ya 2 pages, une page pour le code html

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
<html>
<body><form method="post" action="demo_add.asp">
<table>
<tr>
<td>CustomerID:</td>
<td><input name="custid"></td>
</tr><tr>
<td>Company Name:</td>
<td><input name="compname"></td>
</tr><tr>
<td>Contact Name:</td>
<td><input name="contname"></td>
</tr><tr>
<td>Address:</td>
<td><input name="address"></td>
</tr><tr>
<td>City:</td>
<td><input name="city"></td>
</tr><tr>
<td>Postal Code:</td>
<td><input name="postcode"></td>
</tr><tr>
<td>Country:</td>
<td><input name="country"></td>
</tr>
</table>
<br /><br />
<input type="submit" value="Add New"> 
<input type="reset" value="Cancel">
</form></body>
</html>

et une autre page , avec les requetes en asp

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
<html>
<body><%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"sql="INSERT INTO customers (customerID,companyname,"
sql=sql & "contactname,address,city,postalcode,country)"
sql=sql & " VALUES "
sql=sql & "('" & Request.Form("custid") & "',"
sql=sql & "'" & Request.Form("compname") & "',"
sql=sql & "'" & Request.Form("contname") & "',"
sql=sql & "'" & Request.Form("address") & "',"
sql=sql & "'" & Request.Form("city") & "',"
sql=sql & "'" & Request.Form("postcode") & "',"
sql=sql & "'" & Request.Form("country") & "')"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>

ce que j'aimerais savoir , est que la connexion se fait avec l'ODBC ?
Quels fichiers est ce que je dois tester sur mon serveur?? le premier ou le second??

**marabout** · 30/08/2007, 15h51

Envoyé par meryem85

ok merci pour la connexion

ce que j'aimerais savoir , est que la connexion se fait avec l'ODBC ?
Quels fichiers est ce que je dois tester sur mon serveur?? le premier ou le second??

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><%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
connstring=server.mappath("northwind.mdb")
conn.Open connstring
sql="INSERT INTO customers (customerID,companyname,"
sql=sql & "contactname,address,city,postalcode,country)"
sql=sql & " VALUES "
sql=sql & "('" & Request.Form("custid") & "',"
sql=sql & "'" & Request.Form("compname") & "',"
sql=sql & "'" & Request.Form("contname") & "',"
sql=sql & "'" & Request.Form("address") & "',"
sql=sql & "'" & Request.Form("city") & "',"
sql=sql & "'" & Request.Form("postcode") & "',"
sql=sql & "'" & Request.Form("country") & "')"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>

Heureux d'avoir pu t'aider mais attention, sur le web, ne mets jamais des chemin physiques (comme "c:/webdata/northwind.mdb") mais plutôt des chemins relatifs i.e. à partir de la racine de ton site web (la racine est l'endroit où se trouve ta page index).

La méthode mappath de l'objet server recalculera le chemin physique de ton fichier peut importe où il se trouve d'où mon changement des lignes suivantes:

Code :

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

1
2
3
 
connstring=server.mappath("northwind.mdb")
conn.Open connstring

**meryem85** · 30/08/2007, 16h05

Code html :

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
<html>
<body><form method="post" action="add2.asp">
<table>
<tr>
<td>reference:</td>
<td><input name="reference"></td>
</tr><tr>
<td>Titre:</td>
<td><input name="titre"></td>
</tr><tr>
 
</table>
<br /><br />
<input type="submit" value="Add New"> 
<input type="reset" value="Cancel">
</form></body>
</html>

Voilà j'ai adapté mon code à ce que je veux faire ,il ne fonctionne pas ...je ne sais pas si c'est un problème de connexion à la base mais je pense que c'est ca... qu'est ce que vous en pensez?

**meryem85** · 30/08/2007, 16h07

Code :

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

1
2
3
4
5
6
7
8
9
Dim objConnection
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.ConnectionString = 
      "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=GuruData.mdb;"
objConnection.ConnectionTimeout = 0
objConnection.Open 
 
connstring=server.mappath("northwind.mdb")
conn.Open connstring

vous n'avez pas été clair dans vos instructions...il faut que je rajoute le code l'un au dessus de l'autre c'est cela que vous me dites???

**marabout** · 30/08/2007, 16h43

Envoyé par meryem85

Code :

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

1
2
3
4
5
6
Dim objConnection
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.ConnectionString = 
      "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mappath("GuruData.mdb")
objConnection.ConnectionTimeout = 0
objConnection.Open

vous n'avez pas été clair dans vos instructions...il faut que je rajoute le code l'un au dessus de l'autre c'est cela que vous me dites???

Non, regarde bien, j'ai corrigé dans ton code dans ce post ci

**meryem85** · 30/08/2007, 16h49

Est ce que je peux mettre ce code directement dans mon formulaire?

**marabout** · 30/08/2007, 16h53

Je comprends pas !?

Tu mets ton code, comme tu l'avais très bien mis dans ton premier post, en début de page de récupération (la seconde page) !

**meryem85** · 31/08/2007, 09h27

oui comme ceci

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
tml>
<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 "sql="INSERT INTO customers (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>

mais le souci c'est que cela ne fonctionne pas...
il me met page introuvable....je comprend pas pkoi

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

ta base de données est-elle bien dans le même dossier que ta page asp ?

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

oui jé mis mes 2 pages asp plus ma base de données....ya pas une erreur dans mon code
l'erreur est ligne 8

Code :

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

"sql="INSERT INTO customers (reference,titre)"

je vois pas trop où est mon erreur là???

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

plus précisément

Error Type:
Microsoft VBScript compilation (0x800A0400)
Expected statement
/TECHPUB1/TRANSFERT/Fatima/Projet/add2.asp, line 8

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

Envoyé par meryem85

oui jé mis mes 2 pages asp plus ma base de données....ya pas une erreur dans mon code
l'erreur est ligne 8

Code :

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

"sql="INSERT INTO customers (reference,titre)"

je vois pas trop où est mon erreur là???

Si tu l'as écrit tel quel, il y a effectivement des " en trop devant ta ligne

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

Et tu oublies de dire ce que tu insères (ton instruction INSERT N'est pas complète, il manque une partie)

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

ASP

Discussions similaires

Partager

Partager