Procédure pour remplir un Datagridview depuis une requête

Version imprimable

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:

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:

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?

16/09/2010, 13h43
Pol63
code étrange pour remplir un datagridview ...

sinon :
Code:

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

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:

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 !

16/09/2010, 16h49
Invité

@Pol63 :

Citation:

code étrange pour remplir un datagridview ...

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

Citation:

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 :D

@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 8O Sauriez-vous pourquoi?
16/09/2010, 17h43
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.
16/09/2010, 22h44
Invité

Pourrais tu me donner un exemple? J'ai cherché sur le net, mais je n'ai rien trouvé qui marche...:(
16/09/2010, 23h04
Pol63

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