Delphi ve mdb veri hatası!

[burhangazioglu]

merhaba Arkadaşlar

procedure TForm1.mdb_ac(var veriyolu:string);
begin
adoconnection1:=tadoconnection.create(self);
adoconnection1.connectionstring:='Provider=Microso ft.Jet.OLEDB.4.0;Data Source='+ veriyolu +';Persist Security Info=False';
adoconnection1.loginprompt:=false;
adodataset1:=tadodataset.create(self);
adodataset1.connection:=adoconnection1;
adodataset1.commandtext:='select * from parseller';
adodataset1.open;


end;


procedure TForm1.sorgula(var ada,parsel:string);
begin
form1.ADOQuery1.close;
form1.ADOQuery1.SQL.clear;
form1.ADOQuery1.sql.add('select * from parseller where ada=:ada and parsel=:parsel');
form1.ADOQuery1.parameters[0].Value:=ada;
form1.ADOQuery1.parameters[1].Value:=parsel;

form1.ADOQuery1.Open;
IL:=form1.ADOQuery1.FieldByName('IL').AsString;
ILCE:=form1.ADOQuery1.FieldByName('ILCE').AsString ;
KOYU:=form1.ADOQuery1.FieldByName('KOY').AsString;
end;
program form1.ADOQuery1.parameters[0].Value:=ada; satırına geldiğinde 'list index out of bounds(0)' hatası veriyor nerede hata yapıyorum anlayamadım. Bilgisi olan arkadaşların yardımını bekliyorum.
Saygılarımla

[Ansugo]

Soyle bir yol deneyince ne diyor :

ADOQuery1.ParamByName('ada').AsInteger := ada;
ADOQuery1.ParamByName('parsel').AsInteger := parsel;

gibi gibi.

[burhangazioglu]

ADOQuery1.ParamByName yi tanımsız görüyor.

[Ansugo]

Sadece mantik yurutuyorum;

ADOQuery1.Parameters.ParamByName('ada').Value := ada;

[burhangazioglu]

merhaba Ansugo arkadaşım anlayışına teşekkkür ederim. Ben sorunu çözdüm. programıma devam ediyorum. Sorun ayarlardaymış. Kodlarda sorun yoktu..
bu konuda yardım için tek sen cevap yazman epeyce düşündürdü beni.......
Sana çok çok teşekkür ediyorum

[Ansugo]

burhangazioglu, mesajından alıntı:

bu konuda yardım için tek sen cevap yazman epeyce düşündürdü beni.......

Dusundurucu bir durum yok, demek ki kimsenin ilgisini cekmemis, kimsenin zamani yokmus, ya da okuyanlar konuyu bilmiyor/fikir yurutemiyor. Bunlardan biri olabilecegi gibi hepsi de olabilir.