Discussion :

[fbalien]

Bonjour,

Est-il possible via un ttable ou tquery de savoir si un champ est la clé primaire
et s'il peut être null ou pas ?

Pour info j'utilise Delphi 7, comme base de données pour le moment sqlite3 avec le composant Aducom
par la suite SQL, Firebird

[Giovanny Temgoua]

Bonsoir,

Je propose ceci :

Code :

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

1
2
3
4
5
6
7
8
 
 With table1 do 
 for i := 0 to IndexDefs.Count - 1 do begin
     if ixPrimary in IndexDefs.Items[i].Options then 
        //le champ est un index
     if ixUnique in IndexDefs.Items[i].Options then
       //le champ est unique
 end;

ou recupérer les index dans une liste et vérifier si le champ que tu as s'y trouve :

Code :

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

1
2
ListBox1.Clear;
Table1.GetIndexNames(ListBox1.Items);

[fbalien]

bonsoir

merci king Faiser cela semble fonctionner pour les autres bdd mais pas pour sqlite
le composant asqlitetable n'a pas de propriété indexdefs

[Giovanny Temgoua]

Désolé, je ne suis pas un utilisateur de SqlLite. Essaies de trouver des infos avec google (ou peut être un autre membre pourra te proposer quelque chose)

A+

[fbalien]

J'ai trouvé

Avec le composant aducom il faut utiliser la méthode GetTableInfo du TASQLite3DB
Elle demande en paramètre le nom de la table et un tlist
En castant le TList avec un TASQLite3Field on a les propriétés

Code :

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

1
2
3
4
5
6
FieldName : String // Nom du champ
FieldPK     : integer // si = 1 cle primaire
FieldNN     : integer // si = 1 null non autorisé
il y a aussi
FieldType: string // type du champ
FieldDefault: string // valeur par defaut

[Balise code ajoutée par King Kaiser]

[mikelemerle]

Petit déterrage !

Je cherche à savoir si un champ ( parmi beaucoup ) est clé primaire et s'il est non null, à partir d'un ADOQuery et non d'une TTAble.
J'ai beau tester tous les paramètres de Fields, je ne trouve pas.
J'utilise déja :

Code :

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

1
2
ADOQuery.Fields[X].IsIndexField // Champs indexé ?
ADOQuery.Fields[X].DataType = ftAutoInc // Champs autoincrémenté ?

Avez vous une idée ?