listeletme sorunu

[beyaz_01]

Merhaba Arkadaşlar Daha önceden veritabanı olarak paradox kullanıyordum.sorgulama yaparken desteklemediğinden şimdi acces kullanıyorum.Daha önceden Query ile sorgulamam çalışıyordu şimdi
adoQuery kullanıyorum.Çalışmıyor.Sizlerin verdiğiniz kodlara değişiklik yaptım.Bu kodların neresi yanlış,
procedure TStok_G.RadioButton1Click(Sender: TObject);
var
a:string;
begin
a:='12';
begin
AdoQuery1.Close;
AdoQuery1.SQl.Clear;
AdoQuery1.SQL.Add('select Kodu ,Malzeme_Cinsi from Malzeme where kodu like:a');
AdoQuery1.Parameters.ParamByName('a').Value:=a+'%';
ADoQuery1.open;
DBLookupcombobox1.Datasource:=Datasource1;
Dblookupcombobox1.datafield:='Malzeme';
Dblookupcombobox1.listsource:=DataSource2;
Dblookupcombobox1.listfield:='Malzeme_Cinsi';
Dblookupcombobox1.keyfield:='Kodu';

Çok Teşekkür ederim Yardımlarınızda dolayı.

[P206]

Selamlar

Verdiği Hatayı bildirirsen daha açıklayıcı olur ve cevap alman kolaylaşır.

İyi Çalışmalar.

[Ali Erdoğan]

Aldığın hata kodunu yazsan daha iyi olurdu.Ancak sanırım a nın türünde bir karışıklık var string-integer...

[beyaz_01]

Şu şekilde hata mesaji veriyor.
Dubugger Exception Notification
Yanlış Türdeki değişken kabul edilebilir aralık dışında veya bir başkasıyla çakışan bağımsı değişkenler kullanıyorsun.
Not (a).asstring Şeklindeydi ben denemek için value Kullandım:Daha Önce query çalişıyordu.Adoquery farklı olmaması lazım.
Yardımlarınız Teşekkürler.

[Ali Erdoğan]

Adoquery nin properties bölümündeküi parameters ın yanındaki butona tıkla.Orada "a" yı göreceksin.Ora datatype i uygun olan biçimde yani integer olarak seçmelisin.Bunun yanında bildiğim kadarı ile integer alanlarda like ifadesi kullanılmıyor.Bunun yerine "=" operatörünü kullan ve % işaretini kaldır.(Eğer alanın numerikse)

[beyaz_01]

string olarak kullanıyorum.Problem sadece adoQueryde çalışmaması.
Bu sorunu nasıl giderecem yazdığınız cevabları denedim.

[beyaz_01]

Arkadaşlar takıldım kaldım.Yardımcı olursanız.sevinirim.

[vedatkaba]

Kod: Tümünü seç

Try
with Query1 do
  begin
    Close;
    UnPrepare;
    Sql.Clear;
    Sql.Add('Select * from customer');
    Sql.Add('Where Company Like :A');
    Prepare;
    Params[0].AsString:=Trim(Edit1.Text)+'%';
    Open;
  end;
Except
  On Exception Do raise;
end;

bunu bir dene paradoxta çalışıordu..

[beyaz_01]

veri tabanım acces. AdoQuery kullanıyorum.Arkadaşlar Sabahtan Beri Bu sorunlara uğraşıyorum.Lütfen Cevap Yazarken Yukardaki Kod satırlarına Bakın.

[hbahadir]

.
AdoQuery1.SQL.Add('select Kodu ,Malzeme_Cinsi from Malzeme where kodu like:a');
.
Dblookupcombobox1.datafield:='Malzeme';
.

select ile malzeme isimli bir alanı seçmiyosun ki.