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
|
Private Sub engagement()
ds.Clear()
dpt = New SqlDataAdapter("SELECT dbo.nature_engagement.nature_engagement, dbo.etat_engagement.n_nature_engagement, dbo.etat_engagement.montant_engager, dbo.etat_engagement.objet_depense, dbo.etat_engagement.fournisseur, dbo.etat_engagement.n_certification,dbo.etat_engagement.date_certification,dbo.etat_engagement.id_procedure, dbo.etat_engagement.id2 FROM dbo.nature_engagement INNER JOIN dbo.etat_engagement ON dbo.nature_engagement.id_nature_engagement = dbo.etat_engagement.id_nature_engagement WHERE (id1= '" & id1.Text & "')", conn)
dpt.Fill(ds, "table2")
Me.BindingSource1.DataSource = ds.Tables("table2")
Me.BindingNavigator1.BindingSource = BindingSource1
Me.nature_engagement.DataBindings.Clear()
Me.n_nature_engagement.DataBindings.Clear()
Me.montant_engager.DataBindings.Clear()
Me.n_certification.DataBindings.Clear()
Me.date_certification.DataBindings.Clear()
Me.objet_depense.DataBindings.Clear()
Me.fournisseur.DataBindings.Clear()
Me.id2.DataBindings.Clear()
Me.cheked.DataBindings.Clear()
Me.montant_engager.DataBindings.Add("text", BindingSource1, "montant_engager")
Me.nature_engagement.DataBindings.Add("text", BindingSource1, "nature_engagement")
Me.objet_depense.DataBindings.Add("text", BindingSource1, "objet_depense")
Me.n_nature_engagement.DataBindings.Add("text", BindingSource1, "n_nature_engagement")
Me.fournisseur.DataBindings.Add("text", BindingSource1, "fournisseur")
Me.n_certification.DataBindings.Add("text", BindingSource1, "n_certification")
Me.date_certification.DataBindings.Add("value", BindingSource1, "date_certification")
Me.id2.DataBindings.Add("text", BindingSource1, "id2")
Me.cheked.DataBindings.Add("text", BindingSource1, "id_procedure") |
Partager