Discussion :

[bailamos]

salut tous le monde
j'essay de creer une table avec des champs ùmais il ya une erreur 3421

merci d'avance

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
 
Private Sub Command2_Click()
Dim W As Workspace
Dim BD As Database
Dim t As TableDef
Dim F As Field: Dim R As Recordset
 
p = App.Path & "\ma_base.mdb": If Dir(p) <> "" Then Kill p
 
Set W = DBEngine.Workspaces(0)
'creer la base de donneé
Set BD = W.CreateDatabase(p, dbLangGeneral, dbVersion30)
'creer la table
Set t = BD.CreateTableDef(tab_name.Text)
'creer les champs
For x = 0 To f1.ListCount - 1
Set F = t.CreateField(field_name.List(x), field_type.List(x), 100)
t.Fields.Append F
Next x
 
BD.TableDefs.Append t
W.Close
 
End Sub

[OhMonBato]

Et donc le jeu est deviner la ligne où se produit l'erreur ? C'est ça ?

[Delbeke]

Je suis un crack et je connais absolument tous les codes erreurs de Vb.

Ha, je voudrais bien. Je dois dire que code erreur 3421 ca me parle pas beaucoup.

Donnes nous le texte de l'erreur et la ligne ou elle se produit, ça nous aiderai à t'aider.

Edit, grillé par OhMonBato , que je salue au passage

[bailamos]

Set F = t.CreateField(field_name.List(x), field_type.List(x), 100)
l'erreur et dans cette ligne merci

[Delbeke]

Et que contient field_name.List(x) et field_type.List(x) au momment de l'éxécution ?
Normalement la liste field_type ne devrait contenir que des chiffres allant de 1 à , heu, 15 je crois.
Par exemple, Si tu veux creer un champs texte, c'est 10 qui doit être fourni .

[bailamos]

field_name="nom":field_type="dbText"
field_name="prenom":field_type="dbText"
field_name="ville":field_type="dbText"

[iclic]

Bonjour,

Je constate une chose,chaque fois qu'il y a une erreur à tel numéro, on appelle à l'aide pour un rien Developpez.com.
C'est un peu trop facile alors qu'il suffit d'en chercher la raison .
Si VB6 se plante c'est qu'il y a une erreur de logique ou de programmation .
Quand je vois que l'on dit ,c'est VB6 qui déconne ,je n'y crois pas.
On devrait être plus humble quand on programme car les erreurs proviennent souvent d'un manque de rigueur ou de logique dans l'encodage ou la programmation.
Ceci est mon avis , à d'autres plus expérimenté que moi comme
Bbill, Delbeke, OhMonBato, et j'en oublie de rectifier ma pensée.
Je m'excuse d'être un petit peu sèvère.

A+ à tous

[Delbeke]

La fonction CreateField attend en second paramètre un entier, pas un texte. Or ta listbox contient le litéral "DbText" .
Dans vb, il y a une constante prédéfinie DbText qui vaut 10 ! ce qui n'a rien à voir avec la chaine de texte "DbText", qui vaut "DbText"