peut on créer plusieurs connexion à des bases différentes dans une même page asp

**michelle1000** · 11/10/2006, 13h05

bonjour je souhaite savoir s'il est possible de créer plusieurs connexion à des bases différentes dans une même page.
car ma page plante lorsque je creer 2 connexions.

**pc75** · 11/10/2006, 13h46

Bonjour,

A priori, je dirais OUI.

Mais montre nous ton code et dis nous où ça plante.

**Gwenn** · 11/10/2006, 13h47

Bonjour,

Oui c'est tout à fait possible

**michelle1000** · 11/10/2006, 13h54

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
 
<html>
<!-- Date de création: 20/06/2006 -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Infos</title>
<meta name="description" content="">
<meta name="keywords" content="">
<meta name="author" content="michelle">
<meta name="generator" content="WebExpert 5">
</head>
 
<!-- DERNIER MARCHE EN COURS ENREGISTREES VOICI LA PREMIERE CONNEXION  -->
 
<%DSN_BASE = "DBQ=" & Server.Mappath("/intranet/admin/marches/gestionmarches.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open DSN_BASE
%>
 
<%
SQL = "SELECT Max(indice) AS MaxDeindice FROM encours"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, conn
 
dim indice
indice= RS("MaxDeindice")
%>
 
<body bgcolor="#8ECCBE">
<font color="#ff0000"><b><u><div align="center">Infos</div></u></b></font>
<TABLE>
<tr>
<td><font color="#0066cc"><u><b>Pas de note de service</b></u></font></td>
</tr>
</table>
<%
sqlserv="select * from encours where indice="&indice
set rstAff3=conn.Execute(sqlserv)
%>
 
<TABLE>
<tr>
<td colspan=2><font color="#0066cc"><u><b>Dernière saisie des marchés en cours</b></u></font></td>
</tr>
<TR>
<td bgcolor="#FFFFBB"><%=rstAff3("objet")%></td>
<td bgcolor="#FFFFBB"><%=rstAff3("service")%></td>
</TR>
</TABLE>
<%
RS.Close : Set RS = nothing
rstAff3.Close : Set rstAff3 = nothing
conn.close
%>
 
<!-- NOTE DE SERVICE COS VOICI LA DEUXIEME CONNEXION -->
 
<%
DSN_BASE = "DBQ=" & Server.Mappath("/INTRANET/GENERAL/COS/INFOS.MDB") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
Set connI = Server.CreateObject("ADODB.Connection")
connI.Open DSN_BASE
 
SQLI = "SELECT Max(indice) AS MaxDeindice FROM pages"
Set RSI = Server.CreateObject("ADODB.Recordset")
RSI.Open SQLI, connI
 
dim indice
indice= RSI("MaxDeindice")
%>
 
<%
sqlservI="select * from pages where indice="&indice
set rstAff3I=conn.Execute(sqlservI)
%>
 
<TABLE>
<tr>
<td colspan=2><font color="#0066cc"><u><b>Dernière saisie des marchés en cours</b></u></font></td>
</tr>
<TR>
<td bgcolor="#FFFFBB"><%=rstAff3I("date")%></td>
<td bgcolor="#FFFFBB"><%=rstAff3I("titre")%></td>
</TR>
</TABLE>
 
 
<%
 
RSI.Close : Set RSI = nothing
rstAff3I.Close : Set rstAff3I = nothing
connI.close
%>
 
</body>
</html>

Si je mets les 2 connexions ca plante
si je n'en met qu'une c bon
les 2 codes sont ok

**Immobilis** · 11/10/2006, 20h51

Salut,

Déjà pense à mettre "Option explicit" au début de chacune de tes pages et dis nous. Car tu déclares plusieurs fois les mm variables.

A+

**michelle1000** · 12/10/2006, 06h58

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
 
<html>
<!-- Date de création: 20/06/2006 -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Infos</title>
<meta name="description" content="">
<meta name="keywords" content="">
<meta name="author" content="michelle">
<meta name="generator" content="WebExpert 5">
</head>
 
<!-- DERNIER MARCHE EN COURS ENREGISTREES -->
<%
option explicit
dim indice
dim indiceI
%>
 
<%DSN_BASE = "DBQ=" & Server.Mappath("/intranet/admin/marches/gestionmarches.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open DSN_BASE
%>
 
<%
SQL = "SELECT Max(indice) AS MaxDeindice FROM encours"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, conn
 
indice= RS("MaxDeindice")
%>
 
<body bgcolor="#8ECCBE">
<font color="#ff0000"><b><u><div align="center">Infos</div></u></b></font>
<TABLE>
<tr>
<td><font color="#0066cc"><u><b>Pas de note de service</b></u></font></td>
</tr>
</table>
<%
sqlserv="select * from encours where indice="&indice
set rstAff3=conn.Execute(sqlserv)
%>
 
<TABLE>
<tr>
<td colspan=2><font color="#0066cc"><u><b>Dernière saisie des marchés en cours</b></u></font></td>
</tr>
<TR>
<td bgcolor="#FFFFBB"><%=rstAff3("objet")%></td>
<td bgcolor="#FFFFBB"><%=rstAff3("service")%></td>
</TR>
</TABLE>
<%
RS.Close : Set RS = nothing
rstAff3.Close : Set rstAff3 = nothing
conn.close
%>
 
<!-- NOTE DE SERVICE COS -->
<%
 
DSN_BASE = "DBQ=" & Server.Mappath("/INTRANET/GENERAL/COS/INFOS.MDB") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
Set connI = Server.CreateObject("ADODB.Connection")
connI.Open DSN_BASE
 
SQLI = "SELECT Max(indice) AS MaxDeindice FROM pages"
Set RSI = Server.CreateObject("ADODB.Recordset")
RSI.Open SQLI, connI
 
indiceI= RSI("MaxDeindice")
%>
 
<%
sqlservI="select * from pages where indice="&indiceI
set rstAff3I=connI.Execute(sqlservI)
%>
 
<TABLE>
<tr>
<td colspan=2><font color="#0066cc"><u><b>Dernière saisie des marchés en cours</b></u></font></td>
</tr>
<TR>
<td bgcolor="#FFFFBB"><%=rstAff3I("date")%></td>
<td bgcolor="#FFFFBB"><%=rstAff3I("titre")%></td>
</TR>
</TABLE>
 
<%
RSI.Close : Set RSI = nothing
rstAff3I.Close : Set rstAff3I = nothing
connI.close
%>
 
</body>
</html>

Bonjour,
J'ai ajouté Option explicit comme tu m'as dit mais toujours rien
j'ai changé le nom de variable indice en indiceI
Les 2 connexions fonctionnent si et seulement si une seule et sur la page si il y a les 2 ca plante.
merci pour votre aide

**pc75** · 12/10/2006, 08h24

Re,

Quand tu dis "ça plante" : Tu peux préciser (message d'erreur, N° de ligne, ...) ?

**Immobilis** · 13/10/2006, 00h45

Salut,

Il me semble tout de mm qu'il reste encore des erreurs. Quand tu dis que tu supprimes qqch. Tu supprimes quoi tout le paragraphe??
De plus, merci de porter ton attention sur ceci:

Code :

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

1
2
3
<%@ LANGUAGE="VBSCRIPT" CODEPAGE="1252"
Option explicit
%>

Ce sont les premières lignes que tu dois avoir dans ta page. Rien avant. Du coup tu devrais avoir bcp plus de déclarations de variables.

Une remarque encore, tu imbrique mal tes ouvertures et fermetures de connection et recordset. Fais attention à cela.

Bonne nuit.

peut on créer plusieurs connexion à des bases différentes dans une même page asp

ASP

Discussions similaires

Partager

Partager