delphi4arab منتديات دلفي للعرب

كيف أحدد مسار قاعدة البيانات برمجيا ADOConnection
بحيث عند بدء تشغيل البرنامج تسند ل ADOConnection قيمة بها مكان قاعدة البيانات
مثلا: ExtractFilepath(application.ExeName)+'data\data1.mdb'
بحيث:
ExtractFilepath(application.ExeName) هو مسار ملف التنفيذ للبرنامج
'data\data1.mdb' هي قاعدة البيانات في المجلد data

السلام عليكم...

يمكنك ذلك عند ضبط الخاصية ConnectionStrin، مثلاً:

كود :
ADOConnection1.Close;
ADOConnection1.ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
  + IncludeTrailingBackslas(ExtractFilepath(Application.ExeName))
  + 'data\data1.mdb;Persist Security Info=False';
ADOConnection1.Open;

نرجو الاستفادة و السلام.

السلام عليكم
لم تجدي نفعا، هل هناك طريقة اخرى
شكرا والسلام

العبارة السابقة صحيحة
أضف المعلوملت المتعلقة بالجدول
adotable1.connection:=adoconnection1;
adotable1.tablename:=nom_table;
adotable1.active:=true;

nebchadelphi

Najy Ibraheem

nebchadelphi

aissa35