Affichage de seulement 5 derniers enregistrements de ma table
1 réponse
Shirley
Salut =E0 tous,
Hier j'ai pos=E9 une question mais les solutions que j'ai eu=20
ne marchent pas.
Je travaille sur une base en Access: j'ai une table de 100=20
enregistrements mais je voudrais seulement voir afficher=20
les 5 derniers enregistrements de cette table que j'ai mis=20
dans un sous-formulaire en mode feuille de donn=E9e .=20
Comment il faut faire?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Hervé
Salut Shirley, Avec ADO, cocher la référence : Microsoft ActiveX Data Objects 2.5 Library (ou autre) :
Private Sub ConnecterBase(ConnectBD As ADODB.Connection, _ Optional Rs)
Set ConnectBD = New ADODB.Connection Set Rs = New ADODB.Recordset
With ConnectBD .Provider = "Microsoft.Jet.OLEDB.4.0" 'ici changer le chemin de la base .ConnectionString = "D:MaBase.mdb" .Open End With
End Sub
Private Sub LireTable() Dim ConnectBD As ADODB.Connection Dim Rs As ADODB.Recordset Dim Champ As ADODB.Field Dim I As Integer
ConnecterBase ConnectBD, Rs
With Rs .CursorType = 1 .LockType = 3 'toute la table doit être retournée 'adapter le nom de la table .Open "SELECT * FROM MaTable", ConnectBD 'se déplace sur le cinquième avant la fin .Move .RecordCount - 5, 1 'juste pour l'exemple : Do While Not .EOF For Each Champ In .Fields Debug.Print Champ.Name Debug.Print Champ.Value Next .MoveNext Loop End With
ConnectBD.Close
Set ConnectBD = Nothing Set Rs = Nothing Set Champ = Nothing End Sub
Hervé.
"Shirley" a écrit dans le message news: 546d01c4811b$de35bba0$ Salut à tous,
Hier j'ai posé une question mais les solutions que j'ai eu ne marchent pas.
Je travaille sur une base en Access: j'ai une table de 100 enregistrements mais je voudrais seulement voir afficher les 5 derniers enregistrements de cette table que j'ai mis dans un sous-formulaire en mode feuille de donnée . Comment il faut faire?
Merci pour vos solutions. Shirley
Salut Shirley,
Avec ADO, cocher la référence : Microsoft ActiveX Data Objects 2.5 Library
(ou autre) :
Private Sub ConnecterBase(ConnectBD As ADODB.Connection, _
Optional Rs)
Set ConnectBD = New ADODB.Connection
Set Rs = New ADODB.Recordset
With ConnectBD
.Provider = "Microsoft.Jet.OLEDB.4.0"
'ici changer le chemin de la base
.ConnectionString = "D:MaBase.mdb"
.Open
End With
End Sub
Private Sub LireTable()
Dim ConnectBD As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Champ As ADODB.Field
Dim I As Integer
ConnecterBase ConnectBD, Rs
With Rs
.CursorType = 1
.LockType = 3
'toute la table doit être retournée
'adapter le nom de la table
.Open "SELECT * FROM MaTable", ConnectBD
'se déplace sur le cinquième avant la fin
.Move .RecordCount - 5, 1
'juste pour l'exemple :
Do While Not .EOF
For Each Champ In .Fields
Debug.Print Champ.Name
Debug.Print Champ.Value
Next
.MoveNext
Loop
End With
ConnectBD.Close
Set ConnectBD = Nothing
Set Rs = Nothing
Set Champ = Nothing
End Sub
Hervé.
"Shirley" <shirley.cateaux@mpsa.com> a écrit dans le message news:
546d01c4811b$de35bba0$a301280a@phx.gbl...
Salut à tous,
Hier j'ai posé une question mais les solutions que j'ai eu
ne marchent pas.
Je travaille sur une base en Access: j'ai une table de 100
enregistrements mais je voudrais seulement voir afficher
les 5 derniers enregistrements de cette table que j'ai mis
dans un sous-formulaire en mode feuille de donnée .
Comment il faut faire?
Salut Shirley, Avec ADO, cocher la référence : Microsoft ActiveX Data Objects 2.5 Library (ou autre) :
Private Sub ConnecterBase(ConnectBD As ADODB.Connection, _ Optional Rs)
Set ConnectBD = New ADODB.Connection Set Rs = New ADODB.Recordset
With ConnectBD .Provider = "Microsoft.Jet.OLEDB.4.0" 'ici changer le chemin de la base .ConnectionString = "D:MaBase.mdb" .Open End With
End Sub
Private Sub LireTable() Dim ConnectBD As ADODB.Connection Dim Rs As ADODB.Recordset Dim Champ As ADODB.Field Dim I As Integer
ConnecterBase ConnectBD, Rs
With Rs .CursorType = 1 .LockType = 3 'toute la table doit être retournée 'adapter le nom de la table .Open "SELECT * FROM MaTable", ConnectBD 'se déplace sur le cinquième avant la fin .Move .RecordCount - 5, 1 'juste pour l'exemple : Do While Not .EOF For Each Champ In .Fields Debug.Print Champ.Name Debug.Print Champ.Value Next .MoveNext Loop End With
ConnectBD.Close
Set ConnectBD = Nothing Set Rs = Nothing Set Champ = Nothing End Sub
Hervé.
"Shirley" a écrit dans le message news: 546d01c4811b$de35bba0$ Salut à tous,
Hier j'ai posé une question mais les solutions que j'ai eu ne marchent pas.
Je travaille sur une base en Access: j'ai une table de 100 enregistrements mais je voudrais seulement voir afficher les 5 derniers enregistrements de cette table que j'ai mis dans un sous-formulaire en mode feuille de donnée . Comment il faut faire?