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 51 52
| Private Sub bt_supprimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_supprimer.Click
' Déclaration Objet Connexion
Dim ObjetConnection As SqlConnection
' Déclaration Objet Commande
Dim ObjetCommand As SqlCommand
' Déclaration Objet DataAdapter
Dim ObjetDataAdapter As SqlDataAdapter
' Déclaration Objet DataSet
Dim ObjetDataSet As New DataSet() 'Attention au New
'String contenant la 'Requête SQL'
Dim strSql As String
' Déclaration Objet DataTable
Dim ObjetDataTable As DataTable
' Déclaration Objet DataRow (ligne)
Dim strConn As String
'Pour recompiler les données modifiées avant de les remettre dans le DataAdapter
Dim objetCommandBuilder As SqlCommandBuilder
'Initialisation de la chaîne de paramètres pour la connexion
strConn = "Data source = localhost; Integrated Security=SSPI;" + "Initial Catalog=dbfilm"
'Initialisation de la chaîne contenant l'instruction SQL
strSql = "SELECT * FROM tbfilm"
'Instanciation d'un Objet Connexion
ObjetConnection = New SqlConnection()
'Donner à la propriété ConnectionString les paramètres de connexion
ObjetConnection.ConnectionString = strConn
'Ouvrir la connexion
ObjetConnection.Open()
'Instancier un objet Commande
ObjetCommand = New SqlCommand(strSql)
'Instancier un objet Adapter
ObjetDataAdapter = New SqlDataAdapter(ObjetCommand)
'initialiser l'objet Command
ObjetCommand.Connection() = ObjetConnection
'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
ObjetDataAdapter.Fill(ObjetDataSet, "tbfilm")
'Mettre dans un Objet DataTable une table du DataSet
ObjetDataTable = ObjetDataSet.Tables("tbfilm")
'Suppression de la ligne sélectionnée dans la DataGridView
ObjetDataSet.Tables("tbfilm").Rows(dt_datagrid.CurrentRow.Index).Delete()
'Mise à jour
objetCommandBuilder = New SqlCommandBuilder(ObjetDataAdapter)
ObjetDataAdapter.Update(ObjetDataSet, "tbfilm")
'Nouvel affichage des films dans la datagrid
Dim d As New BindingSource
d.DataSource = ObjetDataSet
d.DataMember = "tbfilm"
Me.dt_datagrid.DataSource = d
End Sub |
Partager