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.
D'ailleurs rs.RecordCount = -1 après exécution de cette requête.
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
Partager