مشروع تعليمي بال Ado يوجد به بعض المشاكل و محتاجة

ملحوظة اخري وجدتها اثناء اختبار المشروع

دائماً الـ ِado يستطيع التعامل مع حقول فارغة في قاعدة البيانات

و احيانا يعطي رسالة القيمة NUll كيف نستطيع لاكود التغلب على المشكلة ده!

الرسالة:

invalid use of null.

حرب المشروع مرة اخري و اخبروني كيف نحل تلك المشاكل

phonebook.zip

أخى العزيز wise

سوف تجد فى هذا الرابط الدروس الخاصع عن ADO قام بوضعها الأخ هيثم و هى دروس ممتازه سوف تسعدك ان شاء الله على حل المشاكل الخاصه بمشروعك

اخي ghost_of_egypt !!!!

اين الرابط الذي تتكلم عنه؟؟؟؟؟؟

شكرا اخي على سرعة الرد

وجدته تحت افضل المواضيع للاخ فتحي عبدالله و هو صاحب و مشرف في منتدي الابداع الجميل

جزاك الله خيرا مرة اخري

[السلام عليكم

الاخ العزيز Wise انت فعلاً Wise

الحقيقة ناداراً ما ارى شخص يحاول ثم يسأل ... الغالبية يسئلون بدون اي محاولة ... الحقيقة

اهنئك اخي العزيز وارجوا ان افيدك .

السؤال الاول :

الكود صحيح ولكن يوجد لديك مشكلة في ترتيبه .

If txtSearch.Text = "" Then
' أذا كان التكست سيرش فارغ وضغط على الزر أظهر الرساله التاليه
MsgBox " من فضلك أدخل رقم الهاتف الذي تريد الأستعلام عنه ", vbInformation, "بحث عن رقم "
Exit Sub

Else
'txtSearch في حالة الكتابة للبحث في
Set Rs = New ADODB.Recordset
Rs.Open "select * from table1 where phone LIKE '" & txtSearch.Text & "'", db, adOpenStatic, adLockReadOnly
' تحديث القاعدة بنتيجة البحث
Update_Data
End If

If Rs.EOF Then
' أذا كان السجل غير موجود أو الرقم أعرض الرساله التاليه

MsgBox " تعذر العثور على هذا الرقم: " + txtSearch.Text + vbCr + "من فضلك أدخل رقم آخر", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, " بحث - رقم غير موجود "
'اعادة ملئ النموذج بجميع البيانات
'في حالة عدم ظهور اي نتيجة للبحث
fnRestoreData
End If

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

If txtSearch.Text = "" Then
    MsgBox "Plz Enter Phone Number"
    Exit Sub
    
Else
    Set Rs = New ADODB.Recordset
    Rs.Open "select * from table1 where phone LIKE '" & txtSearch.Text & "'", db, adOpenStatic, adLockReadOnly
    
    If Not Rs.EOF Then
         Update_Data
    Else
         MsgBox "Record Not Fount"
        fnRestoreData
    End If
End If

السؤال الثاني :

الحقيقة السؤال بسيط ولكن الاجابة هي الصعبة ... كان يجب على فهم الكود جيداً كي

اعرف الحل ... تتبع معي برنامج :

في البداية الامر الذي كتبته يعمل في حالة تحركت يمين ويسار بين البيانات

وقد جربت الالغاء وقد نفذت بنجاح

ولكن المشكلة كانت بعد البحث عن رقم هاتف معين ثم إلغاءه

طبعا في الخطوة لاولي انت تفتح قاعدة البيانات بطريقة مختلفة عن

الطريقة المستخدمة في البحث

القصد ان جدول البيانات الناتج في الطريقة العادية مختلف عن جدول البيانات الناتج

عن البحث ومواصفات الجدول الثاني ( جدول البحث ) معد للقراءة فقط

لذا يمكن التعديل او الالغاء فيه

' في البداية تفتح الجدول بها الامر 
' ركز في نهاية الامر اخر المتغير الاخير في كلا الحالتين
Rs.Open "select * from table1 ", db, adOpenStatic, adLockOptimistic

'  حال البحث
    Rs.Open "select * from table1 where phone LIKE '" & txtSearch.Text & "'", db, adOpenStatic, adLockReadOnly

غير للقراء فقط في الجدول الثاني وسوف تعمل بإذن الله

السؤال الثالث :

مشكلة التعديل هي تماماً مثل الاضافة ولكن نقص سطر واحد فقط .

Private Sub Command11_Click()

   '  ملغي Rs.AddNew
    Fill_data
    Rs.Update
    MsgBox "تمت عملية التعديل"

End Sub

اخي العزيز بخصوص التقارير انا اعمل على الكريستال ريبورت 9 ولم اعمل على التقارير

الخاصة بالفجول للأسف .

ارجوا اخي العزيز ان كون افدتك بعض الشئ ... متنياً لك التوفيق

ولا تتردد في طلب اي شئ اقدر عليه

والسلام عليكم

السلام عليكم

الملف بعد التعديل

phonebook.zip

اخي الكريم H a t e m جزاك الله كل خير

بدأت افهم ما تقوله بعد فترة من المحاولات و افهم ما تقوله

و لكن الان تواجهني مشاكل فنية مثل كيفية وضع رقم AutoNumber في حقل من نوع NUmber و المشكلة ليست في عمل رقم تلقائي مسلسل

المشكلة الحقيقية اذا كنت وضعت 10 سجلات مثلا 1و2و3و4و5و6و7و8و9و10

و قررت حذف السجل رقم 4 ففي حالة الحقل AutoNumber و اضفت سجل جديد سوف يأخذ هذا الحقل الرقم 11 و سوف يظل الرقم 4 فارغا صراحة حولت اكثر من مرة و لكن فشلت

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

فاذا كنت فادرا لي وضع كود مع الشرح فجزاك الله خيرا وان لم تقدر يكفي محاولتك معي

و السملا عليكم اخي