| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 
 | Private Function initTableNapac() As DataTable
            Dim reqSql As String
            Dim uneTable As DataTable
            uneTable = New DataTable
 
            'reqSql = "select num_napac, n.num_operation, n.date, montant_AE_NAPAC, montant_DCP_NAPAC, montant_affecte from napac n, operations o where n.num_operation = o.num_operation and year(o.date) = " + Annee + " order by num_napac"
            reqSql = "select * from napac"
            daNapac = New MySqlDataAdapter(reqSql, cnxStr)
            ' instanciation d'un objet DataTable en précisant le nom de la table
 
 
            daNapac.MissingSchemaAction = MissingSchemaAction.AddWithKey
            daNapac.Fill(uneTable)
            'uneTable.AcceptChanges()
            Dim monCB As MySqlCommandBuilder
 
            monCB = New MySqlCommandBuilder(daNapac)
 
 
            Return uneTable
        End Function | 
Partager