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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
|
' Déclaration Objet Connection
Dim ObjetConnection As New SqlClient.SqlConnection
' Déclaration Objet Commande
Dim ObjetCommand As New SqlClient.SqlCommand
' Déclaration Objet DataAdapter
Dim ObjetDataAdapter As New SqlClient.SqlDataAdapter
' Déclaration Objet DataSet
Dim ObjetDataSet As New DataSet
' Déclaration Objet DataTable
Dim ObjetDataTable As New DataTable
'Initialisation de la chaîne contenant l'instruction SQL
Dim strSql As String
'Objet Connection
'Initialisation de la chaîne de paramètres pour la connexion
Dim strConn As String = "Data Source=serveur; " _
& "Initial Catalog=BD; Integrated Security=SSPI"
' Déclaration d'un OleDbCommandBuilder
Dim ObjetCB As SqlClient.SqlCommandBuilder
'Objet Connection
Dim oConnection As New SqlClient.SqlConnection
'Objet Command
Dim oCommand As New SqlClient.SqlCommand
'Objet Dataset
Dim oDataset As New DataSet
Try
strSql = "SELECT champs, champs, champs FROM table1 INNER JOIN table2 INNER JOIN table3 WHERE"
'Donner à la propriété ConnectionString les paramètres de connexion
ObjetConnection.ConnectionString = strConn
'Ouvrir la connexion
ObjetConnection.Open()
'Instancier un objet Commande
ObjetCommand.CommandText = strSql
'Instancier un objet Adapter
ObjetDataAdapter.SelectCommand = ObjetCommand
'initialiser l'objet Command
ObjetCommand.Connection() = ObjetConnection
'initialiser l'objet OleCBComandBuilder (sinon pas d'update)
'ObjetCB = New OleDbCommandBuilder(ObjetDataAdapter)
'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
ObjetDataAdapter.Fill(ObjetDataSet, "Details_fichiers_gestionnaires")
SqlDataAdapter1.Fill(ObjetDataSet, "Details_fichiers_gestionnaires")
'Créer une datatable à partir du dataset
ObjetDataTable = ObjetDataSet.Tables("Details_fichiers_gestionnaires")
'Mettre dans le DataGrid une table DataTable
DataGrid1.SetDataBinding(ObjetDataSet, "Details_fichiers_gestionnaires") |
Partager