اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

يا شباب الـADO


egyman

الردود الموصى بها

يا شباب أرجوا منكم مساعدتى أريد أن أكتب برامجي مستخدماً ADO و أنا استخدمها بالفعل فى برامج الفيجوال بيسك

و لكن المشكلة عندي مع برنامج الأكسيس هى جملة الربط

فهلا ساعدتمونى و لكم الشكر فى هذا الموضوع

رابط هذا التعليق
شارك

شكراً أخي أمجد على الرد

و لكن سؤالي هو رأيت برامج عن طريق الأكسيس فقط يتم فيها التعامل بتقنية ado و dao

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

فأيهما يصلح للتعامل مع الشبكة المحلية

و ما هى طريقة الربط لل ado

علما بأنى أعمل على نسحة access 2000

رابط هذا التعليق
شارك

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

في الحقيقة اخي الكريم في الفترة الاخيرة بدأت اتبع طريقة Ado للوصول الى البيانات اثناء العمل ضمن ال VBA

فلا داعي لأن تحتار ايضاً بين استخدام ال Dao وال Ado في برنامجك ومنذ ان اصدر Access 2002 فلم تعدل شركة مايكروسوفت في Dao اي شيء حيث اضافت عليه فقط تصحيحاً لبعض الأخطاء.

والفرق بين الاثنين هو ان Dao يقتصر فقط على محرك Jet

بينما تستطيع التعامل مع Ado في شبكة الانترنت وبشكل اسهل واكثر شمولية من السابق

وتستطيع ان تقول بأن ال Dao بدئ يتلاشى او ينقرض وعليك الان بتطوير برنامجك Ado بدون ادنى شك بإذن الله

هذا رأي من خلال تجاربي

وافسح المجال لأهل الخبرة

تحياتي

ابو نادر

رابط هذا التعليق
شارك

بسم الله الرحمن الرحيم

سلم الله عملك وقولك أخي أمجد ما ذكرته لا يحتاج الى تعقيب أوفيت وكفيت وجزيت عنا خيرا من الله رب البيت

أخيك سهل احمد ( ابو نعيم )

رابط هذا التعليق
شارك

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

يتألف ال 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

ارجو ان اكون قد وفقت في شرحي

واي واحد عنده استفسار انا جاهز بإذن الله

تحياتي

ابو نادر

رابط هذا التعليق
شارك

شكراً شكرً أخي أمجد و الله ما قصرت ... و سأجرب كل الأكواد التى كتبتها

و لكن أنا جربت من قبل جملة currentproject.connection

و أعطى لي رسالة خطأ ...

و هل الأكواد السابقة ستعمل مع نسخة 2000

و شكراَ لك

رابط هذا التعليق
شارك

  • 2 weeks later...

السلام عليكم

يا أخ أمجد المحترم

أنا عندي ملف مصمم على أوفيس 2000

و قمت منذ فترة بتحميل أوفيس اكس بي بدلا عنه , و كان الملف يعمل بشكل جيد

بالرغم من وجود أكواد مجموعة السجلات DAO فيه

و عندما أضفت كود جديد لمجموعة dao لم يستطع التعرف عليه , لذلك قمت باضافته

الى module -references

و عمل بشكل جيد

و لكن اليوم أحاول تجزئة الملف الى ملفين واحد قاعدة بيانات و الآخر النماذج و توابعها

لم يتعرف مطلقا على رموز ال DAO التي أصبحت موجوده في الملف الجديد الخاص بالنماذج .

بالرغم من أنني أضفت الى المرجع أدوات ال dao

كيف يمكن التخلص من هذه المشكله ؟

رابط هذا التعليق
شارك

اخي الكريم تم حل المشكلة

وهي في التصريح عن المتغيرات

هنا تكمن المشكلة شوف

Dim rst As Recordset
الطريقة الصحيحة للتصريح هي
Dim rst As DAO.Recordset

تحياتي

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information