الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف يمكن وضع إشارة في الاماكن الخالية في الجداول ؟

مغلق
بدأه darkhunter في 24 ديسمبر 2002 · 5 رد · 807 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

سلام عندي داتا بيس ضخمة للغاية ... قمت بعمل برنامج بحث بالفجول بيسك وربطتها بهذه القاعده ... واستعلمت للبحث هذا الكود :

SQL = "select * from Mirsham where FirstName like " & sf & First.Text _

& sl & " AND LastName like " & sf & Last.Text & sl & " AND father like " _

& sf & father.Text & sl & " AND city like" & sf & city.Text & sl _

& " AND id like " & sf & id.Text & sl & " AND Mikud like " & sf & zip.Text & sl _

& " AND telkid like " & sf & telcode.Text & sl _

& " AND TelNum like " & sf & telnumtxt.Text & sl _

& " AND Mother like " & sf & mothertxt.Text & sl _

& " AND BirthDate like " & sf & birth.Text & sl

المشكله في هذا الكود اذا كان مكان في احد هذه الجداول فارغ فإنه يتجاهله ولا يعطينا معلومات عنه .. مثلا اذا وضعنا بالبحث الاسم الشخصي وإسم العائلة وكانت كل التفاصيل لديه كاملة الا إسم الاب فإنه لا يظهر لنا المعلومات عن هذا الشخص معه إنه موجود في الداتا بيس ...

فيا ريت إلي بعرف كيف ممكن وضع نجمة * في الاماكن الفارغه في الحقول الفارغه يقولي ... او اذا في طريقة بالفجول بيسك ...

شكرا سلفا ... وتحياتي لكم ...

#2

أخي الكريم

كان من المفترض أن تطرح هذا السؤال في منتدى الفيجوال

على كل ليس الحل الصحيح هو أن تعبئ الحقول الفارغة في الجدول وإنما الحل أن تكتب عبارة الاستعلام بشكل صحيح وهذا يتطلب منك أن تتجاهل الحقول التي لم يدخل في المستخدم أي شيء في فورم البحث

لعمل ذلك استخدم دالة for each control in form التي تمكنك من فحص كافة الحقول الموجودة في النموذج لمعرفة الحقول التي استخدمها المستخدم ومن ثم وضعها في عبارة sql وتجاهل بقية الحقول

في الرابط التالي ستجد لي موضوعاً حول البحث شرحت فيه طريقتين آمل أن تستفيد منه

كيف تتيح للمستخدم البحث بأي حقل من حقول البيانات ـ أبو هاجر (1)

http://www.arabteam2000.com/vb/show...ht=%E5%C7%CC%D1

أخوك / أبو هاجر

#3

اخي ابو هاجر ... أرجوك ان تكتب لي كيفيه إستعمال هذه الداله لأني لم أنجح في إستعمالها ... انا أقصد أين أكتبها بالضبط واذا امكن التعديل على الكود الذي كتبته انا ..

#4

الكود بعد التعديل

SQL = "select * from Mirsham "



If First.Text <> "" And IsNull(First.Text) = False Then

SQL = SQL & "Where FirstName Like '*" & First.Text & "*'"

End If

If Last.Text <> "" And IsNull(Last.Text) = False Then

    If SQL = "select * from Mirsham " Then

        SQL = SQL & "Where LastName Like '*" & Last.Text & "*'"

    Else

        SQL = SQL & " and LastName Like '*" & Last.Text & "*'"

    End If

End If

If father.Text <> "" And IsNull(father.Text) = False Then

    If SQL = "select * from Mirsham " Then

        SQL = SQL & "Where father Like '*" & father.Text & "*'"

    Else

        SQL = SQL & " and father Like '*" & father.Text & "*'"

    End If

End If

If city.Text <> "" And IsNull(city.Text) = False Then

    If SQL = "select * from Mirsham " Then

        SQL = SQL & "Where city Like '*" & city.Text & "*'"

    Else

        SQL = SQL & " and city Like '*" & city.Text & "*'"

    End If

End If



If id.Text <> "" And IsNull(id.Text) = False Then

    If SQL = "select * from Mirsham " Then

        SQL = SQL & "Where id Like '*" & id.Text & "*'"

    Else

        SQL = SQL & " and id Like '*" & id.Text & "*'"

    End If

End If



If zip.Text <> "" And IsNull(zip.Text) = False Then

    If SQL = "select * from Mirsham " Then

        SQL = SQL & "Where Mikud Like '*" & zip.Text & "*'"

    Else

        SQL = SQL & " and Mikud Like '*" & zip.Text & "*'"

    End If

End If

If telcode.Text <> "" And IsNull(telcode.Text) = False Then

    If SQL = "select * from Mirsham " Then

        SQL = SQL & "Where telkid Like '*" & telcode.Text & "*'"

    Else

        SQL = SQL & " and telkid Like '*" & telcode.Text & "*'"

    End If

End If

If telnumtxt.Text <> "" And IsNull(telnumtxt.Text) = False Then

    If SQL = "select * from Mirsham " Then

        SQL = SQL & "Where TelNum Like '*" & telnumtxt.Text & "*'"

    Else

        SQL = SQL & " and TelNum Like '*" & telnumtxt.Text & "*'"

    End If

End If

If mothertxt.Text <> "" And IsNull(mothertxt.Text) = False Then

    If SQL = "select * from Mirsham " Then

        SQL = SQL & "Where Mother Like '*" & mothertxt.Text & "*'"

    Else

        SQL = SQL & " and Mother Like '*" & mothertxt.Text & "*'"

    End If

End If

If birth.Text <> "" And IsNull(birth.Text) = False Then

    If SQL = "select * from Mirsham " Then

        SQL = SQL & "Where BirthDate Like '*" & birth.Text & "*'"

    Else

        SQL = SQL & " and BirthDate Like '*" & birth.Text & "*'"

    End If

End If
#5

الله يسلم إيديك يا اخ ابو هاجر على هالكود ... ولك الكود عسل وكلو تمام ....

شكرااااااااا أخي والله يوفقك دائما ...

#6

اخي ابو هاجر عمليه البحث صارت توخذ وقت أكبر بكثير بهذا الكود !!

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…