probleme recherche datagridview

**monsof** · 18/04/2010, 11h45

bonjour
j'essaye d'expliquer:
j'ai dans ma Base un table contenant 2 lignes
la 1ere est rempli, la 2eme contient des cellules vides
j'ai un combobox contenent les noms de colonnes de la table, un textbox pour taper le mot à rechercher
si je ne tape rien dans le textbox la ligne 2 ne s'affiche pas
voici le code:
view_adresse est le nom de ma datagridview:

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
 
    Private Sub Chercher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chercher.Click
        Select_Fichier()
        Dim user As String = ""
        If IsDBNull(TextBox1.Text) Then
            user = TextBox1.Text.ToString()
        End If
        Dim SQLStringSEARSH As String
        Dim objConnection As New OleDbConnection(ParamConnexion)
        Dim objDataAdapter As OleDbDataAdapter
        Dim objDataSet As New DataSet
        Dim objDataTable As DataTable
        Dim objDataRow As DataRow
        Dim LSTItems As ListViewItem
        Dim SUBItems As ListViewItem.ListViewSubItem
        Dim code As New Integer
        Dim colonne As String = ""
        Dim contenuCombo As String = "Prénom"
        If IsDBNull(cboRechercherDans.SelectedItem) Then
            contenuCombo = cboRechercherDans.SelectedItem.ToString()
        End If
        Select Case contenuCombo
            Case "Code"
                colonne = "codeclient"
            Case "Date d'ajout"
                colonne = "dateclient"
            Case "Nom"
                colonne = "nom"
            Case "Prénom"
                colonne = "prenom"
            Case "Adresse"
                colonne = "adresse"
            Case "GSM"
                colonne = "gsm"
            Case "Tél"
                colonne = "tel"
            Case "Raison sociale"
                colonne = "raison"
        End Select
        Console.WriteLine(colonne)
        'Commande pour lire dans la base de donnée la Table et met le en ordre ascendant par nom:
        SQLStringSEARSH = "SELECT * FROM TblClient WHERE " & colonne & " LIKE '%" & user & "%' ORDER BY codeclient"
        objConnection.Open()
        objDataAdapter = New OleDb.OleDbDataAdapter(SQLStringSEARSH, objConnection)
        objDataAdapter.Fill(objDataSet)
        '3.2) Affichage dans la listview:
        View_Adresse.Items.Clear()
        View_Adresse.BeginUpdate()
        'Répete chaque Table dans le DataSet collection.
        For Each objDataTable In objDataSet.Tables
            'Répete chaque ligne de la table
            For Each objDataRow In objDataTable.Rows
                LSTItems = View_Adresse.Items.Add(objDataRow("codeclient").ToString)
                If IsDBNull(objDataRow("dateclient")) Then
                    SUBItems = LSTItems.SubItems.Add("")
                Else
                    SUBItems = LSTItems.SubItems.Add(CDate(objDataRow("dateclient")).ToString("dd/MM/yyyy"))
                End If
                SUBItems = LSTItems.SubItems.Add(objDataRow("nom").ToString)
                SUBItems = LSTItems.SubItems.Add(objDataRow("prenom").ToString)
                SUBItems = LSTItems.SubItems.Add(objDataRow("adresse").ToString)
                SUBItems = LSTItems.SubItems.Add(objDataRow("gsm").ToString)
                SUBItems = LSTItems.SubItems.Add(objDataRow("tel").ToString)
                SUBItems = LSTItems.SubItems.Add(objDataRow("raison").ToString)
 
            Next
        Next
        ' Affiche le contenu au complet de View_Adresse:
        View_Adresse.EndUpdate()
        lblConnect.Text = "Connection réussi : " & View_Adresse.Items.Count & " Utilisateurs"
        'fermeture de la base:
        objConnection.Close()
    End Sub

**Sankasssss** · 18/04/2010, 12h59

donc,

Code :

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

1
2
3
       If IsDBNull(TextBox1.Text) Then
            user = TextBox1.Text.ToString()
        End If

C'est faut, on ne peut mettre de valeur dbnull dans un textbox, de plus si on pourrait, tu aurais un problème car le code tel qu'écrit pourrait être remplacer par :

Code :

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

user = DbNull

ce qui n'est pas très logique... ... donc à remplacer directement par :

Code :

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

user = TextBox1.Text

Pareil pour la logique du :

Code :

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

1
2
3
  If IsDBNull(cboRechercherDans.SelectedItem) Then
            contenuCombo = cboRechercherDans.SelectedItem.ToString()
        End If

Ensuite, pourquoi faire une boucle sur toutes les tables du dataSet alors que tu es sur qu'il n'y a qu'une seul table?
D'ailleurs, tu pourrais directement utiliser un dataTable vu que tu n'a qu'une table et donc aucune relation.

le code complet modifié :

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
 
    Private Sub Chercher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chercher.Click
        Select_Fichier()
        Dim user As String =  TextBox1.Text.ToString()
        Dim SQLStringSEARSH As String
        Dim objConnection As New OleDbConnection(ParamConnexion)
        Dim objDataAdapter As OleDbDataAdapter
        Dim objDataTable As New DataTable
        Dim objDataRow As DataRow
        Dim LSTItems As ListViewItem
        Dim SUBItems As ListViewItem.ListViewSubItem
        Dim code As New Integer
        Dim colonne As String = ""
        Dim contenuCombo As String = "Prénom"
        If not IcboRechercherDans.SelectedItem.toString = "" Then
            contenuCombo = cboRechercherDans.SelectedItem.ToString()
        End If
        Select Case contenuCombo
            Case "Code"
                colonne = "codeclient"
            Case "Date d'ajout"
                colonne = "dateclient"
            Case "Nom"
                colonne = "nom"
            Case "Prénom"
                colonne = "prenom"
            Case "Adresse"
                colonne = "adresse"
            Case "GSM"
                colonne = "gsm"
            Case "Tél"
                colonne = "tel"
            Case "Raison sociale"
                colonne = "raison"
        End Select
        Console.WriteLine(colonne)
        'Commande pour lire dans la base de donnée la Table et met le en ordre ascendant par nom:
        SQLStringSEARSH = "SELECT * FROM TblClient WHERE " & colonne & " LIKE '%" & user & "%' ORDER BY codeclient"
        objConnection.Open()
        objDataAdapter = New OleDb.OleDbDataAdapter(SQLStringSEARSH, objConnection)
        objDataAdapter.Fill(objDataTable)
        '3.2) Affichage dans la listview:
        View_Adresse.Items.Clear()
        View_Adresse.BeginUpdate()
            'Répete chaque ligne de la table
            For Each objDataRow In objDataTable.Rows
                LSTItems = View_Adresse.Items.Add(objDataRow("codeclient").ToString)
                If IsDBNull(objDataRow("dateclient")) Then
                    SUBItems = LSTItems.SubItems.Add("")
                Else
                    SUBItems = LSTItems.SubItems.Add(CDate(objDataRow("dateclient")).ToString("dd/MM/yyyy"))
                End If
                SUBItems = LSTItems.SubItems.Add(objDataRow("nom").ToString)
                SUBItems = LSTItems.SubItems.Add(objDataRow("prenom").ToString)
                SUBItems = LSTItems.SubItems.Add(objDataRow("adresse").ToString)
                SUBItems = LSTItems.SubItems.Add(objDataRow("gsm").ToString)
                SUBItems = LSTItems.SubItems.Add(objDataRow("tel").ToString)
                SUBItems = LSTItems.SubItems.Add(objDataRow("raison").ToString)
 
            Next
 
        ' Affiche le contenu au complet de View_Adresse:
        View_Adresse.EndUpdate()
        lblConnect.Text = "Connection réussi : " & View_Adresse.Items.Count & " Utilisateurs"
        'fermeture de la base:
        objConnection.Close()
    End Sub

P.S. : Pourquoi ne pas utiliser un dataGridView plutot qu'un list? (LSTItems) tu aurais bien plus facile d'afficher ton résultat (DGV.dataSource = MonDataTable)

**monsof** · 18/04/2010, 13h22

Merci Sankasssss pour votre aide
la ligne contenent des cellules vide ne s'affiche pas. donc j'ai ajouté

Code :

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

1
2
3
4
5
6
        'Commande pour lire dans la base de donnée la Table et met le en ordre ascendant par nom:
        If user = "" Then
            SQLStringSEARSH = "SELECT * FROM TblClient ORDER BY codeclient"
        Else
            SQLStringSEARSH = "SELECT * FROM TblClient WHERE " & colonne & " LIKE '%" & user & "%' ORDER BY codeclient"
        End If

ça marche bien pour le moment

Mo principeau probleme est que j'ai travaillé avec dataset mais j'ai trouvé difficulté dans la recherche.

**monsof** · 18/04/2010, 13h35

pouvez vous m'expliquez :
P.S. : Pourquoi ne pas utiliser un dataGridView plutot qu'un list? (LSTItems) tu aurais bien plus facile d'afficher ton résultat (DGV.dataSource = MonDataTable)

**Sankasssss** · 18/04/2010, 13h58

Tu pourrais remplacer cette partie de code :

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
'3.2) Affichage dans la listview:
        View_Adresse.Items.Clear()
        View_Adresse.BeginUpdate()
            'Répete chaque ligne de la table
            For Each objDataRow In objDataTable.Rows
                LSTItems = View_Adresse.Items.Add(objDataRow("codeclient").ToString)
                If IsDBNull(objDataRow("dateclient")) Then
                    SUBItems = LSTItems.SubItems.Add("")
                Else
                    SUBItems = LSTItems.SubItems.Add(CDate(objDataRow("dateclient")).ToString("dd/MM/yyyy"))
                End If
                SUBItems = LSTItems.SubItems.Add(objDataRow("nom").ToString)
                SUBItems = LSTItems.SubItems.Add(objDataRow("prenom").ToString)
                SUBItems = LSTItems.SubItems.Add(objDataRow("adresse").ToString)
                SUBItems = LSTItems.SubItems.Add(objDataRow("gsm").ToString)
                SUBItems = LSTItems.SubItems.Add(objDataRow("tel").ToString)
                SUBItems = LSTItems.SubItems.Add(objDataRow("raison").ToString)
 
            Next
 
        ' Affiche le contenu au complet de View_Adresse:
        View_Adresse.EndUpdate()

Qui, si j'ai bien compris, te sert à afficher les résultat de ta requête dans une liste par :

Code :

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

DGV.dataSource = objDataTable

où DGV est ton datagridview.
Le résultat est le même en plus simple...

**monsof** · 18/04/2010, 14h41

Merci Sankasssss pour votre aide
j'ai vraiment trouvé la solution du probleme principal (afficher le résultat de la recherche dans le même DGV
j'explique
j'avait un DGV (TblClientDataGridView) dans Form1 lié à la base access mais je ne pouvait pas afficher le résultat de la recherche dans ce même DGV
alors j'ai procédé à afficher ce résultat dans un autres formulaire donc un autre tableau (View_Adresse)
Alors dans le deuxieme formulaire j'ai mis le code suivant:

Code :

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

1
2
3
        objDataAdapter = New OleDb.OleDbDataAdapter(SQLStringSEARSH, objConnection)
        objDataAdapter.Fill(objDataTable)
        Form1.TblClientDataGridView.DataSource = objDataTable

merci

**Sankasssss** · 18/04/2010, 14h55

De rein, content que tu aie trouvé une solution, pense à mettre le sujet en résolu en cliquant en bas de la page sur

probleme recherche datagridview

VB.NET

Discussions similaires

Partager

Partager