egyman قام بنشر أكتوبر 19, 2004 قام بنشر أكتوبر 19, 2004 يا شباب أرجوا منكم مساعدتى أريد أن أكتب برامجي مستخدماً ADO و أنا استخدمها بالفعل فى برامج الفيجوال بيسك و لكن المشكلة عندي مع برنامج الأكسيس هى جملة الربط فهلا ساعدتمونى و لكم الشكر فى هذا الموضوع
أمجد جمالي قام بنشر أكتوبر 24, 2004 قام بنشر أكتوبر 24, 2004 لم أفهم ما هو المطلوب بالضبط هل من الممكن ان توضح اكثر فالحمدلله خبرتي جيدة في ال Ado وال Dao تحياتي ابو نادر
egyman قام بنشر أكتوبر 24, 2004 الكاتب قام بنشر أكتوبر 24, 2004 شكراً أخي أمجد على الرد و لكن سؤالي هو رأيت برامج عن طريق الأكسيس فقط يتم فيها التعامل بتقنية ado و dao مثلما نفعل عند ربط الأكسيس مع الفيجوال بيسك فأيهما يصلح للتعامل مع الشبكة المحلية و ما هى طريقة الربط لل ado علما بأنى أعمل على نسحة access 2000
أمجد جمالي قام بنشر أكتوبر 24, 2004 قام بنشر أكتوبر 24, 2004 السلام عليكم ورحمة الله وبركاته في الحقيقة اخي الكريم في الفترة الاخيرة بدأت اتبع طريقة Ado للوصول الى البيانات اثناء العمل ضمن ال VBA فلا داعي لأن تحتار ايضاً بين استخدام ال Dao وال Ado في برنامجك ومنذ ان اصدر Access 2002 فلم تعدل شركة مايكروسوفت في Dao اي شيء حيث اضافت عليه فقط تصحيحاً لبعض الأخطاء. والفرق بين الاثنين هو ان Dao يقتصر فقط على محرك Jet بينما تستطيع التعامل مع Ado في شبكة الانترنت وبشكل اسهل واكثر شمولية من السابق وتستطيع ان تقول بأن ال Dao بدئ يتلاشى او ينقرض وعليك الان بتطوير برنامجك Ado بدون ادنى شك بإذن الله هذا رأي من خلال تجاربي وافسح المجال لأهل الخبرة تحياتي ابو نادر
سهل احمد العريشي قام بنشر أكتوبر 25, 2004 قام بنشر أكتوبر 25, 2004 بسم الله الرحمن الرحيم سلم الله عملك وقولك أخي أمجد ما ذكرته لا يحتاج الى تعقيب أوفيت وكفيت وجزيت عنا خيرا من الله رب البيت أخيك سهل احمد ( ابو نعيم )
أمجد جمالي قام بنشر أكتوبر 25, 2004 قام بنشر أكتوبر 25, 2004 السلام عليكم ورحمة الله وبركاته يتألف ال Ado من ثلاث مكتبات هي Activex data Objects الاصدار 2.5 Ado extensions for ddl and security الاصدار 2.5 Jet and Replication Objectsالاصدار 2.5 طريقة الاتصال مع قاعدة البينات الحالية Dim cnnLocal As ADODB.Connection Set cnnLocal = CurrentProject.Connection Debug.Print cnnLocal = CurrentProject.Connection طريقة الاتصال مع قاعدة بيانات اخرى سواء كانت على الشبكة او في اي مكان في الهارد Dim CnnNet As New ADODB.Connection CnnNet.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\DataBase\MyProject\MyProject.Mdb" Debug.Print CnnNet.ConnectionString CnnNet.Close انواع المؤشر وقفل السجلات adOpenKeyset لتحرير السجلات ضمن قاعدة بيانات الا انك لن تتمكن من رؤية تحريرات المستخدمين الاخرين adOpenForwardOnly مجمموعة سجلات للقراءة فقط ولكن بالاتجاه الأمامي حصراً adOpenStatic مجمموعة سجلات للقراءة فقط مثال على ذلك Dim RstDBProps As New ADODB.Recordset Dim cnnLocal As New ADODB.Connection Set cnnLocal = CurrentProject.Connection RstDBProps.Open "MyTbl", cnnLocal, adOpenForwardOnly Debug.Print RstDBProps!MyField RstDBProps.Close adLockOptimistic يمنع الوصول الى الى السجلات اثناء عملية الحفظ adLockPessimistic يمنع الوصول الى السجلات عند بدء التحرير adLockReadOnly يمنع الوصول الى السجلات من قبل المستخمين الاخرين مثال على ذلك Function Ap_GetDataBaseProp(StrPropertyName As String) As Variant Dim RstDBProps As New ADODB.Recordset Set cnnLocal = CurrentProject.Connection RstDBProps.Open "MyTbl", cnnLocal, adOpenDynamic, adLockOptimistic Ap_GetDataBaseProp = RstDBProps(StrPropertyName) RstDBProps.Close End Function هذه طرق الاتصال مع قواعد البيانات باستخدام Ado يوجد عدة امثلة قمت بتحميلها الى منتدى اوفيسنا وجميعها استخدم فيها ال Ado منها http://www.officena.net/ib/index.php?act=A...e=post&id=22584 وهذا http://www.officena.net/ib/index.php?showtopic=4375 وهذا المثال ايضاً لفتح قاعدة بيانات محمية بكلمة مرور http://www.officena.net/ib/index.php?showtopic=4129 ارجو ان اكون قد وفقت في شرحي واي واحد عنده استفسار انا جاهز بإذن الله تحياتي ابو نادر
egyman قام بنشر أكتوبر 25, 2004 الكاتب قام بنشر أكتوبر 25, 2004 شكراً شكرً أخي أمجد و الله ما قصرت ... و سأجرب كل الأكواد التى كتبتها و لكن أنا جربت من قبل جملة currentproject.connection و أعطى لي رسالة خطأ ... و هل الأكواد السابقة ستعمل مع نسخة 2000 و شكراَ لك
أمجد جمالي قام بنشر أكتوبر 25, 2004 قام بنشر أكتوبر 25, 2004 اخي العزيز عطيني رقم رسالة الخطأ او اكتب نص الرسالة تحياتي
rudwan قام بنشر نوفمبر 3, 2004 قام بنشر نوفمبر 3, 2004 السلام عليكم يا أخ أمجد المحترم أنا عندي ملف مصمم على أوفيس 2000 و قمت منذ فترة بتحميل أوفيس اكس بي بدلا عنه , و كان الملف يعمل بشكل جيد بالرغم من وجود أكواد مجموعة السجلات DAO فيه و عندما أضفت كود جديد لمجموعة dao لم يستطع التعرف عليه , لذلك قمت باضافته الى module -references و عمل بشكل جيد و لكن اليوم أحاول تجزئة الملف الى ملفين واحد قاعدة بيانات و الآخر النماذج و توابعها لم يتعرف مطلقا على رموز ال DAO التي أصبحت موجوده في الملف الجديد الخاص بالنماذج . بالرغم من أنني أضفت الى المرجع أدوات ال dao كيف يمكن التخلص من هذه المشكله ؟
أمجد جمالي قام بنشر نوفمبر 3, 2004 قام بنشر نوفمبر 3, 2004 السلام عليكم اخي الكريم ارفق الملفين الى المنتدى ان امكن او على ايميلي الخاص ajamali@acts-alsarh.com لك تحياتي
rudwan قام بنشر نوفمبر 4, 2004 قام بنشر نوفمبر 4, 2004 أخ أمجد أرفقت لك المثال و هو عبارة عن ملفين واحد قاعدة البيانات والآخر النماذج و اعذرني على كبر حجم الملفات
أمجد جمالي قام بنشر نوفمبر 4, 2004 قام بنشر نوفمبر 4, 2004 اخي الكريم تم حل المشكلة وهي في التصريح عن المتغيرات هنا تكمن المشكلة شوف Dim rst As Recordset الطريقة الصحيحة للتصريح هي Dim rst As DAO.Recordset تحياتي
rudwan قام بنشر نوفمبر 4, 2004 قام بنشر نوفمبر 4, 2004 شكرا يا أخ أمجد , و أريد أن اسألك , هل من الأفضل التحويل من DAO الى ADO ? أم لابأس من الاستمرار هكذا
أمجد جمالي قام بنشر نوفمبر 4, 2004 قام بنشر نوفمبر 4, 2004 السلام عليكم ورحمة الله وبركاته بدون ادنى شك عليك بالتحويل الى ADO اليوم قبل غد تحياتي حاول قراءة هذا الموضوع من البداية
أمجد جمالي قام بنشر نوفمبر 4, 2004 قام بنشر نوفمبر 4, 2004 السلام عليكم اخ رضوان هل انحلت المشكلة ام لا بإنتظار ردك انا تحياتي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.