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 30
| '***********************************************
Try
'Chaîne de connexion
Dim connectString As String *****************
'Objet connection
Dim connection As SqlClient.SqlConnection = New SqlClient.SqlConnection(connectString)
'Ouverture
connection.Open()
'connexion à la table tech
Dim command1 As SqlClient.SqlCommand = New SqlClient.SqlCommand("SELECT * FROM alerte where (designation = 'panne') and( etat = 1) and ( date_alerte > '03/01/2008' )", connection)
'Instancier un objet Adapter
Dim DataAdapter As New SqlClient.SqlDataAdapter(command1)
' Déclaration Objet DataSet
Dim dset As New DataSet
'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
DataAdapter.Fill(dset, "alerte")
' Déclaration Objet DataTable
Dim dtable As New DataTable
'Mettre dans un Objet DataTable une table du DataSet
dtable = dset.Tables("alerte")
'Mettre dans le DataGrid une table DataTable
preventif.DataGridView1.DataSource = dtable
Catch ex As Exception
End Try
'*********************************************************** |
Partager