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
|
Private Sub ExecutionCommande(strsql As String)
'Déclarer la connexion
Dim strConn As String
Dim ObjetConnection As OleDbConnection
' Déclaration l'Objet Commande
Dim ObjetCommand As OleDbCommand
strConn = "Provider = microsoft.jet.oledb.4.0;" & "Data Source= maBase.mdb;"
ObjetConnection = New OleDbConnection
'Donner à la propriété ConnectionString les paramètres de connexion
ObjetConnection.ConnectionString = strConn
'Ouvrir la connexion
ObjetConnection.Open()
'Instancier un objet Commande
ObjetCommand = New OleDbCommand
'Lier Commande et Connexion
ObjetCommand.Connection = ObjetConnection
'Indiquer le type de commande
ObjetCommand.CommandType = CommandType.Text
'Donner le texte de la commande SQL
ObjetCommand.CommandText = strsql ' ma requette de creation
'on exécute la commande
ObjetCommand.ExecuteNonQuery()
'Fermer la connexion
ObjetConnection.Close()
End Sub |
Partager