19-02-2016, 04:20 AM
السلام عليكم ورحمة الله وبركاته,
احبابي الكرام
اسال عن كيفية انشاء قاعدة بيانات اكسس محمية [b]بكلمة سر متصلة بدلفي دينامكيا حتى لا تقع مشاكل عند تغير المسار لقد وجدت هذا الكود ولكنني لم استطع الاتصال[/b]
مع الشرح الوافي جزاكم الله خيرا.
احبابي الكرام
اسال عن كيفية انشاء قاعدة بيانات اكسس محمية [b]بكلمة سر متصلة بدلفي دينامكيا حتى لا تقع مشاكل عند تغير المسار لقد وجدت هذا الكود ولكنني لم استطع الاتصال[/b]
كود :
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;مع الشرح الوافي جزاكم الله خيرا.