1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
|
Dim con As SqlCeConnection = Nothing
Dim cmd As SqlCeCommand = Nothing
Dim DAptr As SqlCeDataAdapter =Nothing
Dim DSet As New DataSet
Dim DTable As New DataTable
Dim strSql As String = "Select * from Personne "
Dim strCon As String = "data source =Mybasepointage.sdf"
Dim objetcb As SqlCeCommandBuilder
Try
con = New SqlCeConnection
con.ConnectionString = strCon
con.Open()
cmd = New SqlCeCommand(strSql)
DAptr = New SqlCeDataAdapter(strSql, con)
cmd.Connection = con
objetcb = New SqlCeCommandBuilder(DAptr)
DAptr.Fill(DSet, " Personne")
DTable = DSet.Tables("Personne")
DataGridView1.DataSource = DSet.Tables("Personne")
DataGridView1.Refresh()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Erreur")
End Try |
Partager