ما هو كود البحث في حقلين في نفس الوقت

#16 مارس 2005 في 17:51 صاحب الموضوع

RS.Open "SELECT * FROM [workers] WHERE [f1] LIKE '" & Trim(Text77) & "'", db, adOpenStatic, adLockPessimistic

هذا كود بحث في حقل واحد f1 كيف اجعل البحث في حقلين في نفس الوقت f1 وf2

من مواضيعي :

كود ضغط القاعدة بـwinzip

إجعل برنامجك يعمل على كل جهاز في العالم

النسخة الاحتياطية الاكثر تطورا على مستوى المنتديات

هذا الكود يحتاج لكثير من الذكاء وقليل من العمل

إليكم بعض المعلومات عن المكتبة الشاملة التي يجهلها الكثير وهي مصممة بالvb6

كيف أستطيع نقل اسم المدينة في اللستة الثانية الى اسم بلد آخر في اللسة الأولي عن طريق الكامبو بوكس وزر السهم

برنامجين مع السورس كود قديمين جداً

مثال كامل لــانشاء ملف txt*. النصي

الاداة رائعة جدا بكل المقاييس swbbtnba.ocx

كود ممتاز ؟ ومساعدة في الاضافة / الحذف

احلى حركة وجدتها اخيرا بعد وقت طويل

وأخيرا حصلت المعجزة : تحويل الفلم الى صورة متحركة وكانك تشاهد فلما Camtasia Studio

#26 مارس 2005 في 21:49

إستخدم المعامل Or أو المعامل And

اللهم أغفر لنا ولوالدينا ومعلمينا وأساتذتنا ومشايخنا وكل من له فضل علينا

إسطوانة كتب كامله فى الرياضيات

عمل تقرير ديناميكى

الكريستل ريبورت وإظهار الصور فى التقرير

الدرس الاول من دروس تعلم DAO بإستخدام الكود

الدرس الثالث من دروس تعلم DAO بإستخدام الكود

الدرس الرابع من دروس تعلم DAO بإستخدام الكود

كيفية إضافة بيانات إلى الملف التنفيذى دون التأثير على عمل الملف

#37 مارس 2005 في 08:12

بالضبط اخي ما قال الأخ رمضال ...

والكود هو كالتالي :

RS.Open "SELECT * FROM [workers] WHERE [f1] LIKE '" & Trim(Text77) & "' OR [f2] LIKE '" & Trim(Text78) & "'", db, adOpenStatic, adLockPessimistic

وبالتوفيق.

#47 مارس 2005 في 16:58

ليش زوت تكست اخر Text78 انا محتاج ابحث في تكست Text77

#57 مارس 2005 في 19:47

معليش دخات غلط على سؤال المهنا

#61 أبريل 2005 في 11:31

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

f1 , f2 ,f3

المشكلة هي في

"'", 
 "'", 
"';",

If Combo1.ListIndex = 0 Then
        If Option1.Value = True Then بكامل الكلمة
            RS.Open "SELECT * FROM [workers] WHERE [f1] LIKE '" & Trim(Text77) & "' OR [f2] LIKE '" & Trim(Text77) & "'", db, adOpenStatic, adLockPessimistic
'            RS.Open "SELECT * FROM [workers] WHERE [f1] LIKE '" & Trim(Text77) & "'", db, adOpenStatic, adLockPessimistic
        End If
        If Option2.Value = True Then بداية الكلمة
            RS.Open "SELECT * FROM [workers] WHERE [f1] LIKE '%" & Trim(Text77) & "';", db, adOpenStatic, adLockPessimistic
        End If
        If Option3.Value = True Then اخر الكلمة
            RS.Open "SELECT * FROM [workers] WHERE [f1] LIKE '" & Trim(Text77) & "%';", db, adOpenStatic, adLockPessimistic
        End If
        If Option4.Value = True Then          اي جزء في الكلمة
            
'            RS.Open "SELECT * FROM [workers] WHERE [f1] LIKE '%" & Trim(Text77) & "%';", db, adOpenStatic, adLockPessimistic
        End If
    End If