Bonjour à tous,

Je suis en Visual Studio 2012 et je programme bien en VB.NET.

J'utilise une base Access. Dans mon programme, j'utilise une requête pour remplir un DataTable avec les données d'une des tables de ma BD. Le DataTable est bien rempli. Ensuite je charge mon dataTable dans mon dataGrid. il m'affiche bien le nombre de ligne pour le nombre d'enregistrement dans ma table de ma BD mais aucune valeur n'est mise dans les cellules...

voici mon code :



- voici ma fonction pour faire ma requete -
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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Public Function Horaire_select_dtbl(Optional ByVal nbEnr As Int32 = 0, Optional ByVal num_seekP As String = Nothing) As DataTable
            '------------------------------------------------------------------------
            'Selection d'un/des  enregistrements pour la table Horaire
            '------------------------------------------------------------------------
            Dim nbTOP As String = ""
            Dim requete As String = ""
            Dim ds As New System.Data.DataSet
            Dim dataAdapter As System.Data.IDataAdapter = Nothing
 
            'Test des seek et initalisation si = nothing
 
            If num_seekP = Nothing Then num_seekP = seek
 
            MoDB.openConnection()                     'Connection à la DB
            retour_err = 0                  'Initialisation de la gestion d'erreur
            If nbEnr = 0 Then
                nbTOP = ""
            Else
                nbTOP = "TOP " & nbEnr
            End If
 
            Try
                Select Case nokey
 
                    Case 1
                        requete = "SELECT " & nbTOP & " * FROM   Horaire WHERE num  " & num_seekP & num & " ORDER BY num ASC"
                End Select
 
                dataAdapter = New System.Data.OleDb.OleDbDataAdapter(requete, MoDB._ObjetConnection)
 
                dataAdapter.Fill(ds)
                Return ds.Tables(0)
            Catch err_select As Exception '
                'MessageBox.Show(err_select.Message, "ERREUR DE SELECTION DANS Horaire", MessageBoxButtons.OK, MessageBoxIcon.Error)
                retour_err = 1          'Erreur physique
                Return Nothing
            End Try
            '===================================================================
        End Function
et j'utilise horaire_mdb._dtbl_Horaire = un dataTable et je la remplis par la fonction contenant ma requete
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
 
Public Sub alimenter_dgvRecapHoraire()
 
        With horaire_mdb
            ._num = FrmPrincipal.zlabNumUser.Text
            ._seek = "="
            ._nokey = 1
            ._dtbl_Horaire = .Horaire_select_dtbl()
        End With
 
 
        With FrmPrincipal
            .BindingSource1.DataSource = horaire_mdb._dtbl_Horaire
            .BindingNavigator1.BindingSource = .BindingSource1
            .dgvRecapHoraire.DataSource = .BindingSource1
        End With
 
 
 
    End Sub
Si quelqu'un sait m'aider, ça me ferait très plaisir!

Merci d'avance.