U3F1ZWV6ZTE2NDc0NjU4NzMzX0FjdGl2YXRpb24xODY2MzUxNTU0OTg=
recent
أخبار ساخنة

قم بجعل إتصالك بقاعدة البيانات ديناميكياً Connection to the database dynamically


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'
الاسمبريد إلكترونيرسالة