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?