thomasaurelien
Messages postés71Date d'inscriptionjeudi 7 juillet 2011StatutMembreDernière intervention27 novembre 2017
-
29 mars 2012 à 16:27
FOALENG -
23 janv. 2013 à 19:50
Bonjour,
Comme le titre le précise je me suis mis à développez une application en multi-couche en VB.net avec une base access. j'ai donc créer une classe connexion et j'aurais voulu savoir se que vous en pensiez.
' Ajout référence : Microsoft ADO Ext. 2.1 for DDL and Security
Public Class connexion
'chemin de la base
Private chemin As String = My.Application.Info.DirectoryPath & "\Data_base.accdb"
'base de donnée
Private db As ADOX.Catalog
'Création de l'objet connexion
Private cnx As OleDb.OleDbConnection
'instruction SQL
Private cmd As OleDb.OleDbCommand
'parametrage de la chaine de connection
Private cnxstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & chemin & ";"
Protected Function get_cnxstr() As String
Return cnxstr
End Function
'renvoie vrai si le fichier (la base) éxiste
Public Function verif_chemin() As Boolean
Return System.IO.File.Exists(chemin)
End Function
'créer la base de donnée
Public Sub Create_base()
Try
'instancier une nouvelle base
db = New ADOX.Catalog
' création de la base
db.Create(cnxstr)
Catch ex As Exception
' si erreur
Throw New Exception("Erreur de création de la base" & Environment.NewLine & ex.Message)
End Try
End Sub
'ouvrir connection
Protected Sub Open_connect()
Try
'instancier une nouvelle connexion
cnx = New OleDb.OleDbConnection
cnx.ConnectionString = cnxstr
'ouverture
cnx.Open()
Catch ex As Exception
'si erreur
Throw New Exception("Erreur d'ouverture de la base" & Environment.NewLine & ex.Message)
End Try
End Sub
'fermer connexion
Protected Sub Close_connect()
Try
'fermeture
cnx.Close()
Catch ex As Exception
' si erreur
Throw New Exception("Erreur fermeture de la base" & Environment.NewLine & ex.Message)
End Try
End Sub
'
Protected Sub Creation_table(ByVal sql As String)
Try
Open_connect()
cmd = New OleDb.OleDbCommand
cmd.Connection = cnx
cmd.CommandType = CommandType.Text
cmd.CommandText = sql
cmd.ExecuteNonQuery()
Close_connect()
Catch ex As Exception
Throw New Exception("Erreur création Table !! " & Environment.NewLine & ex.Message)
End Try
End Sub
End Class
