[ADO] Valeur Recordcount reste à -1
Bonjour,
Pour une recherche SQL en ADO que voici, j'obtiens bien des résultats, mais le RecordCount reste égale à -1 !!! Comment connaître le nombre de résultats alors ?
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Sub ADOOpenRecordset()
Dim cnn As New ADODB.Connection, rst As New ADODB.Recordset, fld As ADODB.Field
Dim mySQL As String
Dim nb_resultats, i As Integer
' Ouverture de la connexion
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\coucou.mdb;"
'Définition de la requête SQL
mySQL = "SELECT [Base].Prix FROM [Base] WHERE [Base].Réf LIKE '123%'"
' Ouverture du Recordset en défilement en avant, et en lecture seule
rst.Open mySQL, cnn, adOpenForwardOnly, adLockReadOnly
nb_resultats = rst.RecordCount
End Sub |
A+
Damsmut
