Discussion :

[kcin]

Bonjour à tous,

Est il possible de créer une sub permettant de fermer une connexion passer en paramètre ?

J'ai essayé en faisant ceci :

Code :

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

1
2
3
4
5
6
 
Sub FermetureBase(ByVal nombase) 'Ou avec ByRef
	nombase.close
	set nombase = nothing
	response.write "Fermeture OK<br>"
End Sub

Mais lors de l'exécution, il cherche l'objet nombase et non pas celui qui est passé en paramètre comme ici :

Code :

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

FermetureBase(ConnRef)

Donc existe un moyen de faire ce que je souhaite ? Merci.

[roro06]

Bonjour

VBscript ne connait pas ByVal (ni ByRef).

Code :

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

1
2
Sub FermetureBase(nombase) 'Ou avec ByRef

devrait suffire

[kcin]

C'est ce que j'ai fait au départ, mais voyant que çà fonctionnait pas, j'ai rajouté ByVal ou ByRef.

Si je reprend ce code :

Code :

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

1
2
3
4
5
6
 
Sub FermetureBase(nombase)
	nombase.close
	set nombase = nothing
	response.write "Fermeture OK<br>"
End Sub

Je viens de retester et çà à l'air de fonctionner >.> C'est à rien y comprendre... Peut être qu'à force de faire des tests, je me suis emmêlé les pinceaux >.> Bref.

Je reprends, quand je fais un response.write juste avant le .close j'ai ceci :

Code :

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

Provider=MSDASQL.1;Extended Properties="DBQ=D:\www\formation-arpaline\fpdb/baseref.mdb;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;"

Normal.

Le .close coupe la connexion et le = nothing supprime l'objet. Mais quand je refais un response.write juste derrière çà me donne ceci :

Code :

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

DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\www\formation-arpaline\fpdb/baseref.mdb

Et quand je fais un isobject, çà me retourne true alors que le nothing aurait dû tout casser, sauf si j'oublie une étape... Dans ce càs, je suis prêt à me faire botter le train ^^



EDIT : En dehors de la sub lorsque je fais ConnRef = null, çà me supprime tout, mais quand c'est dedans, çà plante car l'objet nombase existe pas. Alors pourquoi le .close et le = nothing fonctionne et pas le = null >.>