1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Imports System.Data
Imports System.Data.OleDb
Imports System.Data.OleDb.OleDbConnection
Imports System.Data.OleDb.OleDbDataAdapter
********************************************
Dim Cn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & _
"C:\Documents and Settings\youssef\Bureau\BudgetInara2010.mdb")
Dim sql As String
sql = "Select budget.*,* from budget "
Dim AdpBudget As New OleDb.OleDbDataAdapter(sql, Cn)
'declaration du DataSet
Dim DtSet As New DataSet()
' remplissage du dataset
AdpBudget.Fill(DtSet, "Budget")
DataGrdV1.DataSource = DtSet.Tables("Budget")
DataGrdV1.Columns("Crédit").DefaultCellStyle.Format = " ###,###.00"
DataGrdV1.Columns("CréditDisp").DefaultCellStyle.Format = " ###,###.00"
DataGrdV1.Columns("MtMvtCrédit").DefaultCellStyle.Format = " ###,###.00"
DataGrdV1.Columns("MtAprésMvt").DefaultCellStyle.Format = " ###,###.00"
Cn.Close()
**************************************************** |
Partager