1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Try
Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
Mycommand.CommandText = " select count (distinct anneeress) as dgficjc FROM BUDGETRESSOURCE"
MyConnexion.Open()
Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
Do While myReader.Read()
Label2.Text = myReader(0)
Loop
myReader.Close()
MyConnexion.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "voir affichage compte d'걡rgne ࡶue", MessageBoxButtons.OK, MessageBoxIcon.Error)
MyConnexion.Close()
End Try |
Partager