Modifier ligne + ligne suivante - VB.net + sql2005
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:
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 !
