Discussion :

[soso78]

Salut,

J'arrive avec ADO à créer une base de données mdb pour Access... sauf que je n'arrive à définir que des champs de type texte.

Comment faire pour spécifier le type de champs sous VB6 ?

J'ai essayé ça mais j'ai le code erreur : type non valide.

(aDatabase est un tableau contenant la structure de la table à créer)

J'ai pas trouvé grand chose sous MSDN.

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 Set tblNew = New ADOX.Table
 
  'Create a new Table object.
  With tblNew
    .Name = strTableName
 
    'Ecriture de la structure de la table
    For intI = 0 To 9
 
      If aDatabase(intI).strNAME = "" Then
        Exit For
      End If
 
      'Définition de la table
      strFieldName = aDatabase(intI).strNAME
 
      'Convertit les types de données en données Access
      Select Case aDatabase(intI).strType
 
        Case "Texte"
          lngDefType = dbChar
 
          'Longueur du champ
          lngSize = CDbl(aDatabase(intI).strLen)
 
        Case "Numerique Entier"
          lngDefType = adInteger
 
        Case "Numerique Decimal"
          lngDefType = adDouble
 
        Case "Date", "Heure"
          lngDefType = adDBDate
 
        Case "Heure"
          lngDefType = adDBTime
 
        Case "Oui/Non"
          lngDefType = dbBoolean
      End Select
 
      ' Créé le champ
      .Columns.Append strFieldName, lngDefType, lngSize
    Next
  End With
 
  ' Add the new Table to the Tables collection of the database.
  catDB.Tables.Append tblNew

Merci par avance.

[SfJ5Rpw8]

as tu mis en haut de ton projet :

Code :

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

1
2
 
option explicit

ce qui déjà te permettra s'il y as lieu de voir si tu as des erreurs sur les noms de tes variables...

[soso78]

Merci de ta réponse.

Y'avait pas cette commande, que j'ai ajouté.

Le programme s'exécute normalement mais j'ai toujours la même erreur : Type non valide !

[SfJ5Rpw8]

tu as essayé de "compiler le programme"..., je t'ai demandé de rajouter cette options .. car les noms de tes constantes de types .. me semblent "bizarre.."



essai de vérifier la valeur de lngDefType ... au moment de la création des champs, .Columns.Append .. ... ( par un message box ou en débug..).


[edit]

tiens à lire page 16 .. tu as la liste des types...:

ftp://ftp2.developpez.be/developps/vb/VB-ADOX.pdf