Discussion :

[bb62]

Bonjour à tous,

Voici mon problème :

J'aimerai allez à l'avant dernier enregistrement d'une Table Access en VB6.

Est-ce que cela est possible?

Merci d'avance

[Megaxel]

Salut!
Heu, avant dernier selon quel critère? Tu as une clef primaire numérique? Une date?

[bouley]

salut bb62

Avec un recordset sur ta table

Si MonRecorset pas vide
MonRecordset.MoveLast
MonRecordset.MovePrevious

Enfin je ferais comme cela
@+

[valval]

salut
après avoir testé que le nombre d'enregistrement dans ton recordset (rs)est >=2

Code :

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

1
2
3
 
rs.movelast
rs.movepreview

[jacma]

Bonjour

Pourquoi "l'avant dernier"? C'est un simple exercice de style ou as tu une motivation particulière?

[bb62]

C'est bon, ça marche impect avec .movelast et .moveprevious.

Mais j'ai une question :

J'ai une equipe A, elle fait des matchs : Comment faire avec une requête trouver le dernier match de A?

Merci d'avance.

[Megaxel]

Par exemple: si tu fais ta requête avec un ORDER BY sur la date du match, le dernier match sera dans la dernière ligne de la réponse.

Edit: pour la façon d'écrire ça en VBA et SQL... Voir juste en dessous.

[sovo]

je ne connais pas tres bien la structure de tes tables mais voila un truc qui peut t'aider

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
'tout d'abord des hypothese sur tes champs et ta table
'soient Match   la table des match
'          equipe  une des equipes
'          date la date du match
 
'tu auras la requette suivante 
 
equip="A"
sql="select * from match where equipe = '" & equip & "' order by date"
 
rst.open sql,(...),(...),(...)
 
if rst.recordcount > 0 then rst.movelast

je croit que ca devrais marche. Sinon fait nous savoir.

[bb62]

C'est bon cela marche très bien.

Merci à tous.