Discussion :

[imanouch]

bonjour à tous les developpeurs, en fait j'ai un projet à réaliser qui consiste à faire une gestion de vols d'avion en vb.net et access, le probleme c'est que j'arrive pas à afficher le resultat d'une requete de selection sur un datagrideview meme si j'ai suivi les memes demarches que dans le tutoriel voila le code

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
con.Open()
        Dim DataSet11 As New DataSet()
        'Dim OleDbDataAdapter1 As New OleDb.OleDbDataAdapter()
        OleDbDataAdapter1.SelectCommand.Parameters("date_depart").Value = DateTimePicker1.Value()
        MsgBox("ok", MsgBoxStyle.Critical)
        DataSet11.Clear()
 
        OleDbDataAdapter1.Fill(DataSet11)
        Dim Matable As DataTable
        MsgBox("ok", MsgBoxStyle.Critical)
        Matable = DataSet11.Tables("aeroport")
        MsgBox("ok", MsgBoxStyle.Critical)
        Matable = DataSet11.Tables("aeroport")
        DataGridView1.DataSource = DataSet11.Tables("aeroport")
        MsgBox("ok", MsgBoxStyle.Critical)
la requete sql tel qu'elle est générée  est:
SELECT     vol.numvol, vol.heure_depart, vol.[heure_arrivée], aeroport.nomaero, vol.villedepart, vol.villearrivée, vol.terminalembarquement, vol.etat, 
                      vol.correspondance, pilote.nomp
FROM         ((aeroport INNER JOIN
                      vol ON aeroport.numaero = vol.numaero) INNER JOIN
                      pilote ON vol.nump = pilote.nump)
WHERE     (vol.date_depart = ?)

SVP c trop urgent car je dois rendre le travail ce lundi 12/01 si qlq1 peux m'aider j'en serai très reconnaissante

[tomlev]

si tu nous dis pas ce qui marche pas on peut pas t'aider

[eikeshi]

Essayes ceci :

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
con.Open()
        Dim DataSet11 As New DataSet()
        'Dim OleDbDataAdapter1 As New OleDb.OleDbDataAdapter()
        OleDbDataAdapter1.SelectCommand.Parameters("date_depart").Value = DateTimePicker1.Value()
        DataSet11.Clear()
 
        OleDbDataAdapter1.Fill(DataSet11)
        Dim Matable As DataTable
        Matable = DataSet11.Tables("aeroport")
        DataGridView1.DataSource = Matable
la requete sql tel qu'elle est générée  est:
SELECT     vol.numvol, vol.heure_depart, vol.[heure_arrivée], aeroport.nomaero, vol.villedepart, vol.villearrivée, vol.terminalembarquement, vol.etat, 
                      vol.correspondance, pilote.nomp
FROM         ((aeroport INNER JOIN
                      vol ON aeroport.numaero = vol.numaero) INNER JOIN
                      pilote ON vol.nump = pilote.nump)
WHERE     (vol.date_depart = ?)