delphi&sgbd

Version imprimable

07/05/2004, 00h58
tcheni

delphi&sgbd

hi, j'ai un edit.text dans la quelle j'entre un nom
mon code : query.sql.add('select * from Tpatient');
query.sql.add('where nom='''+edit.text+'''');
---
---
quel est le code qui permet de faire une verification ou une condition dans le cas ou le nom que j'ai rentré sur l'edit n'existe pas dans la table...
merci

Pour ma part, j'ai utiliser la fonction LOCATE
Fdata : module de données
Qprod : requète active

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TFvente.ENumProdExit(Sender: TObject);
var option : TlocateOptions;
begin
  Option:=[loCaseInsensitive];
  try
   if not Fdata.Qprod.Locate('IdProd',StrToInt(ENumProd.Text),Option)
    then begin
      Showmessage('Produit non trouvé');
      ENumProd.Text:='1';
      ENumProd.SetFocus;
      end;
  except
    on EconvertError do ShowMessage('Vous devez saisir un nombre entier');
    end; // Try if not Fdata Except
end;

Marcel

07/05/2004, 07h55
Pascal Jankowski
Bonjour techni,

Tu peux comme le dit notre ami utiliser Locate, mais également exécuter la requête suivant:
Code:

1 2 'Select count(nom) from TPatient where nom = '+quotedStr(edit1.text);
Si le résultat renvoyé par la requête est positif strictement, alors le nom existe.

Dans ce, puisque tu utilises une liste fermée avec les nom de la table TPatient, pourquoi ne crées-tu pas une fiche modale avec une DBGrid
dont l'ensemble de résultats est obtenu avec la requête suivante ?
Code:

1 2 select distinct nom from TPatent order by nom;
te permettant d'obtenir la liste de tous tes patients sans doublon et triès par ordre alphabétique.

Puis à la fermeture de cette fiche modale, tu récupères dans ton composant Tedit, le nom du patient qui a été selectionné précédemment dans la modalForm.

Personnellement, dans une appli de base de données, je réalise toujours une fiche modale qui appelle une table et un champ principal afin de me permettre de chosir facilement la valeur d'un champ dans une liste fermée.

Cordialement