Discussion :

[toubib]

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

Voici le code:

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
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

[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

[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 :

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

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?

[Thomas Lebrun]

Créer le fichier base.mdb sur ton PC (Clic droit => Nouveau => Fichier Access)


Puis apres, tu pourras utiliser:

Code :

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

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

A+

[Louis-Guillaume Morand]

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

http://www.developpez.net/forums/viewtopic.php?t=404315

[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

[neguib]

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 :

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
 
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
http://warin.developpez.com/TutorielDAO/?page=sommaire

[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