Discussion :

[Wend-Yam]

Bonsoir,

J'ai un soucis dans le parcours d'un objet dataTable
Je vous présente le code.

Je dois chercher dans une base de données Access et afficher des lignes dont les dates sont comprises entre deux dates spécifiées...

J'ai récupérée les deux dates "tempdebut et tempfin"

Le bout de code devant le faire

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
 
 
        NumLigneBD = 0
 
        While ((ObjetDataTable.Rows(NumLigneBD).Item("HeureCapture").CompareTo(tempdebut) < 0) AndAlso (NumLigneBD < ObjetDataTable.Rows.Count - 1))
            NumLigneBD += 1
        End While
 
        While ((ObjetDataTable.Rows(NumLigneBD).Item("HeureCapture").CompareTo(tempfin) < 0) AndAlso (NumLigneBD < ObjetDataTable.Rows.Count - 1))
            'MsgBox(ObjetDataTable.Rows.Item(NumLigneBD).Item("HeureCapture"))
            'MsgBox(tempfin)
            ListContenuArchive.Items.Add(NumLigneBD)
            ListContenuArchive.Items.Add(ObjetDataTable.Rows(NumLigneBD).Item("NumCapture"))
            ListContenuArchive.Items.Add(ObjetDataTable.Rows(NumLigneBD).Item("HeureCapture").ToShortDateString & "    " & ObjetDataTable.Rows(NumLigneBD).Item("HeureCapture").ToLongTimeString)
            NumLigneBD += 1
            'MsgBox(NumLigneBD)
        End While

J'ai fait ces affichages ci-dessous just pour repérer mon erreur

Code :

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

1
2
3
 
ListContenuArchive.Items.Add(NumLigneBD)
            ListContenuArchive.Items.Add(ObjetDataTable.Rows(NumLigneBD).Item("NumCapture"))

Je me rends compte que le NumCapture affiché qui est la clé primaire de ma table s'incrémente en fonction l'incrément de NumLigneBD pour les premières lignes et après il repart à une valeur inférieure que je ne comprends pas.

Je remarque aussi que ObjetDataTable.Rows(0).Item("NumCapture") n'est pas le premier élément de ma base de données.

[Sankasssss]

Hello, tu dis :

Je remarque aussi que ObjetDataTable.Rows(0).Item("NumCapture") n'est pas le premier élément de ma base de données.

mais ça dépend de ta requête sur la bd, as tu fais une sélection particulière?
as tu fais un order by?

et concernant :

Je dois chercher dans une base de données Access et afficher des lignes dont les dates sont comprises entre deux dates spécifiées...

Pourquoi ne pas faire ca dans la requête?

[tomlev]

Pas la peine de réinventer la roue, ce que tu cherches à faire existe déjà :

Code :

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

1
2
3
4
5
6
7
Dim sDebut As String = tempdebut.ToString("#M/d/y hh:mm#")
Dim sFin As String = tempfin.ToString("#M/d/y hh:mm#")
Dim filter As String = String.Format("HeureCapture >= {0} AND HeureCapture <= {1}", sDebut, sFin)
Dim rows As DataRow() = ObjetDataTable.Select(filter)
For Each row As DataRow In rows
    ...
Next

[Wend-Yam]

Merci Sankasssss!
c'est réglé effectivement!
je me disais que le Datatable contiendrait les données comme affichées dans access donc j'avais pas pensé à la requête SQL.

TOMLEY au fait c'est un exercice d'école! je suis encore étudiant moi! donc je suis obligé quoi!