Discussion :

[KOUTO]

Bonjour à tous en ce dimanche !!!

Voila je ne me souvient plus de la methode pour dire si le resultat de la requete est nul alors affiche tel ou tel message.

Code :

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

1
2
3
 
If query1.? = nil  then
showmessage: 'Il n'y a rien"

De plus j'ai une deuxieme question:

j'ai le reslultat d'une requete qui s'affiche dans une listbox.
Et à cote j'ai un tedit.

Je voudrais que losque l'on clik sur un element de ma listbox il soit recopier dans mon tedit?

j'ai voulu faire sa met pas bon:

Code :

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

Edit1.text := ListBox1.Items;

[Cl@udius]

Salut

A ta 1° première question, 2 possibilités:

Code :

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

1
2
 
  if Query1.IsEmpty then [...]

ou

Code :

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

1
2
 
  if Query1.RecordCount = 0 then [...]

A ta 2 ° question:

Code :

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

1
2
 
  with ListBox1 do Edit1.Text := Items[ItemIndex];

@+ Claudius

[KOUTO]

mais

Code :

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

if Query1.IsEmpty then [...]

sa c'est si la query1 est vide ou si le resultat de la query1 est vide? de toute facon j'ai testé sa marche c'est l'essentiel !!!!!


-------------------------------------------------------
et pour

Code :

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

with ListBox1 do Edit1.Text := Items[ItemIndex];

Par contre ce doe ne fonctionne pas . Rien ne s'affiche dans mon tedit...?

si j'ai bien suivi ton conseil de la derniere fois.

cela est comme si tu coder:

Code :

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

listbox1.edit1.text := items[itemIndex]

[Cl@udius]

mais

Code :

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

if Query1.IsEmpty then [...]

sa c'est si la query1 est vide ou si le resultat de la query1 est vide?

Si le résultat de la requête est vide !

Code :

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

listbox1.edit1.text := items[itemIndex]

Tout faux !

Equivalent à:

Code :

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

1
2
 
  Edit1.Text := ListBox1.Items[ListBox1.ItemIndex];

@+

[KOUTO]

desolé cl@udius mais sa fonctionne pas

Code :

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

 Edit1.Text := ListBox1.Items[ListBox1.ItemIndex];

rien ne s'affiche dans mon tedit??? bizarre vous avez dit bizarre???

[Cl@udius]

Tu as bien mis ce code sur le OnClick de la ListBox ?

[KOUTO]

non de mon tedit lol !!!

sa marche !!! dans la listbox

moi j'etais persuadé qu'il faller coder sur le tedit....


Merci une fois de plus Cl@udius !!!

[Cl@udius]

Y a pa de quoi !!
N'oublies pas le tchiot tag

@+ Claudius