Discussion :

[abertaud]

Bonjour,

Afin de pouvoir importer un fichier XML généré, 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.

[Frank]

Petit copier/coller de l'aide Access :

CreateDatabase Method Example

This example uses CreateDatabase to create a new, encrypted Database object.

Sub CreateDatabaseX()

Dim wrkDefault As Workspace
Dim dbsNew As DATABASE
Dim prpLoop As Property

' Get default Workspace.
Set wrkDefault = DBEngine.Workspaces(0)

' Make sure there isn't already a file with the name of
' the new database.
If Dir("NewDB.mdb") <> "" Then Kill "NewDB.mdb"

' Create a new encrypted database with the specified
' collating order.
Set dbsNew = wrkDefault.CreateDatabase("NewDB.mdb", _
dbLangGeneral, dbEncrypt)

With dbsNew
Debug.Print "Properties of " & .Name
' Enumerate the Properties collection of the new
' Database object.
For Each prpLoop In .Properties
If prpLoop <> "" Then Debug.Print " " & _
prpLoop.Name & " = " & prpLoop
Next prpLoop
End With

dbsNew.Close

End Sub

[abertaud]

Merci pour ta réponse.

J'avais déjà tenté un truc du genre, mais le truc c'est que je fais du VBScript en dehors d'access (pas le choix pour les besoins que je traite). C'est pour cela que je fais appel à une ouverture de Microsoft Access grâce à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
    Set oAccess = CreateObject("Access.application")
    oAccess.Visible = False

Ainsi, j'ai mon programme Access est lancé en invisible. A l'exécution de ton code, la ligne suivante foire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
' Get default Workspace.
Set wrkDefault = DBEngine.Workspaces(0)

Il ne connait pas l'objet DBEngine, et ne parvient donc pas à continuer

[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