Discussion :

[Drowan]

Bonjour,

J'ai une erreur dans mon programme, j'ouvre une connection avec un BDD Access pour pouvoir y lire les données.
Et lorsque que je fais rst.movelast() il me retourne le message d'erreur suivant : "L'ensemble de lignes ne prend pas en charge les récupérations arrières"

Et je n'ai aucune idée de ce que cela signifie. Quelqu'un peut m'aider ?

extrait du code

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
 
Dim cnx As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim intNbRow As Integer
 
Try
            'connexion à la BDD
            cnx.Provider = "Microsoft.Ace.Oledb.12.0"
            cnx.ConnectionString = "C:\Users\vr\Documents\Visual Studio 2010\Projects\ExcelWorkbook1\Database11.accdb"
            cnx.Open()
            strReq = "SELECT N°, date_de_creation, createur, nb_de_page FROM comptes_rendus"
            rst.Open(strReq, cnx)
            rst.MoveLast()  'ligne qui plante!!
            intNbRow = rst.Fields(1).Value
 
Catch ex As Exception
            MsgBox("Erreur ; " & ex.Message)
End Try

[strikel]

salut,

tu as un problème de curseur sur ton recordset par défaut le curseur est défini en adOpenForwardOnly et donc tu ne peux faire q'un movenext.
Modifie ton code comme suit et ça règlera ton problème

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
            cnx.Open()
            strReq = "SELECT N°, date_de_creation, createur, nb_de_page FROM comptes_rendus"
            rst.CursorType = adOpenDynamic
            rst.Open(strReq, cnx)

et un conseil avant de faire ton movelast test si ton recordset n'est pas vide sinon plantage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if not rst.BOF and not rst.eof then rst.MoveLast()

[Drowan]

Super, c'était ça. Maintenant ça marche.
Merci bien.


J'ai juste une syntaxe un peu différente :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rst.CursorType = ADODB.CursorTypeEnum.adOpenDynamic

Si qqun sait pourquoi, je suis curieux de savoir.

[strikel]

cela revient au même juste que dans mon code, j'ai considéré que tu avais importé l'espace de nom ADODB

adOpenDynamic fait partie de l'énumération CursorTypeEnum inclus dans l'assembly ADODB

en espérant avoir répondu clairement à ta question