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 : 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
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