Jointure de deux datatables
Fermé
Bonjour,
j'ai un petit probleme dans vb.net,
je voudrai affichier les colonnes issus de 2 datatables, dans une datafridview.
par exemple
j'ai un dataset qui contient 2 datatable:
datatable eleve(id_eleve,nom_eleve,code_filiere) et datatable filiere(code_filiere, nom_filiere)
et je voudrai , afficher dans une datagridview juste les champs (nom_eleve,nom_filiere)
alors comment faire sans utiliser une requete SQL directement à la base de données?
Merci d'avance mes amis.
j'ai un petit probleme dans vb.net,
je voudrai affichier les colonnes issus de 2 datatables, dans une datafridview.
par exemple
j'ai un dataset qui contient 2 datatable:
datatable eleve(id_eleve,nom_eleve,code_filiere) et datatable filiere(code_filiere, nom_filiere)
et je voudrai , afficher dans une datagridview juste les champs (nom_eleve,nom_filiere)
alors comment faire sans utiliser une requete SQL directement à la base de données?
Merci d'avance mes amis.
A voir également:
- Jointure de deux datatables
- Deux ecran pc - Guide
- Faire deux colonnes sur word - Guide
- Nombre de jours entre deux dates excel - Guide
- Itinéraire google map entre deux adresses - Guide
- Deux whatsapp sur un téléphone - Guide
1 réponse
jeinny
Messages postés
133
Date d'inscription
mardi 3 juin 2008
Statut
Membre
Dernière intervention
17 février 2010
26
6 juin 2008 à 16:46
6 juin 2008 à 16:46
Voila je pense que c'est ce qu'il te faut à peu près mais il faut que tu change 2 / 3 truc comme les noms des tables et des champs et de la base de donnée ... Voila
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cnn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim drr As OleDbDataReader
Dim existenreg As Boolean
'Paramétrage du DataGridView
GrdEleve.AllowUserToAddRows = False
GrdEleve.RowHeadersVisible = False
GrdEleve.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
'Création des 7 colonnes avec leur nom et leur largeur
GrdEleve.ColumnCount = 2
GrdEleve.Columns(0).Name = "Nom_eleve"
GrdEleve.Columns(1).Name = "Nom_filiere"
'Ajout des lignes avec les données
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\eleve.mdb"
cnn.Open()
cmd.CommandText = "select * from eleve, filiere"
cmd.Connection = cnn
GrdEleve.Rows.Clear()
drr = cmd.ExecuteReader()
existenreg = drr.Read
While existenreg
GrdEleve.Rows.Add(drr("Nom_eleve"), drr("Nom_filière"))
existenreg = drr.Read
End While
drr.Close()
cnn.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cnn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim drr As OleDbDataReader
Dim existenreg As Boolean
'Paramétrage du DataGridView
GrdEleve.AllowUserToAddRows = False
GrdEleve.RowHeadersVisible = False
GrdEleve.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
'Création des 7 colonnes avec leur nom et leur largeur
GrdEleve.ColumnCount = 2
GrdEleve.Columns(0).Name = "Nom_eleve"
GrdEleve.Columns(1).Name = "Nom_filiere"
'Ajout des lignes avec les données
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\eleve.mdb"
cnn.Open()
cmd.CommandText = "select * from eleve, filiere"
cmd.Connection = cnn
GrdEleve.Rows.Clear()
drr = cmd.ExecuteReader()
existenreg = drr.Read
While existenreg
GrdEleve.Rows.Add(drr("Nom_eleve"), drr("Nom_filière"))
existenreg = drr.Read
End While
drr.Close()
cnn.Close()
End Sub
6 juin 2008 à 19:18