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.
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.
Bonjour,
A priori, je dirais OUI.
Mais montre nous ton code et dis nous où ça plante.
Si je mets les 2 connexions ca plante
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 n'en met qu'une c bon
les 2 codes sont ok
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+
Bonjour,
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>
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
Re,
Quand tu dis "ça plante" : Tu peux préciser (message d'erreur, N° de ligne, ...) ?
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:
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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 <%@ LANGUAGE="VBSCRIPT" CODEPAGE="1252" Option explicit %>
Une remarque encore, tu imbrique mal tes ouvertures et fermetures de connection et recordset. Fais attention à cela.
Bonne nuit.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager