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.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
 
' 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
Merci pour votre avis et votre aide éventuel