civodulesseb
Messages postés5Date d'inscriptionvendredi 3 octobre 2008StatutMembreDernière intervention26 octobre 2010
-
26 oct. 2010 à 09:26
civodulesseb
Messages postés5Date d'inscriptionvendredi 3 octobre 2008StatutMembreDernière intervention26 octobre 2010
-
26 oct. 2010 à 13:23
Bonjour,
j'essaye de faire une jonction entre deux tables qui ont en commun une colonne nommée res_id.Comment faire la fusion pour que dans le datagridview j'ai les champs des deux tables en concordance suivant la colonne res_id
Merci de votre aide
Var_QLZ_Plan = "12132-ron-01"
'connexion à la base
Connexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=V:\BW\PointagesQLZ.mdb"
ConnexionOLE = New OleDbConnection
ConnexionOLE.ConnectionString = Connexion
'recuperation numero ar_code par QLZ_plan dans la table Articles
da = New OleDbDataAdapter("Select * from Articles where [QLZ_Plan]='" & Var_QLZ_Plan & "'", ConnexionOLE)
ds = New DataSet()
da.Fill(ds, "Articles")
dv = ds.Tables("Articles").DefaultView
Var_ar_code = dv(0)("AR_Code") 'recuperation du numero AR_Code
'recuperation numero fabr_id par ar_code dans la table fabrications
da = New OleDbDataAdapter("Select * from fabrications where [ar_code]='" & Var_ar_code & "'", ConnexionOLE)
ds = New DataSet()
da.Fill(ds, "fabrications")
dv = ds.Tables("fabrications").DefaultView
Var_fabr_id = dv(0)("fabr_id") 'recuperation du numero fabr_id
'recuperation numero res_id par fabr_id dans la table gammes
da New OleDbDataAdapter("Select * from gammes where [fabr_id] " & Var_fabr_id & " order by gam_pos ", ConnexionOLE)
ds = New DataSet()
da.Fill(ds, "gammes")
dv = ds.Tables("gammes").DefaultView
'recuperation numero res_id par fabr_id dans la table gammes
da = New OleDbDataAdapter("Select * from ressources ", ConnexionOLE)
ds1 = New DataSet()
da.Fill(ds1, "ressources")
dv = ds1.Tables("ressources").DefaultView
DataGridView1.DataSource = dv
dv.AllowEdit = True