الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

*كود* فتح قاعدة بيانات أخرى مربوطه

مغلق
بدأه falantokh في 16 مايو 2003 · 2 رد · 619 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته ..

أحبتي في الله

قمت بعمل قاعدتين الأولى للجداول والثانية للفورم

وكما تعلمون فإن عملية فتح قاعدة البيانات الحالية يتم عن طريق الكود :

()Set db =Currentdb

Set Lrst = db.OpenRecordset(" SELECT STATMENT;", dbOpenDynaset)

حيث أن جملة SELECT STATMENT تحتوي على SQL حسب المطلوب جلبه من قاعدة البيانات، و جملة dbOpenDynaset عندما نريد أن تكون قابلة للتعديل، ويمكن إستبدالها بـ dbOpenSnapshot وهي لجلب البيانات بدون تعديل عليها (للقراءة فقط).

حسناً ... هذا واضح،،،،،،، ولكن !! عندما تكون قاعدة البيانات مستقلة ومربوطة بالبرنامج كيف يتم الوصول إليها؟؟

حيث أن ()Set db =Currentdb تستخدم عندما تكون قاعدة البيانات (الجداول) موجودة داخل البرنامج أي قاعدة البيانات الحالية؟

حاولت أن أكتب :

"Set db ="C:Windowsdb1.mde ولكنها لم تنفع!!

حيث أن db1.mde هي قاعدة البيانات التي تم الربط عليها وهي بإمتداد .mde كما هو واضح ( هل يصح فتح هذه القاعده وهي بهذا الإمتداد أم يجب أن تكون بإمتداد .mdb) ؟ ... وبغض النظر عن إمتداد القاعدة سواء تم تحويلها أم لا .. كيف لي أن أكتب أمر في البرنامج لكي يفتح قاعدة البيانات db1.mde ويتم التعديل أو القراءة؟؟؟ مع العلم أن db1.mde لها كلة سر للقاعدة عند الفتح.

أرجو أن أكون بشرحي هذا أوضحت ما هي مشكلتي!! ولكم خالص شكري وتقديري.

#2

أخي الكريم:

على افتراض ما يلي:

1- قاعدة البيانات تحمل الاسم Db1 وتوجد في المشغل :C أي أن مسار قاعدة البيانات هو c:Db1.mde

2-كلمة السر على قاعدة البيانات هي 123

فيمكنك كتابة مايلي لفتح قاعدة البيانات هذه والتعامل معها:

Dim db As DAO.Database
Set db = DBEngine.OpenDatabase("c:Db1.mde", False, False, ";pwd=123;")
#3

اخي المزيني : الله يجزاك بالخير

هذا ما ابحث عنه .. جربت الكود واشتغل تمام الله يعطيك العافية وماقصرت.

والله إني أسعد عندما أرى أحد الردود يحمل اسمك لأنني أعلم مسبقاً إنه يحمل إجابة لتساؤلي .

ولكن هل لي أن أعرف ماهو عمل الـ False حيث أنها تكررت مرتين، فما عمل كل منهما.

وشكرا من الاعماق(f)(gift)(f)(gift)(f);)

هذا الموضوع مغلق.

مواضيع مشابهة