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
|
Public Function createChemin() As String
Dim chemin As String
Dim dbname As String = "Base_Projet"
Dim cheminApp As String = Application.StartupPath
cheminApp &= "\"
chemin = cheminApp & dbname & ".accdb"
Return chemin
End Function
Public Sub connection()
'Déclaration de la variable de connexion
Dim cnx As ADODB.Connection
cnx = New ADODB.Connection
'Définition du pilote de connexion
cnx.Provider = "Microsoft.ACE.OLEDB.12.0"
'Définition de la chaîne de connexion
cnx.ConnectionString = createChemin()
'Ouverture de la base de données
cnx.Open()
End Sub
Public Sub createBase()
'déclaration BASE
Dim db As New ADOX.Catalog
'création BASE
db.Create("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & createChemin())
End Sub |
