Bonjour,

j'ai un bête (?) code VBA qui effectue une requête en base.
Quand j'exécute le SELECT avec SQL Server j'ai bien un résultat, en revanche en VBA/ADO sous Excel, j'ai "<BOF ou EOF est égal à True ou l'enregistrement actuel a été supprimé. L'opération demandée nécessite un enregistrement actuel.>" si j'essaye de lire le résultat.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim cnn As New ADODB.Connection
cnn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=" & bd & ";User ID= " & login & ";Password=" & mdp & ";Trusted_Connection=False"
 
    req_gr_id = "select GRP_ID from GROUPE where GRP_NOM = '" & entity & "'"
 
    Dim rs As New ADODB.Recordset
    If rs.State <> adStateClosed Then rs.Close
    rs.ActiveConnection = cnn
    rs.Open req_gr_id, cnn
    'rs.MoveFirst
 
    GrPeres = rs(0)
 
    rs.Close
D'ailleurs rs.RecordCount = -1 après exécution de cette requête.