none
Affichage dans un datagridview RRS feed

  • Question

  • Bonsoir,

    S.V.P.,Comment afficher les données voulues dans chaque colonne d'un datagridview.Je n'arrive pas  à le faire.Voici mon code :

     Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\Projet de mise a jour\Basededonnées\Edson80.mdb;") 'Définition de la connexion
            Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand() 'générer la connexion
                    Mycommand.CommandText = "SELECT Fi_Bordereau.F_numbord, Fi_Bordereau.F_numclib, Fi_Bordereau.F_nomclib, " & _
             "Fi_Bordereau.F_prenclib, Fi_Bordereau.F_libelPb, Fi_Bordereau.F_coutPb, " & _
              "Fi_Bordereau.F_numopb, Fi_Bordereau.F_nomopb, Fi_Bordereau.F_prenopb, " & _
              "Fi_Bordereau.F_Dateb,Fi_Bordereau.F_partAPb, Fi_Bordereau.F_partAssrPb, " & _
             "Fi_Bordereau.F_ModeRgltb, Fi_Bordereau.F_NomTierceb FROM Fi_Bordereau  WHERE Fi_Bordereau.F_Dateb Between #" & DateTimePickerCaissePF.Text & "# And #" & DateTimePickerCaissePD.Text & "#;"  'and Fi_Bordereau.F_numopb ='" & ComboCaisseop.Text & "' AND Fi_Bordereau.F_partAPb <> 0 ;"


            MyConnexion.Open()
            Dim Col0 As String 'déclérer un ensemble de ligne
            Dim Col1 As String 'déclérer un ensemble de ligne
            Dim Col2 As String 'déclérer un ensemble de ligne
            Dim Col3 As String 'déclérer un ensemble de ligne
            Dim Col4 As String 'déclérer un ensemble de ligne
            Dim Col5 As String 'déclérer un ensemble de ligne
            Dim Col6 As String 'déclérer un ensemble de ligne
            Dim Col7 As String 'déclérer un ensemble de ligne
            Dim Col8 As String 'déclérer un ensemble de ligne
            Dim Col9 As String 'déclérer un ensemble de ligne
            Dim Col10 As String 'déclérer un ensemble de ligne
            Dim Col11 As String 'déclérer un ensemble de ligne
            Dim Col12 As String 'déclérer un ensemble de ligne
            Dim Col13 As String 'déclérer un ensemble de ligne
            Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
            '----------------- Recherche de la donnée ----------------
            Do While myReader.Read()
            
                Col0 = myReader.GetString(0)
                Col1 = myReader.GetString(1)
                Col2 = myReader.GetString(2)
                Col3 = myReader.GetString(3)
                Col4 = myReader.GetString(4)
                Col5 = myReader.GetValue(5).ToString
                Col6 = myReader.GetString(6)
                Col7 = myReader.GetString(7)
                Col8 = myReader.GetString(8)
                Col9 = myReader.GetDateTime(9).ToShortDateString
                Col10 = myReader.GetValue(10).ToString
                Col11 = myReader.GetValue(11).ToString
                Col12 = myReader.GetString(12)
                Col13 = myReader.GetString(13) 'affiche la rubrique lue dans la zone liste
                DataGridView1.Rows.Add(Col0 + " " + Col1 + " " + Col2 + " " + Col3 + "" + Col4 + "" + Col5 + "" + Col6 + "" + Col7 + "" + Col8 + "" + Col9 + "" + Col10 + "" + Col11 + "" + Col12 + "" + Col13)
           
            Loop

    il ne marche pas comme je le souhaite.Il m'affiche les résultats dans une même colonne ce qui je ne veux pas. Aidez moi

    Cordialement

    lundi 21 juin 2010 17:04

Réponses

Toutes les réponses

  • Bonjour,

    Le plus simple est d'utiliser un OleDbAdapter et remplir un DataSet. Une fois le DataSet rempli, il suffit de l'affecter directement à votre DataGridView via la propriété DataSource.

    Pour plus d'informations : http://msdn.microsoft.com/fr-fr/library/system.data.oledb.oledbdataadapter(VS.80).aspx

    Cordialement


    Gilles TOURREAU - MVP C# - MCTS Windows Forms - Architecte .NET/Consultant/Formateur - http://gilles.tourreau.fr
    • Marqué comme réponse Alex Petrescu mercredi 23 juin 2010 14:16
    lundi 21 juin 2010 18:52
    Modérateur
  • Bonjour,

    voici le code que j'ai tapé et jusqu'a présent il marche :

     If Me.RadioButton_Oui.Checked = True Then
                Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\Projet de mise a jour\Basededonnées\Edson80.mdb;") 'Définition de la connexion
                Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand() 'générer la connexion
                Mycommand.CommandText = "SELECT Fi_Bordereau.F_numbord, Fi_Bordereau.F_numclib, Fi_Bordereau.F_nomclib, " & _
                                        "Fi_Bordereau.F_prenclib, Fi_Bordereau.F_libelPb, Fi_Bordereau.F_coutPb, " & _
                                        "Fi_Bordereau.F_partAPb, Fi_Bordereau.F_partAssrPb, " & _
                                        "Fi_Bordereau.F_NomTierceb, Fi_Bordereau.F_ModeRgltb,Fi_Bordereau.F_Dateb  FROM Fi_Bordereau  WHERE Fi_Bordereau.F_Dateb Between #" & DateTimePickerCaissePD.Text & "# And #" & DateTimePickerCaissePF.Text & "# and Fi_Bordereau.F_numopb ='" & ComboCaisseop.Text & "' AND Fi_Bordereau.F_partAPb <> 0 ;"
                MyConnexion.Open()
                Dim Col0 As String 'déclarer un ensemble de ligne
                Dim Col1 As String 'déclarer un ensemble de ligne
                Dim Col2 As String 'déclarer un ensemble de ligne
                Dim Col3 As String 'déclarer un ensemble de ligne
                Dim Col4 As String 'déclarer un ensemble de ligne
                Dim Col5 As String 'déclarer un ensemble de ligne
                Dim Col6 As String 'déclarer un ensemble de ligne
                Dim Col7 As String 'déclarer un ensemble de ligne
                Dim Col8 As String 'déclarer un ensemble de ligne
                Dim Col9 As String 'déclarer un ensemble de ligne
                Dim Col10 As String 'déclarer un ensemble de ligne
                Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()

                '----------------- Recherche de la donnée ----------------
                Do While myReader.Read()
                    Col0 = myReader.GetString(0)   'affiche la rubrique lue dans la zone liste
                    Col1 = myReader.GetString(1)
                    Col2 = myReader.GetString(2)
                    Col3 = myReader.GetString(3)
                    Col4 = myReader.GetString(4)
                    Col5 = myReader.GetValue(5).ToString
                    Col6 = myReader.GetValue(6).ToString
                    Col7 = myReader.GetValue(7).ToString
                    Col8 = myReader.GetString(8)
                    Col9 = myReader.GetString(9)
                    Col10 = myReader.GetDateTime(10).ToShortDateString
                    Me.DataGridViewAssure.Rows.Add(Col0, Col1, Col2, Col3, Col4, Col5, Col6, Col7, Col8, Col9, Col10)
                Loop

    Dans cette parie en gras je devais remplacer les + par des virgule.merci pour ton attention

    Cordialement

    jeudi 24 juin 2010 12:44