كيف أنقل برنامج بقاعدة بيانات absolute database لجهاز آخر

[مبرمج مبتدأ]

السلام عليكم و رحمة الله و بركاته

قمت ببرمجة برنامج باستخدام قاعدة البيانات absolute database لكن كيف أنقل البرنامج لجهاز آخر و يعمل البرنامج بدون طلب مسار قاعدة البيانات.
فضلا، شرح تفصيلي لأني استعملت خاصية البحث في المنتدى و لم استفد من المواضيع السابقة.

[/align]

[لؤي]

السلام عليكم

إستعمل خاصية المشاركة Partage /sharing مع إعطاء الرابط الصحيحح أين تمكن قاعدة بياناتك و صلاحيات الولوج
مثال:

كود :

\\192.17.9.5\mydata\database.abs

[makhlouf]

السلام عليكم و رحمة الله تعالى و بركاته:
أما إن كنت تعمل على السرفير فاستعمل الدالة ExtractFilePath(Application.ExeName)
مثال:

كود :

procedure tform1.connbase; var s:string; begin s:=ExtractFilePath(Application.ExeName) ; ABSDatabase1.DatabaseFileName:=s+'\'+'database.abs'; ABSDatabase1.Connected:=true; end;

بالتوفيق

[مبرمج مبتدأ]

جزاكم الله خيرا، سأجربها ان شاء الله تعالى

[مبرمج مبتدأ]

الحل هو وضع هذا الكود في OnCreate الخاص بالـ Form الرئيسي

كود :

[COLOR=#000000] ABSDatabase1[COLOR=#007700].[/COLOR][COLOR=#0000BB]DatabaseFileName [/COLOR][COLOR=#007700]:= [/COLOR][COLOR=#DD0000]'Data\db.ABS '[/COLOR][COLOR=#007700]; // القاعدة موجودة في ملف Data [/COLOR][COLOR=#0000BB]ABSDatabase1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Connected [/COLOR][COLOR=#007700]:= [/COLOR][COLOR=#0000BB]True[/COLOR][COLOR=#007700]; [/COLOR][COLOR=#0000BB]ABSTable1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]TableName [/COLOR][COLOR=#007700]:= [/COLOR][COLOR=#DD0000]'Table_Name'[/COLOR][COLOR=#007700]; // غير اسم الجدول إلى ما يناسبك [/COLOR][COLOR=#0000BB]ABSTable1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Active [/COLOR][COLOR=#007700]:= [/COLOR][COLOR=#0000BB]True[/COLOR][COLOR=#007700];[/COLOR][/COLOR]