1 2 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