Discussion :

[visualnotbasic]

Bonjour à tous... voila j'ai un petit problème :
L'instruction .movelast et .moveprevious me renvoi des message d'erreur :
Récupération arrière impossible et impossible d'effectuer cette action dans ce contexte .... Je n'arrive pas a trouver dou vient cette erreur Merci :

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
Option Explicit
Option Compare Binary
Dim file As String
Dim numauto As Integer
Dim ConnexBdd As New ADODB.Connection
Dim recordbdd As ADODB.Recordset
 
Private Sub Command1_Click()
Set recordbdd = New ADODB.Recordset
'Connection a la base access
ConnexBdd.provider = provider.Text
ConnexBdd.ConnectionString = src.Text
ConnexBdd.Open
etat.Caption = "Connected"
recordbdd.Open "SELECT * FROM tbl_Client", ConnexBdd
recordbdd.MoveFirst
recordbdd.MoveLast   <---- ERREUR

[ProgElecT]

existe t il plus d'un enregistrement ?, (RecordCount = 1), dans ce cas MoveLast engendre une erreur

Code :

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

1
2
3
recordbdd.Open "SELECT * FROM tbl_Client", ConnexBdd
recordbdd.MoveFirs
If recordbdd.RecordCount > 1 then recordbdd.MoveLast

[visualnotbasic]

Oui j'ai plus d'un enregistrement...

Jai rajouter un msgbox qui m'affiche le recordcount avant de faire le movelast... et la il me dit que le recordcount est a -1 !

C'est un problème avec la base de donnée?

[Le Pharaon]

Ajoute les paramètres curseurs et type de vérou

Code :

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

recordbdd.Open "SELECT * FROM..", ConnexBdd, adOpenKeyset, adLockOptimistic

[visualnotbasic]

YES MERCI beaucoup sa marche maintenant!