Barkod alanlarıma göre arama yaptırmak

[a_self_lion]

Selamlar.
Çıldırmak üzereyim sabahtan veri barkod olayını çözmeye çalışıyorum

vrsmlz diye tablomda

mlz_kod ack1 stk_kod mlz_barkod1 mlz_barkod2 mlz_brm_fiy1
1001 kitap 7005 123456 885565 5
1001 kitap_2 7005 45685 5
1002 defter 7006 4568 3
1005 xxxx xxx 8965 10

şeklinde devam eden bilgiler var

formuma ben bir adet edit1 koydum ve buraya barkodu okutuyorum

edit2 ye mlz_kod
edit3 e ack1
edit3 e stk_kod
edit4 e mlz_brm_fiy1 alanlarının
nasıl gelmesini sağlayabilirim.

görüldüğü gibi iki adet barkod alanım var buralarda uygun olanı bulup o satırdaki alanları getirmesi gerekiyor.

Yardımcı olursanız sevinirim.

[aslangeri]

a.s.
basit bir select sorgusu ile bu işleminizi halledebilirsiniz.

Kod: Tümünü seç

select xxxx
from vrsmlz where barkod1=yyyyy or barkod2=yyyyyyy

gibim bişey yani...
kolay gelsin.

[a_self_lion]

Sevgili aslangeri

olay bumudur yani

Kod: Tümünü seç

if Key = #13 then
begin
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add('SELECT * FROM VRSMLZ_VIEW WHERE VRSMLZ_BRC1 =''' + Edit7.Text + ''' or VRSMLZ_BRC2 =''' + Edit7.Text + '''');
AdoQuery1.Open;

Edit4.text := AdoQuery1.FieldByName('vrsmlz_kod').asstring;

bu şekilde devam etsem size göre nasıldır.

[conari]

Kod uygun.
AdoQuery1.SQL.Clear;
yaptığınızda query otomatik kapanır.close a gerek yok.
Edit yerine DBedit te kullanabilirsiniz.
kod yazmanıza gerek kalmaz.

Not:alternatif değerleri parametre ile gönderebilirsiniz.

[a_self_lion]

Kod uygun.
AdoQuery1.SQL.Clear;
Edit yerine DBedit te kullanabilirsiniz.
kod yazmanıza gerek kalmaz.

Not:alternatif değerleri parametre ile gönderebilirsiniz.

Bunu nasıl kullanabilirim. Biraz açabilirmisiniz.

[aslangeri]

Sevgili aslangeri

olay bumudur yani

budur.