السلام عليكم و رحمة الله .. الكل يعاني من مشكل المسار الثابت لقاعدة البيانات
أخص بالذكر قاعدة بيانات Access مع Delphi
المشكلة أنه إذا لم يتم وضع ملف قاعدة البيانات في المسار المطلوب و الذي تم الإتصال به سابقاً
ستواجه مشكل في الإتصال .. لذا في هذا الدرس إن شاء الله لن يكون هذا مشكل لك
الطريقة التقليدية للإتصال بقاعدة البيانات Access قمت بشرح فيديو لها
الآن .. لنقم بفتح مشروع جديد في Delphi .. و نضع المكونات الضرورية للإتصال
في حدث 
للفورم نضع الكود التالي
للفورم نضع الكود التالي
الخاص بالإتصال
------------------------------------------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
var passwd:string;
begin
passwd:='123456';
adoconnection1.ConnectionString:=
'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;'+
'Data Source='+extractfilepath(application.ExeName)+'\Test.mdb'+
';Mode=Share Deny None;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";'+
'Jet OLEDB:Database Password='+passwd+
';Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;'+
'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password='+passwd+
';Jet OLEDB:Create System Database=False;'+
'Jet OLEDB:Encrypt Database=False;'+
'Jet OLEDB:Don''t Copy Locale on Compact=False;'+
'Jet OLEDB:Compact Without Replica Repair=False;'+
'Jet OLEDB:SFP=False;';
adoconnection1.Connected:=true;
AdoTable1.TableName:='Table1';
Adotable1.Active:=true;
end;
------------------------------------------------------------------------------------------
Data Source='+extractfilepath(application.ExeName)+'\Test.mdb'
هنا قم بوضع ملف قاعدة البيانات في نفس مسار الملف التنفيذي
لو وضعت ملف قاعدة البيانات داخل مجلد إجعل Data Source كما يلي
Data Source='+extractfilepath(application.ExeName)+'\Dossier\Test.mdb'
النتيجة بعد تشغيل البرنامج
تم الإتصال بنجاح
إلى هنا ينتهي هذا الدرس البسيط حول جعل الإتصال بقاعدة البيانات ديناميكياً في Delphi
مدونة ديزاد سوفت التقنية
0 comments: