أخواني الرائعين في هذا المنتدى الرائع :
السلام عليكم ورحمة الله وبركاته :
مساء الخير عليكم جميعاً
عنوان الموضوع يوحي لأول وهلة بأنه سهل جداً ولكن
السؤال :
كيف يمكنني أن أنشاء قاعدة بيانات فارغة، من داخل برنامج للأكسس
مثلاً من داخل برنامج الصادر والوارد أريد أن أضع زر أمر عند الضغط عليه ينشئ لي قاعدة بيانات فارغة أسمها مثلاً kk وأيضاً أريد أن أكون أنا من يحدد مسار القاعدة أو مكان إنشاءها ولا يكون للمستخدم أي دور سوى ضغط زر الأمر.
تحياتي أخوكم خلودي (f)
أخي الكريم خالد
السلام عليكم
ما زال السؤال سهلاً
استخدم الأمر Createdatabase بالصيغة التالية
Dim wspDefault As Workspace, dbs As Database
Set wspDefault = DBEngine.Workspaces(0)
Set dbs = wspDefault.CreateDatabase("c:KhaledKK.mdb")
تحياتي
أخوك / أبو هاجر
لا تنسى اخي خلودي ان تقوم بتنشيط الخيار ....
Microsoft DAO 3.6 Object Library
حيث من المفترض ان يقوم اكسس بذلك تلقائياً ولكن يجب ان تتأكد من ذلك
أخي العزيز أبو هاجر
عند الضغط على الزر تفتح النافذة البرمجية ويقف المؤشر عند
wspDefault As Workspace
أخي العزيز مبتدئ:
أين أجد
Microsoft DAO 3.6 Object Library
تحياتي خلودي (f)
يقف المؤشر لأنك لم تقم بتنشيط الخيار ... ويمكنك ان تصل اليه عن طريق فتح نافذة الكود ثم الذهاب الى قائمة الادوات العلويه ثم تذهب الى ---Toolsثم ---References وبعد ذلك سوف تجدها ضمن المراجع المضمنه,,
للعلم :
يجب ان تقوم بتنشيط هذا الخيار لأنك استخدمت في الكود كائنات الوصول للبيانات DAO التي تعتبر منظار نرى من خلاله البيانات.
أخي الكريم مبتدىء جدا ++ أخي أبو هاجر
بعد تنشيط Microsoft DAO 3.6 Object Library
إجتاز المؤشر النقطة التي كان يقف عندها وأصبح يقف عند
CreateDatabase
فما العمل ؟
تحياتي خلودي(f)
الأخ خالد
السلام عليكم
أعتذر عن الخطأ لأنني لم أجرب الكود ، جربه بعد التعديل
Dim wspDefault As Workspace, dbs As Database
Set wspDefault = DBEngine.Workspaces(0)
Set dbs = wspDefault.CreateDatabase("c:KK.mdb", dbLangArabic)تحياتي
أخوك / أبو هاجر
( ولا نتقدمك يا أستاذنا أبو هاجر )
ومن خلال ADO باستخدام ADOX
نشط الخيار في نافذة Tools----> References
Microsoft ADO Ext. 2.7 for DDL and Security
أو ما يقاربه
ثم استخدم الكود التالي لإنشاء القاعدة الجديدة
Dim cat As New ADOX.Catalog cat.Create "Provider='Microsoft.Jet.OLEDB.4.0';Data Source='c:new.mdb'" Set cat = Nothing
إلى الأخواني الأعزاء أبو هاجر + مبتدئ + أحمد الحربي
الف ألف شكر لكم جميعاً
بالنسبة لأبو هاجر الطريقة نجحت 100%
بالنسبة للأخ أحمد الحربي الطريقة نجحت 100%
ويبقى السؤال الأهم :
عندما أنقل البرنامج من جهازي الذي فيه الخيار منشط
Microsoft DAO 3.6 Object Library أو الخيار Microsoft ADO Ext. 2.7 for DDL
إلى جهاز آخر هل يعمل زر الأمر الذي يطلب فتح قاعدة البيانات الفارغة أم يتطلب تنشيط هذا الخيار في الجهاز الجديد وإذا كان يتطلب تنشيط الخيار فهل يوجد طريقة لتنشط هذا الخيار تلقائياً.
تحياتي لكم جميعاً أخوكم خلودي(f)
أخي الكريم خالد
السلام عليكم
أي مرجع تضيفه إلى قاعدة بياناتك يبقى حتى بعد نقلها إلى جهاز آخر بشرط أن يكون موجوداً في الجهاز الآخر وهذا بالطبع يحدث دائماً إذا استخدمت مكونان موجودة داخل أكسس أصلاً كما هو الحال مع المكونين السابقين
تحياتي
أخوك / أبو هاجر
يا " جابر عثرات الكرام "
أخوك خلودي(f)
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…