Problème dans ma fonction Recherche

**hugnka** · 07/02/2013, 15h53

Salut tout le monde. En fait je développe un programme en vb.net constitué d'une base de données sql server Compact et dans ce projet,j'ai un formulaire Membre avec tous ses textbox et aussi un groupbox qui me permet de faire une recherche au cas ou il y aurait plusieurs enregistrements dans ma base de données.J'ai aussi des boutons de navigations(suivant,dernier,premier et précédent).Quand mon formulaire se lance pour la première fois et que je fais une recherche,il n'ya pas de soucis le résultat de ma recherche apparaît dans mes textbox.le problème qui se pose c'est que lorsque je lance mon formulaire et que je clique sur l'un des boutons de navigations et qu'ensuite je fais une recherche,il me dit que le membre recherché n'existe pas même si ce dernier existe.Je galère sur ce problème dépuis plusieurs jours d'où l'ouverture de cette discusion.Merci d'avance pour les éventuelles réponses.Voici les differents code concernés.

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
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: cette ligne de code charge les données dans la table 'EDAJCDataSet.Membre'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.MembreTableAdapter.Fill(Me.EDAJCDataSet.Membre)
        Timer1.Start()
 
        'ouverture de la connection(à partir du répertoire de l'application)
        conn = "Data Source = |DataDirectory|\EDAJC.sdf"
        cnx = New SqlCeConnection
        cnx.ConnectionString = conn
        ' Try
 
        'Try
        cnx.Open()
 
        ' Catch ex As SqlCeException
        'sql1 = "Select ID from Membre"
        sql = "select * from Membre"
        cmd = New SqlCeCommand(sql)
        'cmd = New SqlCeCommand(sql1)
        dta = New SqlCeDataAdapter(cmd)
        cmd.Connection() = cnx
 
        'chargement du DataSet à partir du DataAdapter                  
        dta.Fill(dts, "Membre")
 
        'chargement de la DataTable à partir du DataSet                 
        dtt = dts.Tables("Membre")
        DataGridView1.DataSource = dts.Tables("Membre")
        ' Finally
 
        '  End Try
 
        'si la table est vide alors
        If rownum > dtt.Rows.Count - 1 Then
 
            'désactivation des boutons pour éviter une erreur 
            'si la table est vide
            btnenregis.Enabled = True
 
            btnmodif.Enabled = False
            btnsuppr.Enabled = False
 
            'Me.Show()
            ' Me.Date_adheMaskedTextBox.Focus()
 
        Else
            'affichage des données dans les textbox 
            ' Me.IDMaskedTextBox.Text = dtt.Rows(rownum).Item("ID")
            If IsDBNull(dtt.Rows(rownum).Item("ID")) Then
                Me.IDMaskedTextBox.Text = ""
            Else
                Me.IDMaskedTextBox.Text = dtt.Rows(rownum).Item("ID")
            End If
            ' Me.Date_adheMaskedTextBox.Text = dtt.Rows(rownum).Item("date_adhe")
            If IsDBNull(dtt.Rows(rownum).Item("date_adhe")) Then
                Me.Date_adheMaskedTextBox.Text = Date_adheMaskedTextBox.Mask
            Else
                Me.Date_adheMaskedTextBox.Text = dtt.Rows(rownum).Item("date_adhe")
            End If
            'Me.NomTextBox.Text = dtt.Rows(rownum).Item("nom")
            If IsDBNull(dtt.Rows(rownum).Item("nom")) Then
                Me.NomTextBox.Text = ""
            Else
                Me.NomTextBox.Text = dtt.Rows(rownum).Item("nom")
            End If
            ' Me.PrenomTextBox.Text = dtt.Rows(rownum).Item("prenom")
            If IsDBNull(dtt.Rows(rownum).Item("prenom")) Then
                Me.PrenomTextBox.Text = ""
            Else
                Me.PrenomTextBox.Text = dtt.Rows(rownum).Item("prenom")
            End If
            'Me.Date_naissMaskedTextBox.Text = dtt.Rows(rownum).Item("date_naiss")
            If IsDBNull(dtt.Rows(rownum).Item("date_naiss")) Then
                Me.Date_naissMaskedTextBox.Text = Date_naissMaskedTextBox.Mask
            Else
                Me.Date_naissMaskedTextBox.Text = dtt.Rows(rownum).Item("date_naiss")
            End If
            ' Me.HabitationTextBox.Text = dtt.Rows(rownum).Item("habitation")
            If IsDBNull(dtt.Rows(rownum).Item("habitation")) Then
                Me.HabitationTextBox.Text = ""
            Else
                Me.HabitationTextBox.Text = dtt.Rows(rownum).Item("habitation")
            End If
            ' Me.SexeComboBox.Text = dtt.Rows(rownum).Item("sexe")
            If IsDBNull(dtt.Rows(rownum).Item("sexe")) Then
                Me.SexeComboBox.Text = ""
            Else
                Me.SexeComboBox.Text = dtt.Rows(rownum).Item("sexe")
            End If
            ' Me.PaysTextBox.Text = dtt.Rows(rownum).Item("pays")
            If IsDBNull(dtt.Rows(rownum).Item("pays")) Then
                Me.PaysTextBox.Text = ""
            Else
                Me.PaysTextBox.Text = dtt.Rows(rownum).Item("pays")
            End If
            '  Me.VilleTextBox.Text = dtt.Rows(rownum).Item("ville")
            If IsDBNull(dtt.Rows(rownum).Item("ville")) Then
                Me.VilleTextBox.Text = ""
            Else
                Me.VilleTextBox.Text = dtt.Rows(rownum).Item("ville")
            End If
            ' Me.Lang_parléeTextBox.Text = dtt.Rows(rownum).Item("lang_parlée")
            If IsDBNull(dtt.Rows(rownum).Item("lang_parlée")) Then
                Me.Lang_parléeTextBox.Text = ""
            Else
                Me.Lang_parléeTextBox.Text = dtt.Rows(rownum).Item("lang_parlée")
            End If
            ' Me.TelMaskedTextBox.Text = dtt.Rows(rownum).Item("tel")
            If IsDBNull(dtt.Rows(rownum).Item("tel")) Then
                Me.TelMaskedTextBox.Text = TelMaskedTextBox.Mask
 
            Else
                Me.TelMaskedTextBox.Text = dtt.Rows(rownum).Item("tel")
            End If
            ' Me.FormationTextBox.Text = dtt.Rows(rownum).Item("formation")
            If IsDBNull(dtt.Rows(rownum).Item("formation")) Then
                Me.FormationTextBox.Text = ""
            Else
                Me.FormationTextBox.Text = dtt.Rows(rownum).Item("formation")
            End If
            'Me.CelMaskedTextBox.Text = dtt.Rows(rownum).Item("cel")
            If IsDBNull(dtt.Rows(rownum).Item("cel")) Then
                Me.CelMaskedTextBox.Text = CelMaskedTextBox.Mask
 
            Else
                Me.CelMaskedTextBox.Text = dtt.Rows(rownum).Item("cel")
            End If
            ' Me.PermisComboBox.Text = dtt.Rows(rownum).Item("permis")
            If IsDBNull(dtt.Rows(rownum).Item("permis")) Then
                Me.PermisComboBox.Text = ""
            Else
                Me.PermisComboBox.Text = dtt.Rows(rownum).Item("permis")
            End If
            ' Me.Nbre_enfMaskedTextBox.Text = dtt.Rows(rownum).Item("nbre_enf")
            If IsDBNull(dtt.Rows(rownum).Item("nbre_enf")) Then
                Me.Nbre_enfMaskedTextBox.Text = ""
            Else
                Me.Nbre_enfMaskedTextBox.Text = dtt.Rows(rownum).Item("nbre_enf")
            End If
            ' Me.Type_membComboBox.Text = dtt.Rows(rownum).Item("type_memb")
            If IsDBNull(dtt.Rows(rownum).Item("type_memb")) Then
                Me.Type_membComboBox.Text = ""
            Else
                Me.Type_membComboBox.Text = dtt.Rows(rownum).Item("type_memb")
            End If
            ' Me.ProfessionTextBox.Text = dtt.Rows(rownum).Item("profession")
            If IsDBNull(dtt.Rows(rownum).Item("profession")) Then
                Me.ProfessionTextBox.Text = ""
            Else
                Me.ProfessionTextBox.Text = dtt.Rows(rownum).Item("profession")
            End If
            ' Me.Stat_maritalComboBox.Text = dtt.Rows(rownum).Item("stat_marital")
            If IsDBNull(dtt.Rows(rownum).Item("stat_marital")) Then
                Me.Stat_maritalComboBox.Text = ""
            Else
                Me.Stat_maritalComboBox.Text = dtt.Rows(rownum).Item("stat_marital")
            End If
            'Me.DepartemComboBox.Text = dtt.Rows(rownum).Item("departem")
            If IsDBNull(dtt.Rows(rownum).Item("departem")) Then
                Me.DepartemComboBox.Text = ""
            Else
                Me.DepartemComboBox.Text = dtt.Rows(rownum).Item("departem")
            End If
            'Me.RespoTextBox.Text = dtt.Rows(rownum).Item("respo")
            If IsDBNull(dtt.Rows(rownum).Item("respo")) Then
                Me.RespoTextBox.Text = ""
            Else
                Me.RespoTextBox.Text = dtt.Rows(rownum).Item("respo")
            End If
            ' Me.Autre_departemComboBox.Text = dtt.Rows(rownum).Item("autre_departem")
            If IsDBNull(dtt.Rows(rownum).Item("autre_departem")) Then
                Me.Autre_departemComboBox.Text = ""
            Else
                Me.Autre_departemComboBox.Text = dtt.Rows(rownum).Item("autre_departem")
            End If
            If IsDBNull(dtt.Rows(rownum).Item("quest")) Then
                Me.QuestComboBox.Text = ""
            Else
                Me.QuestComboBox.Text = dtt.Rows(rownum).Item("quest")
            End If
            If IsDBNull(dtt.Rows(rownum).Item("rep")) Then
                Me.ComboBox1.Text = ""
            Else
                Me.ComboBox1.Text = dtt.Rows(rownum).Item("rep")
            End If
            If IsDBNull(dtt.Rows(rownum).Item("appel")) Then
                Me.AppelComboBox.Text = ""
            Else
                Me.AppelComboBox.Text = dtt.Rows(rownum).Item("appel")
            End If
            If IsDBNull(dtt.Rows(rownum).Item("rep1")) Then
                Me.TextBoxAppel.Text = ""
            Else
                Me.TextBoxAppel.Text = dtt.Rows(rownum).Item("rep1")
            End If
            Dim c As Integer = dts.Tables("Membre").Rows.Count
            If c > 0 Then
                Dim bytBLOBData() As Byte = _
                dts.Tables("Membre").Rows(0)("photo")
                Dim stmBLOBData As New MemoryStream(bytBLOBData)
                PictureBox1.Image = Image.FromStream(stmBLOBData)
 
            End If
 
 
 
 
            btnenregis.Enabled = False
 
        End If
 
        btnrecher.Enabled = True
        btnsuppr.Enabled = True
        'cnx.Close()
        'dts.Clear()
    End Sub
 
 
 
 Private Sub btnrecher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnrecher.Click
        ' btnrecher.Enabled = True
        btnnouveau.Enabled = False
        btnenregis.Enabled = False
 
        'on vide le DataSet pour le charger avec
        'les données de la recherche
        dts.Clear()
 
        'si la case nom est cochée alors
        If radnom.Checked = True Then
 
            'création de la requête,exécution de la commande,
            'remplissage du DataAdapter,du DataSet et de la DataTable
            sql = "select* from Membre where nom = '" & Replace(Textrecher.Text, "'", "''") & "'"
            cmd = New SqlCeCommand(sql)
            dta = New SqlCeDataAdapter(cmd)
            cmd.Connection = cnx
            dta.Fill(dts, "Membre")
            dtt = dts.Tables("Membre")
 
            'si aucunes données existent pour ce nom alors
            If rownum > dtt.Rows.Count - 1 Then
                ' If dtt.Rows.Count > rownum + 1 Then '- 1 Then 'rownum - 1 
 
                Me.Textrecher.Text = ""
                ' Me.Textrecher.Focus(
                MessageBox.Show("Il n'existe aucunes données pour " & Textrecher.Text & "dans la base de données !", "Données inexistantes...", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
 
                '  btnenregis.Enabled = True
                Exit Sub
 
            Else
                ' MessageBox.Show("Il n'existe aucunes données pour " & Textrecher.Text & " dans la base de données !", "Données inexistantes...", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                'sinon afichage des données dans la Datagrid
                'et les textbox
                affichage_membre()
                DataGridView1.DataSource = dts.Tables("Membre")
                'affichage des données dans les textbox
                ' affichage_membre()
                btnpremier.Enabled = True
                btnprecedent.Enabled = True
                btnsuivant.Enabled = True
                btndernier.Enabled = True
 
 
                btnmodif.Enabled = True
                btnsuppr.Enabled = True
            End If
 
        ElseIf radpren.Checked = True Then
 
            'création de la requête,exécution de la commande,
            'remplissage du DataAdapter,du DataSet et de la DataTable
            sql = "select * from Membre where prenom = '" & Replace(Textrecher.Text, "'", "''") & "'"
            cmd = New SqlCeCommand(sql)
            dta = New SqlCeDataAdapter(cmd)
            cmd.Connection = cnx
            dta.Fill(dts, "Membre")
            dtt = dts.Tables("Membre")
 
            'si aucunes données existent pour ce nom alors
            If rownum > dtt.Rows.Count - 1 Then
 
                Me.Textrecher.Text = ""
                Me.Textrecher.Focus()
                MessageBox.Show("Il n'existe aucunes données pour ce prénom " & Textrecher.Text & " !", "Données inexistantes...", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Exit Sub
 
            Else
                DataGridView1.DataSource = dts.Tables("Membre")
                affichage_membre()
                btnpremier.Enabled = True
                btnprecedent.Enabled = True
                btnsuivant.Enabled = True
                btndernier.Enabled = True
 
 
                btnmodif.Enabled = True
                btnsuppr.Enabled = True
            End If
        ElseIf radmatr.Checked = True Then
 
            'création de la requête,exécution de la commande,
            'remplissage du DataAdapter,du DataSet et de la DataTable
            sql = "select * From Membre  where ID = '" & matrtext.Text & "'"
            cmd = New SqlCeCommand(sql)
            dta = New SqlCeDataAdapter(cmd)
            cmd.Connection = cnx
            dta.Fill(dts, "Membre")
            dtt = dts.Tables("Membre")
 
            'si aucunes données existent pour ce nom alors
            If rownum > dtt.Rows.Count - 1 Then
 
                Me.matrtext.Text = ""
                Me.matrtext.Focus()
                MessageBox.Show("Il n'existe aucunes données pour ce matricule " & matrtext.Text & " !", "Données inexistantes...", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Exit Sub
 
            Else
                'sinon afichage des données dans la Datagrid
                'et les textbox
                DataGridView1.DataSource = dts.Tables("Membre")
 
                affichage_membre()
            End If
 
        Else
 
            'aucune case n'est cochées donc
            MessageBox.Show("Vous devez spécifier un critère de recherche !", "Erreur dans la recherche du Membre...", MessageBoxButtons.OK, MessageBoxIcon.Information)
            btnpremier.Enabled = False
            btnprecedent.Enabled = False
            btnsuivant.Enabled = False
            btndernier.Enabled = False
 
 
            btnmodif.Enabled = False
            btnsuppr.Enabled = False
 
        End If
        DataGridView1.DataSource = dts.Tables("Membre")
        btnquitrecher.Enabled = True
    End Sub     
 
 
Private Sub btnsuivant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsuivant.Click
        'si fin du fichier ou table vide message et sortie de procédure
        If rownum = dtt.Rows.Count - 1 Or rownum > dtt.Rows.Count - 1 Then
 
            MessageBox.Show("Vous êtes sur le dernier enregistrement ou la table ne contient aucun enregistrement !", "Information...", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Exit Sub
 
        End If
 
        'aller à la ligne suivante
        rownum += 1
 
        'affichage des données dans les textbox
 
        defilement()
        btnmodif.Enabled = True
        btnsuppr.Enabled = True
        btnenregis.Enabled = False
 
    End Sub

**infosam76** · 07/02/2013, 22h04

Bonjour

A mon avis votre problème vient d'une mauvaise valeur dans :

Code :

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

1
2
 
rownum

Si vous faites une nouvelle recherche, il vaudrait mieux remettre automatiquement votre sélection sur la première ligne. Et donc ré initialiser la valeur de rownum.

Autre chose pour vos recherches regarder un peu du coté du DataView. Celui permet de charger toute les données correspondant à votre requête initiale (les données provenant donc du premier adapter.fill dans votre fonction load) et après d'appliquer l'équivalent d'une clause Where Sql mais sur le jeu de données en mémoire.

Petit exemple qui fait plus ou moins la même chose que votre code (avec DB access et un bouton suivant, ainsi qu'un bouton filtre mais avec un seul filtre pour l'exemple).

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
 
Imports EmData
Imports System.Data
Imports System.Data.OleDb
 
 
Public Class Form1
    Dim ds As DataSet
    Dim con As OleDbConnection
    Dim dv As DataView
 
    Private Sub OpenDb()
        con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & FileName )
 
        Try
            con.Open()
        Catch ex As Exception
            Throw ex
        End Try
    End Sub
 
    Private Sub CloseDb()
        Try
            If con.State = ConnectionState.Open Then
                con.Close()
            End If
        Catch ex As Exception
            Throw ex
        End Try
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            OpenDb()
 
            Dim cmd As New OleDbCommand("SELECT * FROM CATEGORIES")
            cmd.Connection = con
 
            Dim da As New OleDbDataAdapter(cmd)
 
            ds = New DataSet
            da.Fill(ds, "CATEGORIES")
 
            dv = New DataView(ds.Tables("CATEGORIES"))
 
            DataGridView1.DataSource = dv
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            dv.RowFilter = "LIBELLE LIKE '%Comédie%'"
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
 
    Private Sub btnSuivant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSuivant.Click
        'DataGridView1.SelectedRows
 
        If DataGridView1.SelectedRows.Count > 0 Then
            Dim Sel As DataGridViewRow = DataGridView1.SelectedRows(0)
 
            If Sel.Index < DataGridView1.RowCount - 1 Then
                DataGridView1.ClearSelection()
                DataGridView1.Rows(Sel.Index + 1).Selected = True
            Else
                MessageBox.Show("Vous êtes sur le dernier enregistrement ou la table ne contient aucun enregistrement !", "Information...", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        End If
    End Sub
End Class

**hugnka** · 07/02/2013, 22h30

Merci déjà pour la réponse.

[QUOTE]Bonjour

A mon avis votre problème vient d'une mauvaise valeur dans :

Code :

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

1
2
 
rownum

Si vous faites une nouvelle recherche, il vaudrait mieux remettre automatiquement votre sélection sur la première ligne. Et donc ré initialiser la valeur de rownum. [QUOTE]

En fait j'ai réfléchi sur ça mais à vrai dire je ne sais pas comment faire.

**hugnka** · 07/02/2013, 22h55

Merci le problème est résolu.Il fallait que je fasse

Code :

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

1
2
3
4
 dtt = dts.Tables("Membre")
            rownum = 0
            'si aucunes données existent pour ce nom alors
            If rownum > dtt.Rows.Count - 1 Then

pour que cela marche.

Problème dans ma fonction Recherche [Débutant]

VB.NET

Vue hybride

Discussions similaires

Partager

Partager