هل يمكن وضع اسم قاعدة البيانات(Access) في متغير

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

العبارة التي وضعتها خاطئة لأن البرنامج يبدأ بقرائتها قبل تعريف و تهيئة مربع النص أو أي أداة أخرى داخل النموذج .

لذلك الأفضل لك في حالتك هذه أن يقوم البرنامج بقراءة الملفات التي تنتهي بالامتداد mdb ويضعها داخل قائمة اختيار ( Combobox )

وبعد تحديد المستخدم للقاعدة التي يريد فتحها تقوم بإنشاء الاتصال .

ممكن شرح طريقة عمل هذه الطريقة

اخي العزيز انا اضع اسماء قواعد البيانات في قاعدة مستقلة ويجود بهذه القاعد اسم كل ملف اي بمعنى ان

القاعدة Ta31

والقاعدة Ta32

طبعا ويوجد في مسار البرنامج او مجلد البرنامج

قاعدتين Ta31.mdb و Ta32.mdb

نفس التركيب ولكن قل قاعدة تخص سنه مستقلة

اي الـ 1431 و 1432

ابغى اخذ هذه الاسماء واضعها في متغير لاستخدامها في جملة الاتصال حسب القاعدة المطلوب العمل عليها او السنه

تم التوصل إلى حل مؤقت

وربما دائما شكرا لهذا المنتدى مع اني لم اجد الحل فيه

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

على انامل اهل الخبرة والمعرفة جزاهم الله الف خير ووفقهم لما يحب ويرضى

للاستفاده توضع اسماء قواعد البيانات في قائمة كوم بكس Combobox

الإعلان عن متغير ليحمل فقط اسماء القواعد

Public Db_Name As String = Nothing

والإعلان عن متغير للاتصال

 Public ConStr As String = "provider=microsoft.jet.oledb.4.0;" & _
    "Data Source=" & Application.StartupPath & "\" & Db_Name & ".mdb"

Public Conn As New OleDbConnection(ConStr)

في فروم الـــ Module

وينصح دائما عمل جملة الاتصال فيه والله اعلم والسبب

التوفير وعدم تكرار اعلان اسم الفروم الذي يوجد فيه جملة الاتصال كل مره يتم فيه انشاء فروم جديد اي Class

استخدام

جملة with nameconnectionو end with

في الإجرائات التي يتطلب الاتصال بالقاعدة لتعبئة الــ DATASET

وغيرها

With Conn
            .ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
                                "Data Source=" & Application.StartupPath & "\" & Db_Name & ".mdb"
            .Open() ' فتح الاتصال
        End With