Discussion :

[Invité]

Bonjours à tous,
mon problème est le suivant : J'essaye maintenant depuis plusieurs jours de remplir un Datagridview avec des données que j’extraie de ma base de données à l'aide d'une procédure.

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
 Public Sub ProcPeuplerDtg(ByVal pRequete As String, ByVal pDataGridView As System.Windows.Forms.DataGridView, ByVal pTab As ArrayList)
        Dim Connexion As New SqlClient.SqlConnection
        ProcConnexion(Connexion)
        Try
            Dim Command As New SqlClient.SqlCommand(pRequete, Connexion)
            Dim SdrReq As SqlClient.SqlDataReader
            Dim i As Integer
            Dim ChaineTemp As String
            SdrReq = Command.ExecuteReader
            ChaineTemp = ""
            i = 0
            Do While SdrReq.Read()
                ChaineTemp = SdrReq(pTab(i)) & ", " & ChaineTemp
                i = i + 1
            Loop
            pDataGridView.Rows.Add(ChaineTemp)
            SdrReq.Close()
        Catch Probleme As Exception
            MessageBox.Show("L'erreur suivante a été rencontrée : " & Probleme.Message, "Erreur de connexion", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

Mais rien ne s'affiche dans mon Datagridview, j'ai juste les nom des colonnes.
J'ai vérifié ma requête, et elle me renvoi bien des résultats.
Et enfin, voici comment j'appelle ma procédure :

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
                ReqRech = "SELECT P.IdPers, NomPers, PrenomPers, NumRuePers, NomRuePers, CpPers, VillePers, TelPers, RaisonEntree, DateEntree, DateSortie, NumSecu FROM Personne P, Patient Pa WHERE P.IdPers = Pa.IdPers AND P.IdPers LIKE '%%' AND NomPers LIKE '%" & Me.TxtNom.Text & "%' AND PrenomPers LIKE '%" & Me.TxtPrenom.Text & "%' AND NumRuePers LIKE '%" & Me.TxtNumRue.Text & "%' AND NomRuePers LIKE '%" & Me.TxtNomRue.Text & "%' AND CpPers LIKE '%%' AND VillePers LIKE '%" & Me.TxtVille.Text & "%' AND TelPers LIKE '%%' AND RaisonEntree LIKE '%" & Me.TxtMotif.Text & "%' AND DateEntree LIKE '%" & Me.DtpEntree.Text & "%' AND DateSortie LIKE '%" & Me.DtpSortie.Text & "%' AND Pa.NumSecu LIKE '%%'"
 
                Dim TabCol As New ArrayList
                With TabCol
                    .Add("IdPers")
                    .Add("NomPers")
                    .Add("PrenomPers")
                    .Add("NumRuePers")
                    .Add("NomRuePers")
                    .Add("CpPers")
                    .Add("VillePers")
                    .Add("TelPers")
                    .Add("RaisonEntree")
                    .Add("DateEntree")
                    .Add("DateSortie")
                    .Add("NumSecu")
                End With
                ProcPeuplerDtg(ReqRech, Me.DtgResultat, TabCol)

Sauriez-vous pourquoi rien ne s'affiche?

[Pol63]

code étrange pour remplir un datagridview ...


sinon :

Code :

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

1
2
3
4
5
Do While SdrReq.Read()
    ChaineTemp = SdrReq(pTab(i)) & ", " & ChaineTemp
    i = i + 1
Loop
pDataGridView.Rows.Add(ChaineTemp)

le while .Read va bien lire toutes les lignes retournées par la requete
par contre à la fin de la boucle tu ajoutes une ligne (une seule au lieu d'une par tour de boucle) et n'ayant qu'un seul champ qui est à vue de nez une concaténation de toutes les colonnes

[Homo_Informaticus]

Bonjour,

j'ai eu la même problématique et je me suis résigné a développer une méthode qui permet de remplir un datagrid view jsute en placant celui ci et la requete en parametre :

Si cela peut t'aider :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Sub RemplitDataGridView(ByVal requete As String, ByVal dtgvcible As DataGridView, ByVal datatab As DataTable)
        Me._Command.Connection = 'saisir ici ton objet de connexion
        Dim MonDataAdapter As System.Data.Odbc.OdbcDataAdapter = New Odbc.OdbcDataAdapter(requete, Me._Connection)
        Dim Commandbuilder As System.Data.Odbc.OdbcCommandBuilder = New Odbc.OdbcCommandBuilder(MonDataAdapter)
        Dim Madatatable As DataTable = New DataTable
        MonDataAdapter.Fill(Madatatable)
        MonDataAdapter.Fill(datatab)
        Madatatable.Locale = System.Globalization.CultureInfo.InvariantCulture
        dtgvcible.DataSource = Madatatable
        dtgvcible.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
        Me._Connection.Close()
    End Sub

Me._connection appelle simplement un objet de type System.Data.Odbc.OdbcConnection

Mais pour ta SQLCommand il suffit d'adapter !

C'est très pratique car tu n'as plus qu'a appeler cette méthode à chaque fois !

[Invité]

@Pol63 :

code étrange pour remplir un datagridview ...

Les profs insistent pour que l'on fasse comme ça

par contre à la fin de la boucle tu ajoutes une ligne (une seule au lieu d'une par tour de boucle) et n'ayant qu'un seul champ qui est à vue de nez une concaténation de toutes les colonnes

En effet, je vais voir pour changer ça

@Homo_Informaticus : Merci de ton aide, mais j'ai peur de ne pas encore avoir le niveau pour bien comprendre ton code


EDIT : Après débogage, je me suis rendu compte que je ne rentais jamais dans la boucle Sauriez-vous pourquoi?

[methylene]

Au passage, tu pourrais peut-être utiliser un AddRange aussi ...

Il y a déjà beaucoup de lignes quand on code, donc si on peut faire plus concis, faut pas hésiter.

[Invité]

Pourrais tu me donner un exemple? J'ai cherché sur le net, mais je n'ai rien trouvé qui marche...

[Pol63]

je crois que ca mérite un petit
http://plasserre.developpez.com/cours/vb-net/