Discussion :

[julien41]

Salut,

Dans une Form j'ai un DBEdit et une DBLookupListBox.
Le DBEdit me permet d'ajouter dans une table T1.
La DBLookupListBox est connectée à la table T1 et se contente d'afficher les informations.

Je voudrais faire un test simple qui me permettrait d'afficher un message d'erreur si l'utilisateur ajoute un nom qui est déja dans la table.

Quelqu'un pourrait il me dire comment faire ce test svp et si possible me donner le code merci

J'ai essayer le code suivant mais sans résultat

Code :

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

1
2
3
 
if DBEdit.Text = DataModule.Table.FieldValues['ville']
       then  messagedlg('Cet enregistrement existe déja !',mtWarning, [mbOk],0)

[ketthy]

salut

tu peux essayer avec ca :

Code :

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

1
2
3
 
if DataModule.Table.locate('ville', DBEdit.Text, []) then
// ton message d'erreur

[julien41]

J'ai essayé ton code mais ça ne marche pas.

Dans ma table j'ai qu'un champ Ville et c'est ma clé primaire.
Lorsque je valide l'ajout dans le programme, J'ai un message d'erreur 'Violation de clé'.

En fait le test ne se fait pas donc delphi tente de l'ajouter et erreur de doublon.

merci d'avoir répondu.

[ketthy]

sinon tu peux essayer avec l'evenement BeforePost de la table

Code :

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

1
2
3
4
5
6
 
procedure TForm.TableBeforePost(DataSet: TDataSet);
begin
  if Table.locate('ville', Dataset.Field('ville').AsString, []) then 
  raise exception.create('message d''erreur');
end;

V'la sinon tu peux essayer avec l'evenement OnValidate de TField[/b]

[alexmorel]

Le plus facile est de rajoute une contrainte d'uniciter dans la base directement ....

[julien41]

Bonjour,

ketthy, j'ai un probleme avec ton code....

Code :

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

1
2
3
4
5
6
 
procedure TForm.TableBeforePost(DataSet: TDataSet); 
begin 
  if Table.locate('ville', Dataset.Fields('ville').AsString, []) then 
  raise exception.create('message d''erreur'); 
end;

Il y a une erreur "Opérateur ou point virgule manquant" près de ('ville') à Dataset.Field('ville').

alexmorel, peux tu m'en dire plus sur les contraintes d'uniciter, comment ça marche et ou ça se trouve.
J'utilise une base Access.

merci à vous

[alexmorel]

Voilà tu clique dans Access sur le champ approprié

1) tu vas dans l'onglet général en bas de page..
2) sur indexé tu selectionne "oui- Sans doublon"
3) Message si erreur "Vous ne pouvez rentre 2x la meme valeur"

Et voilà

[julien41]

Merci alexmorel, mais ça ne change rien.

Toujours erreur de violation de clé

[alexmorel]

Voilà un test

Code :

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

1
2
3
4
5
6
7
8
9
 
 
With Query do
  Begin
     SQl.Clear;
     SQL.Add(Select count(*) from ta_table where le_champ='''+DBEdit.Text +''');  //On recherche combien de fois il existe
     Execute;
     If Field(0)=0 Then Showmessage('ok');   //si n'y est pas dans la base
  End;

Voilà transforme comme tu veux

[julien41]

SQL n'est pas reconnu par Delphi,

j'utilise Delphi 4 entreprise et Access 2000.

Est ce que cela vient de Delphi ou je dois mettre quelque chose devant SQL.clear ?

[alexmorel]

sa doit exister Query.sql.clear;

tu utilise quel composant ...

[julien41]

Oui ça existe, j'ai mis devant

Code :

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

1
2
 
DataModule.Query.SQL.Clear;

Par contre mon DBEdit est connecté sur une table et non sur une requête. Pour ajouter j'utilise le code suivant...

Code :

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

1
2
 
DataModule.Table.insert;

[alexmorel]

Met un Tedit normal et tu test avant ajout !!

Euh et je crois sinon que sur ta_table tu as l'option BeforeConnect... ou une option du genre before...

C'est avant insertion execute ce test et si positif continu sinon tu termine

[julien41]

Je ne sais pas ajouter dans une base de donnée d'une autre manière qu'avec les DBEdit.

Je suis un débutant.

[alexmorel]

Tu crée un Query.

Code :

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

1
2
3
4
5
6
7
8
9
 
With ton_query Do
  Begin
     Active:=false;
     Sql.Clear;
     Sql.Add('Insert into ta_table(champ1, champ2, ...) values(valeur_cahmp1, valeur_cahmp2, '+ton_tedit.text+')');
     Execute;
     Active:=True;
  End;

Et voilà !!

Pose si t'as d'autre question

[julien41]

il y a une erreur sur execute : identificateur non déclaré.

Merci beaucoup en attendant

[alexmorel]

excuse sais

Code :

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

1
2
 
ExecSQL

sa doit etre sa

[julien41]

J'ai voulus envoyer un champ dans une table seulement en cliquant sur un bouton.

La table est composée que d'un champ..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm.Button1Click(Sender: TObject);
begin
     With DataModule.Query1 Do
  Begin
     Active:=false;
     Sql.Clear;
     Sql.Add('Insert into table (champ) values(TEST)');
     ExecSQL;
     Active:=True;
  End;
end;

Lorsque je clique sur le bouton j'ai une erreur SQL générale, trop peu de paramètres. 1 attendu.

Comment dois je faire pour envoyer une valeur dans un champ en cliquant seulement sur un bouton?

Merci

[alexmorel]

ta déclare dans ton Query sa connection ?

[julien41]

En fait j'ai trouvé pour la requete par contre pour ce qui est de la comparaison, le premier sujet que j'ai posté, je n'ai pas trouvé.

J'aimerais comparer un DBEdit avec une DBLookupListBox,
c'est a dire, lorsque je rentre un enregistrement dans mon DBEdit, si celui se trouve déja dans la DBLookupListBox, delphi renvois un message d'erreur.