Bonjour,
J'ai créé une fonction pour récupérer mes données sur un serveur SQL :
Je fais appel à cette fonction de cette façon :
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 Public Function ADOSelectSQL(pStr_SQL As String) As ADODB.Recordset Dim iADO_Command As ADODB.Command On Error GoTo Erreur If Not TestConnection Then ADOInitConnection End If Set iADO_Command = New ADODB.Command iADO_Command.ActiveConnection = gADO_Connection iADO_Command.CommandText = pStr_SQL iADO_Command.CommandTimeout = 1500 Set ADOSelectSQL = iADO_Command.Execute(, , adCmdText) Exit Function 'Gestion d'erreur ... end function
La fonction est OK, j'ai bien des données dans le recordset ADOSelectSQL.
Code : Sélectionner tout - Visualiser dans une fenêtre à part set rst = ADOSelectSQL (LeSQL)
Par contre, dans le rst, j'ai plus rien...
Comprends pas.
Quelqu'un aurait-il une idée ?
Merci.
Partager