Comment créer la base de données Access à partir d'un script

J'ai fini par aller avec ma propre solution. Je ne pouvais pas obtenir l'un des deux premiers fonctionnent très bien. J'ai créé deux fichiers exécutables: pour créer la base de données et d'exécuter des scripts.

Pour l'application qui crée la base de données, j'ai ajouté la référence COM "Microsoft ADO Ext. 2.8 for DDL and Security". Le code est en fait assez simple: (Remplacer ".mdb" avec le bon chemin de fichier pour votre fichier.)

Dim cat As ADOX.Catalog = New ADOX.Catalog()
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb;Jet OLEDB:Engine Type=5")

Pour exécuter les scripts, j'ai créé un simple analyseur de lire et d'exécuter d'Accès "scripts". Ces scripts sont basées sur des scripts SQL, en ce qu'elles fournissent une liste de commandes à exécuter. Par exemple, un script peut être défini comme:

--Create the table.
CREATE TABLE [Test] ([ID] Number, [Foo] Text(255))

--Add data to the table.
INSERT INTO [Test] ([ID], [Foo]) VALUES (1, 'Bar')

Voici le code de l'analyseur. (Remplacer ".mdb" avec le bon chemin de fichier pour votre fichier.)

Dim textStream = File.OpenText(scriptPath)
Dim lines As List(Of String) = New List(Of String)
While textStream.Peek() <> -1
    lines.Add(textStream.ReadLine())
End While
textStream.Close()

Dim connection As OleDb.OleDbConnection = New OleDb.OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb")
connection.Open()
For Each line As String In lines
    If Not String.IsNullOrEmpty(line) Then
        If Not line.StartsWith("--") Then
            Dim dbCommand = New OleDb.OleDbCommand(line, connection)
            dbCommand.ExecuteNonQuery()
        End If
    End If
Next
connection.Close()

Cette solution fonctionne bien et est assez simple à mettre en œuvre.

OriginalL'auteur Jeremy