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

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

قمت ببرمجة برنامج باستخدام قاعدة البيانات absolute database لكن كيف أنقل البرنامج لجهاز آخر و يعمل البرنامج بدون طلب مسار قاعدة البيانات.
فضلا، شرح تفصيلي لأني استعملت خاصية البحث في المنتدى و لم استفد من المواضيع السابقة.
[صورة: attachment.php?attachmentid=4178&stc=1&d=1385570829]

[صورة: attachment.php?attachmentid=4178&stc=1&d=1385570829]

[/align]

السلام عليكم

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

كود :
\\192.17.9.5\mydata\database.abs

السلام عليكم و رحمة الله تعالى و بركاته:
أما إن كنت تعمل على السرفير فاستعمل الدالة 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]

مبرمج مبتدأ

لؤي

makhlouf

مبرمج مبتدأ

مبرمج مبتدأ