Boucle sur table Acces

Bonjour

Est-il possible de faire une boucle sur une table Acces en OleDB comme en DAO avec Do until / Loop et move next

Merci pour vos réponses
JCM

Salut,

Oui c'est possible en utilisant un datatable. Après, tout dépend ce que fait la boucle...

Bonjour

merci pour ta réponse, j'ai une table MyTable avec 37 enregistrements
et trois champs : Ordre (de 1 à 37), IDenr, designation
Je veux faire une boucle du premier au dernier enregistrement (donc sur Ordre) pour changer les champs IDenr et designation.

Peux-tu me donner un exemple de code

Merci pour ta réponse
JCM

As-tu fait la connexion avec la base de données (Connexion, DataAdapter, DataSet)?

Un très bon cours si ce n'est pas fait: http://plasserre.developpez.com/cour...nnees2#LXVII-E

Merci, c'est effectivement un tres bon cours
J'ai pu faire une boucle sur ma table avec la commande SELECT
Je veux faire une boucle sur ma table pour modifier des enregistrements
Je fais une procédure avec SELECT et UPDATE
ou directement avec UPDATE

Tu comptes le nombre de ligne du datatable. A chaque boucle, tu récupères la ligne à modifier dans un datarow et tu modifies chaque champ. Ensuite, tu mets à jour la table de la BD.

Bonjour

Voici mon code, peux_tu me dire si il est bon ou s'il faut le modifier

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Sub BoucleSurTable()
        Using connexion As OleDbConnection = Me.DBConn
            'Objet Dataset
            Dim DSPageData As New DataSet
            'connection a la base de données
            Dim DBCommand As OleDbCommand
            'Numéro de la ligne en cours
            Dim RowNumber As Integer    'Numéro de l'enregistrement courant
            RowNumber = 0  'première ligne
            Dim NewNum As Integer = 0
            For i As Integer = 0 To Session("NbDansRubrique")
                NewNum = NewNum + 1
                Session("NewNumP") = NewNum
                DBCommand = New OleDbCommand("Select * From EssMenusTRAV Where IDmenu= ? and TypMenu=?" & " ORDER BY odre", DBConn)
                'objet DataAdapter
                Dim myOleDbDataAdapter As New OleDbDataAdapter(DBCommand)
                DBCommand.Parameters.AddWithValue("IDmenu", Session("IDmenu"))
                DBCommand.Parameters.AddWithValue("TypMenu", Session("Rubrique"))
                myOleDbDataAdapter.SelectCommand.Parameters("IDmenu").Value = Session("IDmenu")
                myOleDbDataAdapter.Fill(DSPageData, "VoirNb")
                'Mettre dans un Objet DataTable une table du DataSet
                Dim ObjetDataTable As DataTable
                ObjetDataTable = DSPageData.Tables("VoirNb")
                ' Déclaration Objet DataRow (ligne)
                If RowNumber < 0 Then Exit Sub
                'Lors de l'ouverture de la BD, s'il n'y a aucun enregistrement
                If RowNumber > ObjetDataTable.Rows.Count - 1 Then Exit Sub
                'contenu du champ dans la ligne donnée
                Dim LaDesignation = ObjetDataTable.Rows(RowNumber).Item("Designation").ToString
                Dim LeNumOrdre = ObjetDataTable.Rows(RowNumber).Item("odre").ToString
                Dim LIDplat As String = ObjetDataTable.Rows(RowNumber).Item("IDplat").ToString
                Session("LIDplat") = LIDplat
                ModifieNumP()
                RowNumber = RowNumber + 1
            Next
        End Using
    End Sub
    Sub ModifieNumP()
        Using connexion As OleDbConnection = Me.DBConn
            If Session("NewNumP") <= Session("NbDansRubrique") Then
                Dim VoirIDplat As String = Session("LIDplat")
                Dim NoirNewNum As Integer = Session("NewNumP")
                'objet DataAdapter
                Dim DBUpdate As New OleDbCommand
                DBUpdate.CommandText = "Update EssMenusTRAV set " _
                 & "NumP=@NumP" _
                 & " Where IDplat=@IDplat"
                Dim myOleDbDataAdapter As New OleDbDataAdapter(DBUpdate)
                DBUpdate.Parameters.AddWithValue("NumP", Session("NewNumP"))
                DBUpdate.Parameters.AddWithValue("IDplat", Session("LIDplat"))
                DBUpdate.Connection = DBConn
                DBUpdate.Connection.Open()
                DBUpdate.ExecuteNonQuery()
                DBConn.Close()
            End If
        End Using
    End Sub

Merci pour ton aide
JCM