Discussion :

[denrette]

j'utilise une connection à une base SQL Server en utilisant les composants ADO.

Je cherche à savoir si un champ peut être null ou non, j'utilise donc
la propriété required, mais il y a surement un bug, la valeur renvoyée vaut toujours false, quelque soit le champ, qu'il puisse ou non être null.

Quelqu'un a t il constaté ce bug ? si oui, existe t il une mise à jour des composants ?

ou bien comment faire autrement pour savoir si un champ peut être null ou non ?

Merci d'avance pour votre aide !!!

[denrette]

je remonte le sujet car je n'ai reçu aucune réponse.

Personne ne peut m'aider ??? Allez, SVP ????

[bidou]

avec quel code ?

[denrette]

Code :

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

1
2
3
4
5
6
7
ma table test :
CREATE TABLE TEST (
  CODE VARCHAR(15) NOT NULL,
  TYPE  INTEGER NOT NULL,
  LIBELLE VARCHAR(100),
  PRIMARY KEY (CODE, TYPE)
);

mon code :

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
var la_requete : TStringList;
 
procedure TForm1.Button1Click(Sender: TObject);
var query : integer;
begin
  la_requete := TStringList.Create;
  Application.CreateForm(TDataModule2,DataModule2);
  DataModule2.ADOConnection1.Connected := True;
  la_requete.Clear;
  la_requete.Add('SELECT CODE, LIBELLE, TYPE FROM TEST ');
  la_requete.Add('WHERE TYPENREG = 200');
  la_requete.Add(' AND CODE = '+ quotedstr('200'));
  query := creation_nouveau_query;
  DataModule2.le_query_ADO.SQL := TStringList.Create;
  DataModule2.le_query_ADO.SQL := la_requete;
  DataModule2.le_query_ADO   .Open;
  DataModule2.le_query_ADO  := TADOQuery(FindComponent('Query'+IntToStr(query)));
   if DataModule2.le_query_ADO.FieldByName('CODE').Required = False then
    Edit1.Text := 'False'
  else
    Edit1.Text := 'True';
  DataModule2.le_query_ADO.Close;
end;

la valeur renvoyée est false au lieu de true !!!


[Balise [code] rajoutée par Seb]
[Pensez-y vous-même à l'avenir. Merci.]

[bidou]

Code :

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

if DataModule2.le_query_ADO.Recordser.Fields['CODE'].Attributes And 32  = 0 Then //c'est vrai

[denrette]

Code :

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

if DataModule2.le_query_ADO.Recordser.Fields['CODE'].Attributes And 32  = 0 Then //c'est vrai

merci beaucoup, ça marche, c'est l'essentiel, mais pourrais tout de même avoir une explication pour comprendre ????

[bidou]

L'objet Tfield ne contient pas exactement l'objet Field sous-jacent dans ADO.
Lorsque tu fais appel à la propriété Required, tu as une réponse correct avec des objets persistant,, mais pas avec des objets dynamiques (ton cas).
Pour savoir si le champ est obligatoire, tu dois aller lire la propriété Attributes de l'objet champ ADO.
Celle-ci est un masque qui contient 32 si le champ est obligatoire.