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