Discussion :

[abertaud]

Bonjour,

Je souhaite créer une base de données Access à travers mon code VBScript. J'arrive bien à ouvrir une base de données existante grâce à :

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
 
Function testImportationXML()
    Dim oAccess
    Dim oDb
    Set oAccess = CreateObject("Access.application")
    oAccess.Visible = False
    DupliquerFichier
    oAccess.OpenCurrentDatabase ("cheminDeMaBase.mdb")
    Set oDb = oAccess.CurrentDb()
    LancerImportationXML oAccess, "chemin/fichierAImporter.xml"
    oAccess.CloseCurrentDatabase
    oAccess.Quit
    Set oAccess = Nothing
    Set oDb = Nothing
End Function

mais je ne parviens pas à trouver comment en créer une nouvelle, dont je pourrais définir l'emplacement.

[abertaud]

Je n'étais vraiment pas loin. Il suffisait d'utiliser tout bêtement (et oui...) la fonction newCurrentDatabase()

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
 
Public Function LancerImportationXML(base, fichierXML)
    base.ImportXML _
        DataSource:=fichierXML
End Function
 
Sub testImportation3()
    Dim oAccess
    Dim oDb
    Set oAccess = CreateObject("Access.application")
    oAccess.Visible = False
    oAccess.newCurrentDatabase ("chemin_de_la_base_à_créer/nom.mdb")
    Set oDb = oAccess.CurrentDB()
    LancerImportationXML oAccess, "chemin_du_fichier_à_importer/fichierAImporter.xml"
    oAccess.CloseCurrentDatabase
    oAccess.Quit
    Set oAccess = Nothing
    Set oDb = Nothing
End Sub