probleme recherche datagridview

Version imprimable

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:

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

donc,

Code:

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:

user = DbNull

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

Code:

user = TextBox1.Text

Pareil pour la logique du :

Code:

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:

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)

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

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.

18/04/2010, 13h35
monsof

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)

Tu pourrais remplacer cette partie de code :

Code:

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:

DGV.dataSource = objDataTable

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

18/04/2010, 14h41
monsof
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:

1 2 3 objDataAdapter = New OleDb.OleDbDataAdapter(SQLStringSEARSH, objConnection) objDataAdapter.Fill(objDataTable) Form1.TblClientDataGridView.DataSource = objDataTable
merci
18/04/2010, 14h55
Sankasssss

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