Option Strict On Option Explicit On Imports System.Data.OleDb
Dim mydatabase As String = "C:\hgfd\nws.mdb" Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mydatabase Dim cnn As OleDbConnection = New OleDbConnection(connectionString) Dim cmd As OleDbCommand ' Pour supprimer un enregistrement précis Dim sql As String = " DELETE * FROM T2 " & _ " WHERE [numeropor] LIKE '%" & txtCommand.Text.Trim() & "%'" ' Pour supprimer tous les enregistrements 'Dim sql As String = " DELETE * FROM T2 " Try cnn.Open() cmd = New OleDbCommand(sql, cnn) cmd.ExecuteNonQuery() cmd.Dispose() cnn.Close() MessageBox.Show("ExecuteNonQuery in OleDbConnection executed !!") Catch ex As Exception MessageBox.Show("Can not open connection ! ") End Try
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.