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 :
Ensuite j'appelle la fonction depuis la page :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 %>
Mais voila que j'obtiens cette erreur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Je ne peux plus utiliser EOF, BOF, recordcount...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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'
Une idée ? Peut être qu'on ne peut tout simplement pas faire ça... (mais manifestement c'est possible en .net)
Partager