Chaine Vide autorisée [Résolu]

Messages postés
90
Date d'inscription
dimanche 5 novembre 2000
Dernière intervention
26 juillet 2006
- 13 juin 2005 à 14:19 - Dernière réponse :
Messages postés
90
Date d'inscription
dimanche 5 novembre 2000
Dernière intervention
26 juillet 2006
- 13 juin 2005 à 17:01
bonjours à toutes & à tous..

Ba voilà j'ai un p'tit problème.
J'ai une BDD sous access. Via une application développée sous Vb6, je créé une Table dans cette BDD. Après avoir créé la Table, je créé les champs de cette dernière. Et là se trouve ma question ...

Comment autoriser les chaines vide dans un des champs. j'ai regarder dans les propriétés de mon objet TableDef. Du genre MyTable.Fields.Append .CreateField.Properties

Voilà ba si qq à quelque seconde à perdre, merci beaucoup de me donner ne réponse...
En espérant que qq predra cette peine..
Merci d'avance...
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
90
Date d'inscription
dimanche 5 novembre 2000
Dernière intervention
26 juillet 2006
- 13 juin 2005 à 17:01
3
Merci
C'est bon j'ai trouvé tout seul !!!
ouai je sais c'est tout naz mais j'suis content moi :)

Après bien évidemment avoir ouvert la BDD...
Ici mon objet DataBase il s'appel Base (Public Base As Database)
Je passe le nom de la table en paramètre (TableName)
Puis je créée une table avec 2 champs : Nom (de type text) et Id (de type numeric)


Public Sub CreateNewTable(TableName As String)
Dim MyTable As TableDef
Dim RecordNewTable As Recordset
Dim SQLNewTable As String
Dim Champ As Field


'Création de l'objet TABLE
Set MyTable = Base.CreateTableDef(TableName)


With MyTable


Set Champ = .CreateField()
With Champ
' Nom
.Name = "Nom"
' Type
.Type = dbText
' Taille
.Size = 255
' Option
.AllowZeroLength = True
End With
' ajout du champ
MyTable.Fields.Append Champ


Set Champ = MyTable.CreateField()
With Champ
' Nom
.Name = "Id"
' Type
.Type = dbLong
' Taille
'.AllowZeroLength = True
End With
' ajout du champ
MyTable.Fields.Append Champ


'Ajout de la nouvelle table à la base de données
Base.TableDefs.Append MyTable

End With


End Sub

Merci perathoner 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 88 internautes ce mois-ci

Messages postés
84
Date d'inscription
jeudi 18 septembre 2003
Dernière intervention
29 décembre 2006
- 13 juin 2005 à 14:34
0
Merci
Salut !

Je pense que les chaînes vides sont autorisées par défaut qd tu crées une nouvelle table. Je sais que pour éviter les chaînes vides il faut mettre la propriété NOT NULL pour le champ.

Voila !

A+
Messages postés
90
Date d'inscription
dimanche 5 novembre 2000
Dernière intervention
26 juillet 2006
- 13 juin 2005 à 15:51
0
Merci
Merci à toi d'avoir répondu steppenwolf.

Ba non en fait quand tu crée une table, les champs ont pas par défaut la valeur nulle autorisée. C'est bien là mon Pb.... Je sais le faire à la main y a pas de Pb, mais il faut que mon appli le fasse pour l'utilisateur (....mon cahier des charges....)

Si tu as d'autres propositions... n'ésite pas à m'en faire part ....

Si de plus qq'un à une idée merci de me répondre...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.