Public Class ParamConnexion Private m_laConnexion As OleDbConnection Public Sub New() m_laConnexion = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\N'dy\Documents\Visual Studio 2008\Projects\Gestion d'oeuvre d'art\gestion d'oeuvres.accdb;Jet OLEDB:Database Password=MyDbPassword;") m_laConnexion.Open() End Sub Public ReadOnly Property Connection() As OleDbConnection Get Return m_laConnexion End Get End Function End Class
Private Sub Btn_Insert_Click (Sender As Object, e As System.EventArgs) Handles Btn_Insert.Click Dim classConnex As New ParamConnexion Dim cmdString As String = "INSERT INTO artiste (art_nom, art_prenom,art_nationalite,art_biographie) values('" & TxtNom.Text & "','" & TxtPrenom.Text & "','" & TxtNationalite.Text & "','" & RTxtBio.Text & "')" Dim SQLCommand As New OleDbCommand(cmdString, classConnex.Connection) SQLCommand.ExecuteNonQuery End Sub
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
190 internautes nous ont dit merci ce mois-ci