فتح ملف اكسس محمي ببسورد
#1
أساتذتي الأفاضل

أرجو مساعدتي في أنشاء بريمج
عمله عند الضغط علية يقوم مباشرة فتح قاعدة أكسس محمية بباسورد

ويتم تعبئة الباسورد تلقائيا عبر البريمج
وهنا تنتهي مهمته
ويتم عمل كل هذا في الخفاء وصمت وطبعا لا يظهر أي من فروم دلفي


طبعا مازلت جديد العهد على لغة دلفي 


هذا كود من أحد الاخوة

كود :
   var
xls, xlw: Variant;
begin
{load MS Excel}
xls := CreateOLEObject('Access.Application');
{open your xls-file}
xlw := xls.WorkBooks.Open(FileName := 'd:\QaThi.v2.accdb', Password := 'Ali123',
ReadOnly := True);
xlw := UnAssigned;
xls := UnAssigned;
end;


وهذا رابط البروجكت 
مع ملف أكسس وباسورد الملف

https://drive.google.com/file/d/14rAPuUw...IBuSVT9Y9I



بعد عدة محاولات لم تنفع تظهر رسالة خطا ولا يقوم بفتح ملف أكسس
الرد
#2
كود :
var
Access: Variant;
begin
hide;

   try
    Access := GetActiveOleObject('Access.Application');
  Except
    Access := CreateOleObject('Access.Application');
  end;
  Access.OpenCurrentDatabase ('C:\Users\MonPC\Desktop\Nouveau dossier (2)\ApPro.accdb', false, 'Ali123');

Application.Terminate;

غير مسار قاعدة البيانات و نفذ
الرد
#3
(12-12-2019, 09:55 PM)larbiparadox كتب :
كود :
var
Access: Variant;
begin
hide;

   try
    Access := GetActiveOleObject('Access.Application');
  Except
    Access := CreateOleObject('Access.Application');
  end;
  Access.OpenCurrentDatabase ('C:\Users\MonPC\Desktop\Nouveau dossier (2)\ApPro.accdb', false, 'Ali123');

Application.Terminate;

غير مسار قاعدة البيانات و نفذ

أشكرك أستاذي larbiparadox على ردك
سعدت جدا بذلك

قمت بتجربة الكود على ويندوز 10 وافس أصدار 2010 و2016 فاشتغل تمام

لكن عند تجربته على ويندوز 7 تظهر رسالة ( سلسلة الفئة غير صحيحة. )

أستاذي أذا تفضلت .. أريد كود يعمل على جميع الويندوز وليس 10 

كما لا أنسى مشكلة أخرى وهي: 
أن الكود السابق يظهر شاشة أكسس .. وقد قمت بأدراج كود في ملف أكسس لأخفاء لشاشة أكسس
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف