الإخوة الكرام
السؤال كما ترون وأخوكم لو عرف هذه المسألة تفتح له أبواب كثيرة مغلقة
أرجو الإجابة بالتفصيل
أرجو المساعدة وجزاكم الله كل خير
كيف أستخدم ال ADO من داخل أكسس فقط
مغلق
انا ساجيب بصورة عامة وساترك التفصيل للاخوان الذين لديهم الوقت الكافي لذلك
على العموم ADO هي طريقة برمجية للتعامل مع جداول قاعدة البيانات من داخل فيجوال بيزك للتطبيقات في Access و في برمجيات مايكروسوفت الاخرى
على العموم للتعامل مع جدول عليك اعلان متغير من نوع جدول و وتغير يقوم بعملية الوصل مع قاعدة البيانات ، بالطبع هناك طرق اخرى كثيرة ولكن الطريقة التي اشرحها جيدة للمبتدئين
اليك كود الاعلان
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
و من ثم يمكننا فتح الجدول عن طريق الكود و ربطه ب
rs
Set cnn = CurrentProject.Connection
rs.Open "abc", cnn, adOpenDynamic, adLockBatchOptimistic
الكود السابق يفتح الجدول للقرائة والكتابة و بالطبع يمكن فتحه للقرائة فقط او للقرائة و الكتابة و يمكن تحديد طريقة التحديث في حال فتح الجدول من اكثر من مستخدم
و من هنا يمكن استخدام اوامر التنقل بين السجلات في الجدول للسجل الاول و الاخير و التالي و السابق بالاوامر التالية
rs.MoveFirst
rs.MoveNext
rs.MoveLast
rs.MovePrevious
يمكنك الحركة في كل السجلات بحلقة تكرارية كالتالي ايضا
rs.MoveFirst
Do Until rs.EOF
الكود الخاص بنا
rs.MoveNext
Loop
يمكنك اضافة سجل جديد ايضا بالكود التالي
rs.AddNew
الكود الخاص بنا
rs.Update
يمكنك فحص ان وصلت لبداية السجلات او لنهاية السجلات بفحص قيمة
rs.EOF ان كانت true يعني لقد وصلت الى نهاية السجلات في الجدول
rs.BOF ان كانت true يعني لقد وصلت الى بداية السجلات في الجدول
اما ان اردت فحص هل هناك اية بيانات في الجدول من الاساس فذلك يحدث بطريقتين ، ان فتحت الجدول للقرائة فقط فيمكن بالامر التالي
rs.RecordCount
فان كان اكبر من صفر هناك سجلات و يرجع عددهم
اما ان فتحت بالطريقة السابقة فالطريقة الوحيدة لفحص اذا هناك سجلات هي الامر التالي
If rs.EOF And rs.BOF Then
لا يوجد سجلات الجدول خالي
Else
يوجد سجلات الجدول مليان
End If
يعني هذا بعض الشيئ السريع على ADO في اكسس
اتمنى من الاخوة الاخرين الكتابة و توضويح الموضوع اكثر و توضيح الطرق المستخدمة منهم ايضا
بالمناسبة اضافة الى السابق فان طريقة استخدام ال ADO في Access هي نفس الطريقة التي يستخدم بها في
Visual Basic
Microsoft Word
Microsoft Excel
Microsoft PowerPoint
AutoDesk Autocad 2000
وغيرها من البرامج التي تدعم
Microsoft Visual Basic For Applications
استاذ خضر انت اكثر من رائع في الشرح
حقيقة الواحد لا يعرف كيف يمدحك او يشكرك ولكن شرحك ممتاز جدا
مع تحياتي
لا يتعلم العلم كل مستحي او مستكبر
أخي العزيز الفاضل خضر ترزي
تحية طيبة معطرة بعطر الفل والورد والياسمين.
لا أدري كيف أشكرك ، لقد فتحت لي أبواباً مغلقة كثيرة بهذا الشرح الممتاز وسوف أقدم لك خدمتين :
الأولى : الدعاء في ظهر الغيب لك بالتوفيق والنجاح والزيادة في العلم .
والثانية : أني لبيت طلبك في المساعدة في إنجاز كتابك والذي أستطيعه أنا هو من ناحية اللغة العربية وتصحيحها فإن أحببت فأنا طوع أمرك .
فمثلاً استشكلت هذه العلامة " " وهي تسمى علامة تنصيص .
أوجه النداء كما وجهه أستاذنا خضر وهو :
أن من لديه علم عن ADO فليتحف الموقع بها وأن لا نترك هذا الموضوع حتى نشبعه ويكون مرجعاً لكل عضو أو زائر .
وهو موضوع مهم للغاية
هذا الموضوع مغلق.