VBScript : création base Access pour import fichier XML

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:

---

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.

Petit copier/coller de l'aide Access :

Citation:

---

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

---

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:

---

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:

---

1 2 3

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

---

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

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

Code:

---

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

---