[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