Mettre une requete SQL dans une fonction [Résolu]

[yenna]

Bonjour,

J'aimerais écrire une fonction qui execute une requete passée en argument.
L'objectif c'est d'éviter de réécrire à chaque fois les chaines de connexion.

Ma fonction :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
<%
function ExecuteSqlServer(sql) ' Pour les requêtes de sélection
 
	dim SqlConn : set SqlConn = Server.CreateObject("ADODB.Connection")
	SqlConn.Open Application("DataBase"), Application("DBLogin"), Application("DBPwd")
	dim rs : set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open sql, SqlConn, 3, 1 ' adOpenStatic, adLockReadOnly
	ExecuteSqlServer = rs
end function
 
%>

Ensuite j'appelle la fonction depuis la page :

Code :

1
2
3
4
5
6
7
8
9
10
11
 
Dim MonRS2
 
sSQL = "SELECT * FROM mabase;"
set MonRS2= ExecuteSqlServer(sSQl)
While not (rsMonRS2.eof OR MonRS2.Bof)
	Response.Write MonRS2("Nom") & "<br>" & vbcrlf
	MonRS2.MoveNext
Wend
MonRS2.Close
Set MonRS2= Nothing

Mais voila que j'obtiens cette erreur :

Code :

1
2
3
Erreur d'exécution Microsoft VBScript error '800a01b6' 
 
Cet objet ne gère pas cette propriété ou cette méthode: 'EOF'

Je ne peux plus utiliser EOF, BOF, recordcount...

Une idée ? Peut être qu'on ne peut tout simplement pas faire ça... (mais manifestement c'est possible en .net)

[amar00]

Déjà ça m'étonne qu'il ne rale pas si lors du renvoi d'un objet par ta fonction tu n'emploies pas le mot clef set :

Code :

1
2
3
4
5
6
7
8
9
function ExecuteSqlServer(sql) ' Pour les requêtes de sélection
 
	dim SqlConn : set SqlConn = Server.CreateObject("ADODB.Connection")
	SqlConn.Open Application("DataBase"), Application("DBLogin"), Application("DBPwd")
	dim rs : set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open sql, SqlConn, 3, 1 ' adOpenStatic, adLockReadOnly
	set  ExecuteSqlServer = rs
end function

Ensuite peut être qu'avec le test rs.bof en moins ça marcherait mieux

Code :

1
2
3
4
 
While not (rsMonRS2.eof)
......
Wend

Enfin une dernière idée : déclarer explicitement dans le code que c'est un objet recordset qu'on va alimenter avec une fonction

Code :

1
2
3
4
5
 
Dim MonRS2 : set MonRS2 = Server.CreateObject("ADODB.Recordset")
.....
set MonRS2= ExecuteSqlServer(sSQl)
...

[pc75]

Bonjour,

Autre chose :

Code :

1
2
3
 
set MonRS2= ExecuteSqlServer(sSQl)
While not (rsMonRS2.eof OR MonRS2.Bof)

Tu initialises MonRS2
et tu testes rsMonRS2

Y a pas un truc là ?

[yenna]

Merci pour vos conseils, ca marche !!!