J'ai vu un peu regardé l'exemple dans l'aide de VB6, mais ça coince.
Je voudrais créer une table pour mettre des images persos s'appelant "Catégorie" et un index "RefCatégorie". Voici ce que j'ai écris.
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
20
21
22
23
24
25
26
27
Public Sub CreerBase()
   CheminBase = App.Path & "\DB\Images.mdb"
 
    Set db = DAO.Workspaces(0).CreateDatabase(CheminBase, dbLangGeneral)
 
Set Table = db.CreateTableDef("Categorie")
 
With Table
Set idxNew = .CreateIndex("RefCategorie")
With idxNew
    .fields.Append .CreateField("NomCategorie")
    .fields.Append .CreateField("Cliparts", dbText)
    .fields.Append .CreateField("Photos", dbText)
    .fields.Append .CreateField("Gifs", dbText)
    .fields.Append .CreateField("Textures", dbText)
    .fields.Append .CreateField("Web", dbText)
    .fields.Append .CreateField("autres", dbText)
    .Unique = True
 
End With
        .Indexes.Append idxNew
        .Indexes.Refresh
 
End With
db.TableDefs.Append Table
db.Close
Set db = Nothing
Le problème c'est que ma base est bien crée ainsi que la table, mais pas l'index. Si vous avez une réponse, ou une autre façon de faire.
Je vous remercie.