المشاركات : 57
المواضيع 21
:
: 1
الإنتساب : Aug 2019
السلام عليكم
رمضان مبارك
لدي مشروع دلفي وقاعدة بيانات MSaccess
استخدمت المكون FDConnection
عند تحزيم هذا المشروع ببرنامج Inno setup ونقله وتنصيبه في كمبيوتر آخر لا يعمل وتظهر رسالة خطأ
Acceser violation قمت بتتبع الخطأ فكان في مسار قاعدة البيانات
هل يمكن مساعدتي في كيفية ادراج ملف قاعدة البيانات بحيث لو تم عمل تنصيب للبرنامج في جهاز آخر ترفق من ضمن الملفات المدرجة في Programm files ويتم التعامل مع البرنامج على اي جهاز يتم تنصيبه عليه
المشاركات : 299
المواضيع 58
:
: 41
الإنتساب : Sep 2010
25-04-2020, 09:05 AM
(آخر تعديل لهذه المشاركة: 27-04-2020, 09:19 AM بواسطة أبو معاذ .
تعديل السبب: استعمال الوسم لعرض أوضح.
)
يجب ان يتعرف البرنامج على مكان قاعدة البيانات عند التنفيذ
و ان لا يكون البرنامج يتعرف عليها بواسطة المكون مباشر
عليك بالبحث عن Connection String
كمثال التعرف على قاعدة بيانات FireBird عند الملف التنفيذي:
PHP كود :
begin try FDConnection1 . Connected := False ; FDConnection1 . Params . DriverID := 'FB' ; FDConnection1 . Params . Database := ExtractFilePath ( Paramstr ( 0 ))+ 'GESTION.FDB' ; FDConnection1 . Params . Username := 'sysdba' ; FDConnection1 . Params . Password := 'masterkey' ; FDConnection1 . LoginPrompt := False ; FDConnection1 . Params . Add ( 'CharacterSet=utF8' ); FDConnection1 . Open ; FDConnection1 . Connected := true ; FDTable1 . TableName := 'PRODUITS' ; FDTable1 . Active := true ; except ShowMessage ( 'خطأ في قاعدة البيانات' );
وقل ربي زدني علماً
المشاركات : 57
المواضيع 21
:
: 1
الإنتساب : Aug 2019
شكرا الأخ bouh25 جربت الطريقة لكن لم تنجح
المشاركات : 501
المواضيع 275
:
: 575
الإنتساب : Sep 2011
وعليكم السلام و تقبل الله صيامكم
تكون الصيغة كالتالي
كود :
procedure TForm1.FormCreate(Sender: TObject);
var
CheminDB:string;
begin
CheminDB:=ExtractFileDir(Application.ExeName) +'\dbdemos.mdb';
if FileExists(CheminDB) then begin
with FDConnection1 do begin
Close;
with Params do begin
Clear;
Add('DriverID=MSAcc');
Add('Database=' + CheminDB);
end;
Open;
//------ Table ------
FDTable1.TableName := 'country' ;
FDTable1.Open;
end;
end else
ShowMessage(' la base de données n''existe pas!');
end;
* قاعدة البيانات تكون بجانب الملف التنفيذي ، إذا كانت في مجلد كمثال Data تكون الكتابة كما يلي
كود :
CheminDB:=ExtractFileDir(Application.ExeName) +'\Data\dbdemos.mdb';
يوجد مثال في المرفقات
الملفات المرفقة
FireDac base de donnees Access.rar (الحجم : 101.52 ك ب / التحميلات : 16)
المشاركات : 57
المواضيع 21
:
: 1
الإنتساب : Aug 2019
السلام عليكم
بعد تحزيم مشروع دلفي ببرنامج innosetup ونقله الى كمبيوتر آخر
تظهر هذه النافذة بعد التنصيب
المشاركات : 501
المواضيع 275
:
: 575
الإنتساب : Sep 2011
(30-04-2020, 09:36 PM) appakar كتب : السلام عليكم
بعد تحزيم مشروع دلفي ببرنامج innosetup ونقله الى كمبيوتر آخر
تظهر هذه النافذة بعد التنصيب
وعليك السلام
هل برنامجك مربوط بـ ODBC
المشاركات : 57
المواضيع 21
:
: 1
الإنتساب : Aug 2019
الاخ Larbiparadox
كيف يتم ربط البرنامج بالـ OBDC؟؟؟؟
المشاركات : 501
المواضيع 275
:
: 575
الإنتساب : Sep 2011
ربما الاوفيس غير مثبت في الجهاز
يمكنك تحميل هذا و تنصيه في الجهاز يحل المشكل
https://www.microsoft.com/en-us/download...x?id=13255
المشاركات : 57
المواضيع 21
:
: 1
الإنتساب : Aug 2019
السلام عليكم
جهاز الزبون يحتوي على Access ويشتغل بشكل عادي
لكن مشكل برنامجي مازال قائما
المشاركات : 501
المواضيع 275
:
: 575
الإنتساب : Sep 2011
(03-05-2020, 11:15 PM) appakar كتب : السلام عليكم
جهاز الزبون يحتوي على Access ويشتغل بشكل عادي
لكن مشكل برنامجي مازال قائما
وعليك السلام
اذا امكن ارسلي على الخاص برنامج التثبيت