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 -
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
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
Si quelqu'un sait m'aider, ça me ferait très plaisir!
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
Merci d'avance.
Partager