مسیر جدید برای adoconnection

[mojtaba0912433]

سلام به دوستان
یه راهنمایی به من مبتدی بکنید
چطور میشه یه مسیر جدید که فرضا در یه ادیت نوشته شده به ادو کانکشن داد
ممنو ن
گشتم نبود
ADOConnection1.ConnectionString:='Provider=Microso ft.Jet.OLEDB.4.0;Data Source='+getcurrentdir'1\1.mdb;Persist Security Info=False';
به مسیری که در یک ادیت هست تغییر مسیر بده کلا دیتا بیس عوض بشه

[Mask]

procedure TF_Main.FormShow(Sender: TObject);
var s:string;
begin
s:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'ban k.mdb;Persist Security Info=False';
ADOConnection1.ConnectionString:=s;
ADOConnection1.Connected:=True;
F_List.ADOQuery1.Connection:=F_Main.ADOConnection1 ;
F_Kar.ADOTable1.Connection:=F_Main.ADOConnection1;
F_Tarefe.ADOTable1.Connection:=F_Main.ADOConnectio n1;
F_List.ADOQuery1.SQL.Add('select * from tarefe');
F_Kar.ADOTable1.TableName:='kargar';
F_Tarefe.ADOTable1.TableName:='tarefe';
F_List.ADOQuery1.Active:=True;
F_Kar.ADOTable1.Active:=True;
F_Tarefe.ADOTable1.Active:=True;
end;