Inclure variable de connexion à partir fichier [Résolu]

[patbeautifulday1]

Salut

Je mets une base access en ligne grâce à des pages web. Je me connecte sans problème à ma base. Cependant je veux enregistrer les scripts de connexion / déconnexion dans un fichier externe, que j'insère par un "#include file =..."
voici le contenu de ce fichier :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
<%
   <%
	public sub connexion()
	dim cnn
	dim strconnect
	style = "fonce"
	' Vérifier qu'une référence a bien été transmise
	strconnect = "DSN=tecno"
	set cnn = Server.CreateObject("ADODB.Connection")
	cnn.Open strconnect
	Response.Write "connexion établie avec la base de données TECNOMA...<br>"
	end sub
 
	public sub fermerconnexion()
		cnn.close
		set cnn = nothing
	end sub
 
 
%>

La connexion se fait, cependant j'ai besoin de la variable cnn pour créer des Recordset dans mes pages de destination. Comment faire pour l'exporter ? J'ai pensé à faire non une procédure mais une fonction, mais comment la déclarer : quel est le type de cette variable cnn ?

Merci

[roro06]

Bonjour

Comme ton script le montre bien, cnn n'est pas une variable, mais un objet ("adodb.connection" pour etre précis)

Si je comprends bien ta question, tu veux utiliser ton objet cnn dans toutes les pages de ton site, en incluant le fichier que tu montres par un #include. "Ca marchera pas !" :
raison première, tes variables cnn et strConnect sont définies dans ta procédure, elle ne peuvent donc être connues que de celle-ci.

solution :
dim cnn
dim strconnect

public sub connexion()
'blabla
end sub

2/ tu n'as en fait pas vraiment besoin de l'objet cnn, en faisant :
dim rs
set rs=server.createObject("adodb.recordset")
rs.ActiveConnection=strConnect
rs.source="select * ..."
rs.open

Il y a d'autres solutions, bien sur.

Cordialement

[patbeautifulday1]

Salut roro06

Merci de ta réponse. J'ai en effet pu ouvrir un recordset en appelant ma fonction dans le fichier connexion.asp :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
dim cnn
	dim strconnect
 
	function connexion()
	style = "fonce"
	' Vérifier qu'une référence a bien été transmise
	strconnect = "DSN=tecno"
	set cnn = Server.CreateObject("ADODB.Connection")
	cnn.Open strconnect
	'Response.Write "connexion établie avec la base de données TECNOMA...<br>"
	'Response.Write cnn
	connexion = cnn
	end function
 
	public sub fermerconnexion()
		cnn.close
		set cnn = nothing
	end sub

Je les ouvre en appelant la fonction:

Code :

rst.Open strsql, connexion, 3, 3

Le problème c'est que maintenant c'est ma procédure fermerconnexion() qui ne marche pas, à la fin de mes scripts dans mes pages.

[roro06]

quel message as tu ?