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

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.

11/10/2006, 13h05	#1
michelle1000 Candidat au titre de Membre du Club Inscription : octobre 2005 Messages : 28 Détails du profil Informations forums : Inscription : octobre 2005 Messages : 28 Points : 10 Points : 10	peut on créer plusieurs connexion à des bases différentes dans une même page asp 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.
	00

11/10/2006, 13h46	#2
pc75 Expert Confirmé Inscription : septembre 2004 Messages : 2 807 Détails du profil Informations personnelles : Âge : 56 Localisation : France, Paris (Île de France) Informations forums : Inscription : septembre 2004 Messages : 2 807 Points : 3 005 Points : 3 005	Bonjour, A priori, je dirais OUI. Mais montre nous ton code et dis nous où ça plante. __________________ Par principe, je ne réponds pas aux messages URGENT. Il n'y a pas de choses urgentes, il n'y a que des choses en retard. (un inconnu)
	00

11/10/2006, 20h51	#5
Immobilis Expert Confirmé Sénior Inscription : mars 2004 Messages : 5 849 Détails du profil Informations forums : Inscription : mars 2004 Messages : 5 849 Points : 5 965 Points : 5 965	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+ __________________ Twitter widget Minichat multicast UDP sous Mango Linq to SQL vs SQL vs Entity Framework C# Google Distance Matrix Import/export de données en ASP.Net, L'architecture multicouche, Internationalisation en ASP.Net
	00

12/10/2006, 08h24	#7
pc75 Expert Confirmé Inscription : septembre 2004 Messages : 2 807 Détails du profil Informations personnelles : Âge : 56 Localisation : France, Paris (Île de France) Informations forums : Inscription : septembre 2004 Messages : 2 807 Points : 3 005 Points : 3 005	Re, Quand tu dis "ça plante" : Tu peux préciser (message d'erreur, N° de ligne, ...) ? __________________ Par principe, je ne réponds pas aux messages URGENT. Il n'y a pas de choses urgentes, il n'y a que des choses en retard. (un inconnu)
	00

11/10/2006, 13h47	#3
Gwenn Membre éprouvé Inscription : septembre 2004 Messages : 368 Détails du profil Informations forums : Inscription : septembre 2004 Messages : 368 Points : 402 Points : 402	Bonjour, Oui c'est tout à fait possible
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email