[VB.Net] Créer une DataBase Access

Version imprimable

[Résolu] [VB.Net] Créer une DataBase Access

Bonjour à tous.
Je tente de créer une DataBase Access avec le provider OleDd

Voici le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Imports System.Data.OleDb
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
Const CONNECTION_STRING As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=;"
 
        Dim strOledb As String = "CREATE DATABASE HowToDemo"
 
        Dim Maconnection As New OleDbConnection(CONNECTION_STRING)
 
        Dim cmd As New OleDbCommand(strOledb, Maconnection)
 
        Try
            Maconnection.Open()
            cmd.ExecuteNonQuery()
            Maconnection.Close()
        Catch Exc As OleDbException
            MessageBox.Show(Exc.ToString, "Exception Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

Cela plante sur Maconnection.Open!!
Si j'ai bien compris (en regardant des exemples), il faut ouvrir la connection sur aucune base, puis exécuter CREATE.
Pourtant ma CONNECTION_STRING parrait bonne!!

Solution?

Merci

Toubib

08/10/2005, 16h36
Thomas Lebrun

Data Source ne possède pas de valeur. Si tu ne lui indique pas le serveur (ou le fichier Access), comment veux-tu qu'il sache où crééer la base :)
08/10/2005, 17h17
toubib

Je me doute que le probleme vient de là.
(mais effectivement l'exemple de code je j'ai donné, un de mes multiples essais, n'indiquait pas de nom de base!!)

mais si je fais:

Code:

Const CONNECTION_STRING As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\nouvelle base.mdb;"

il me dit qu'il ne peut pas ouvrir une base qui n'existe pas.
Si je ne donne que le chemin, il refuse aussi.

Si j'ouvre sur une base existante, il refuse ensuite le CREATE DATABASE!!

Que faire?
08/10/2005, 19h17
Thomas Lebrun
Créer le fichier base.mdb sur ton PC (Clic droit => Nouveau => Fichier Access)

Puis apres, tu pourras utiliser:
Code:

1 2 Const CONNECTION_STRING As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\base.mdb;"
A+
08/10/2005, 19h25
Louis-Guillaume Morand

toubib, il fait pas de recherche!! c'est pas bien :)

http://www.developpez.net/forums/viewtopic.php?t=404315
09/10/2005, 17h05
toubib

ok , c'est pas possible par code avec ADO.Net de créer une base Access OleDB.
Il faut la créer à la main!!
(Cela parrait possible avec SQLClient.)

Merci

8O Comme tu es en VB.Net
il existe tout de même une possiblité pour la créer par code, une fois créer tu peux très bien reprendre les choses avec OleDb
Je m'explique, ce code fonctionne
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Imports DAO Imports DAO.LanguageConstants Imports System.Runtime.InteropServices '... Public Shared Function CreateAccessDatabase(ByVal DatabaseFullPath As String) As Boolean Dim result As Boolean = False Dim dbe As New DBEngine() Dim db As Database Try db = dbe.CreateDatabase(DatabaseFullPath, dbLangGeneral) If Not (db Is Nothing) Then result = True Catch ex As Exception : MsgBox(ex.Message) Finally : If Not (db Is Nothing) Then db.Close() End Try Return result End Function
Bien sûr il manque la verif si le fichier existe déjà etc..mais çà marche sans pb
:arrow: http://warin.developpez.com/TutorielDAO/?page=sommaire

09/10/2005, 19h27
toubib

Effectivement , après avoir ajouté la
réference, le composant COM Microsoft DAO 3.6 Library 5

Cela fonctionne parfaitement et permet de créer une base Access.
Merci pour le code.

Toubib