1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Sub CalcuProg()
'objet connection
Using connexion As OleDbConnection = Me.DBConn
Dim DBCommand As OleDbCommand
'Objet Dataset
Dim DSPageData As New DataSet
'connection a la base de données
DBCommand = New OleDbCommand("Select CA44.CAsemaine, CA44.CA2009, (CA44.CAsemaine/CA44.CA2009)*100 As ProgCA From CAsemaine, CA2009 Where CAsemaine.Lan= ? and CA2009.Lan=?", connexion)
'objet DataAdapter
Dim myOleDbDataAdapter As New OleDbDataAdapter(DBCommand)
DBCommand.Parameters.AddWithValue("CAsemaine.Lan", Session("Lan"))
DBCommand.Parameters.AddWithValue("CA2009.Lan", Session("Lan2009"))
myOleDbDataAdapter.SelectCommand.Parameters("CAsemaine.Lan").Value = Session("Lan")
myOleDbDataAdapter.Fill(DSPageData, "LePanier")
GdvTotCA.DataSource = _
DSPageData.Tables("LePanier").DefaultView
GdvTotCA.DataBind()
End Using
End Sub |
Partager