Discussion :

[papy27]

Comment peux t on creer une base access dans le code.
Je lance mon appli et elle doit verifier si le fichier .mdb est present, sinon, on le creer avec ses tables et tout..
Comment faire donc pour creer cette base et ces tables...
Merci pour l'info...

[Piotrek]

pour tester l'existance du fichier c'est FileExists()

autrement:
http://www.developpez.net/forums/viewtopic.php?t=185299
(le lien vers freevbcode.com)

[pc152]

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
 
Private Function CreateNewTable(ByVal Numeros As String) As Boolean
Dim myConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=essais.mdb")
 
'Appel de la fonction de création de base de donnée
If CreateAccessDatabase("essais.mdb") = True Then
MsgBox("Database Created")
Else
'message d'erreur au cas ou
MsgBox("Database Creation Failed")
'return false pour sortire de la function
Return False
End If
'Création des tables dans la base venant d'etre créée
Try
myConnection.Open()
Dim myCommand As New OleDbCommand("CREATE TABLE Planing2 (ChampsUn TEXT , ChampDEUX TEXT ) ", myConnection)
myCommand.ExecuteNonQuery()
Catch ex As OleDbException
MsgBox(ex.Message)
Return False
Finally
myConnection.Close()
End Try
Return True
End Function
-----------------------------------------------------------------------------------------------------------------------
 
Public Function CreateAccessDatabase(ByVal DatabaseFullPath As String) As Boolean
Dim bAns As Boolean
Dim cat As New ADOX.Catalog()
Try
 
Dim sCreateString As String
sCreateString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabaseFullPath
cat.Create(sCreateString)
 
bAns = True
 
Catch Excep As System.Runtime.InteropServices.COMException
bAns = False
'do whatever else you need to do here, log, 
'msgbox etc.
Finally
cat = Nothing
End Try
Return bAns
End Function
-----------------------------------------------------------------------------------------------------------------------
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
CreateAccessDatabase("E:\nomdelabase.mdb")
End Sub
End Class

ne pas oublier de rajouter la ref ADOX