+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : فتح ملف اكسس محمي ببسورد (/showthread.php?tid=10579)
فتح ملف اكسس محمي ببسورد - qathi - 12-12-2019
أساتذتي الأفاضل
أرجو مساعدتي في أنشاء بريمج
عمله عند الضغط علية يقوم مباشرة فتح قاعدة أكسس محمية بباسورد
ويتم تعبئة الباسورد تلقائيا عبر البريمج
وهنا تنتهي مهمته
ويتم عمل كل هذا في الخفاء وصمت وطبعا لا يظهر أي من فروم دلفي
طبعا مازلت جديد العهد على لغة دلفي
هذا كود من أحد الاخوة
كود :
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/14rAPuUwbc8WIanZ-6NY-mibGvb9nbyXY/view?fbclid=IwAR2_bFCZnKo_SCr8OJOBfGMvUj4LBUYdZlWQ8DpCdCakNp03bIBuSVT9Y9I
بعد عدة محاولات لم تنفع تظهر رسالة خطا ولا يقوم بفتح ملف أكسس
RE: فتح ملف اكسس محمي ببسورد - larbiparadox - 12-12-2019
كود :
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;غير مسار قاعدة البيانات و نفذ
RE: فتح ملف اكسس محمي ببسورد - qathi - 14-12-2019
(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
كما لا أنسى مشكلة أخرى وهي:
أن الكود السابق يظهر شاشة أكسس .. وقد قمت بأدراج كود في ملف أكسس لأخفاء لشاشة أكسس