كيف يتعرف البرنامج على قاعدة المعطيات اينما وجدت

[bouh25]

السلام عليكم ،
مرحبا بك مرة أخرى ،
لنجزئ المشكلة :
1- لا بد من استخراج المسار الكلي باستعمال الدالة   ExtractFilePath  نحتقظ به في متغير نصي و ليكن ThePath
بعد ذلك لا بد من تغيير في الخاصية ConnectionString    الخاصة ب ADOConnection1
وليكن ذلك في الحدث OnCreate  للفورم الرئيسي :

كود :

procedure TForm1.FormCreate(Sender: TObject); var ThePath : String ; begin    Thepath  := ExtractFilePath  (Application.ExeName);    ADOConnection1.Close;    ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+Thepath+'\base.mdb;Persist Security Info=False';    ADOConnection1.Connected := True;    ShowMessage('OK'); end;

لك جزيل الشكر اخي ابو معاذ و جعل الله لكل من كل حرف حسنة