Bonjour,

Voilà ce que je désire faire :

Soit une base qui contient une table nommée hlppairs. Dans cette table, 2 colonnes : utilise et numero

la colonne utilise contient que des N et un seul O (comme Oscar)
la colonne numero : des numeros uniques.

Lors de l'action sur un bouton, je veux mettre un N à la place du O, puis mettre un O sur la ligne suivante à la place du N
De plus lorsque le O se trouve sur la dernière ligne, je veux remonter ce O à la première.

En bref : déplacer ce O d'une ligne et le remonter à la première s'il se trouve à la dernière.

Le code suivant (merci Philippe Laserre) modifie la première ligne : comment faire pour la suite ?

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
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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        'Ouverture
 
        'Initialisation de la chaîne de paramètres pour la connexion
 
        strConn = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\eric\Mes documents\Visual Studio 2005\Projects\numsdm\numsdm\Database1.mdf;Integrated Security=True;User Instance=True"
 
        'Initialisation de la chaîne contenant l'instruction SQL
 
        strSql = "SELECT * FROM hlppairs where utilise ='O' "
 
        'Instanciation d'un Objet Connexion
 
        ObjetConnection = New SqlConnection()
 
        'Donner à la propriété ConnectionString les paramètres de connexion
 
        ObjetConnection.ConnectionString = strConn
 
        'Ouvrir la connexion
 
        ObjetConnection.Open()
 
        'Instancier un objet Commande
 
        ObjetCommand = New SqlCommand(strSql)
 
        'Instancier un objet Adapter
 
        ObjetDataAdapter = New SqlDataAdapter(ObjetCommand)
 
        'initialiser l'objet Command
 
        ObjetCommand.Connection() = ObjetConnection
 
        'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
 
        ObjetDataAdapter.Fill(ObjetDataSet, "hlppairs")
 
        'Mettre dans un Objet DataTable une table du DataSet
 
        ObjetDataTable = ObjetDataSet.Tables("hlppairs")
 
 
        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
 
        ' ObjetTable.Rows(Numéro de lignes).Item( Nom de colonne) donne le contenu d'un champ dans une ligne donnée
        Dim i As Integer
        For i = 0 To ObjetDataTable.Rows.Count - 1
            MessageBox.Show(ObjetDataTable.Rows(RowNumber).Item("numero").ToString)
            ' Extraire l'enregistrement courant
 
            ObjetDataRow = ObjetDataSet.Tables("hlppairs").Rows(RowNumber)
            'Modifier les valeurs des champs en  récupérant le contenu des TextBox
            ObjetDataRow("utilise") = "N"
        Next
 
        'Pour modifier les valeurs changées dans le DataAdapter
        ObjetCommandBuilder = New SqlCommandBuilder(ObjetDataAdapter)
        'Mise à jour
 
        ObjetDataAdapter.Update(ObjetDataSet, "hlppairs")
 
 
        'On vide le DataSet et on le 'recharge' de nouveau.
 
        ObjetDataSet.Clear()
 
        ObjetDataAdapter.Fill(ObjetDataSet, "hlppairs")
 
        ObjetDataTable = ObjetDataSet.Tables("hlppairs")
 
 
        'Fermer
 
        'Objet connectée
 
        ObjetConnection = Nothing
 
        ObjetCommand = Nothing
 
        ObjetDataAdapter = Nothing
 
        'Objet déconnectée 
 
        ObjetDataSet = Nothing
 
        ObjetDataTable = Nothing
 
        ObjetDataRow = Nothing
 
    End Sub
merci de votre aide

eric

Débutant qui n'en veut !