Discussion :

[ThierryAIM]

Salut à tous

Pour faire suite au post de Slim ADO vs DAO, j'ai une question subsidiaire:

J'utilise les composants ADO partout mais je n'ai pas trouvé comment créer une BD qui n'existe pas autrement que par :

Code :

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

1
2
3
4
5
6
7
8
 
Dim DBCrRef As Database
 
Set DBCrRef = DBEngine.Workspaces(0).CreateDatabase(DBCrossRef, dbLangGeneral)
    DBCrRef.Execute "CREATE TABLE E10000 " & "(NomPar CHAR (6), Module CHAR (30), Ligne CHAR (5))"
    DBCrRef.Execute "CREATE TABLE E20000 " & "(NomPar CHAR (6), Module CHAR (30), Ligne CHAR (5))"
...
DBCrRef.Close

Y a-t-il un autre moyen, surement mais j'ai pas trouvé :

Si vous savez comment, merci d'avance

[Nightfall]

Avec ADOX. C'est l'extension de Ado qui permet de créer des bases, tables, index, etc ...

[ThierryAIM]

Merci Night

OK Ca marche, mais c'est vachement plus long ou j'ai pas tout compris:

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
 
Dim DBCrRef  As ADOX.Catalog
Dim TblE10000 As ADOX.Table
 
On Error Resume Next
 
Set DBCrRef = New ADOX.Catalog
DBCrRef.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=.\newMyBase.mdb;" & _
            "Jet OLEDB:Engine Type=5;"
 
Set TblE10000 = New ADOX.Table
TblE10000.Name = "E10000 "
TblE10000.Columns.Append "NomPar", adWChar, 6
TblE10000.Columns.Append "Module", adWChar, 30
TblE10000.Columns.Append "Ligne", adWChar, 5
DBCrRef.Tables.Append TblE10000
 
Set DBCrRef.ActiveConnection = Nothing

Juste une confirmation : en utilisant cette methode c'est pas obligé de déclarer Microsoft DAO 3.6 :

[Nightfall]

Non

[ThierryAIM]

Merci, c'est tout ce que je voulais pour aujourd'hui

A +