Discussion :

[soso78]

Salut,

Voilà, j'ai créé une table avec ADO en utilisant le code ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
 
Dim catDB As ADOX.Catalog
Dim tblNew As ADOX.Table
 
  Set catDB = New ADOX.Catalog
 
  'Open the catalog.
  catDB.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & strDBPath

strDBPath étant l'emplacement d'une base au format Access.

Puis, j'ajoute des colonnes :

Code :

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

      .Columns.Append strFieldName, lngDefType, lngSize

Où strFieldName est le nom du champ,
lngDefType son type,
lngSize sa taille.

Jusque là, tout va bien.

Puis, j'ajoute la nouvelle table :

Code :

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

catDB.Tables.Append tblNew

Là ou j'ai un problème, c'est pour définir les propriétés du champ "toto". Par exemple, je veux lui spécifier qu'il peut accepter des valeurs nulls (par défaut à non).

J'ai essayé plusieurs trucs du style :

Code :

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

      .Columns(intNumField).Attributes("adFldIsNullable") = adColNullable

où intnumfield est le nom du champ à modifier.

Mais ça ne marche pas puisqu'à ce moment là, il n'y a aucun attributs (count = 0) !

Je voudrais spécifier tout ça au moment de sa création.

Comment fiare ?

Merci par avance.

[ThierryAIM]

il te faut définir les Attributs avant d'ajouter la table au catalogue :

un petit exemple :

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
 
'Creer une base par ADOX
'-- Cocher la référence :Microsoft ADO Ext 2.x for dll
Dim NewBase As ADOX.Catalog
Dim NewTable As ADOX.Table
 
    Set NewBase = New ADOX.Catalog
    NewBase.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source=c:\base.mdb;" & _
                   "Jet OLEDB:Engine Type=5;"
 
    Set NewTable = New ADOX.Table
    With NewTable
        .Name = "Table1"
        .Columns.Append "Champ1", adInteger ' crée un champ Integer
        .Columns("Champ1").Attributes = adColNullable ' autorise null
        .Columns.Append "Champ2", adWChar, 50 ' crée un champ texte, longueur 50
    End With
    NewBase.Tables.Append NewTable
    Set NewTable = Nothing
    Set NewBase = Nothing
End Sub

[soso78]

Ok, j'ai compris. C'est résolu.

Merci.