منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : بحث متقدم
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته

كيف استطيع انا ابحث بعدة شروط فى حين ان الشروط هى قيمة textbox
مثلا
عند البحث فى جدول معين بشرط ان الحقل يساوى قيمة التكست بنكتب

Rs.Open "select * From name WHERE NAMEPRO = '" & Trim(Text1.Text) & "'", db

الفكرة هنا نفرض عندنا 3 حقول الاسم + العنوان + رقم التلفون

طبعا لازم يكون عندنا 3 text عشان ياخده القيمة منهم و الشرط يتحقق ويكون كود البحث

rs.Open("select * from tb1 where name like '" & t1.Text & "' and address like '" & t2.Text & "'and phone like '" & t3.Text & "' ", db)


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

يعنى اكتب فى التكست الاسم مسافة العنوان مسافة رقم التلفون وابحث
السلام عليكم ورحمة الله وبركاته
هذا السؤال كنت قد سئلت فيه موضوع سؤالين بسيطات حول قاعدة البيانات

وقد اجاب الاخ سجاد عليه بلغة C# وبعدها حولته الى فيجوال بيسك دوت نت على الموقع التالي http://www.developerfusion.com/tools/con...arp-to-vb/
ارجو ان هذا هو المطلوب والا ارجو ان تشرح اكثر لأني لم افهم هل تريد البحث عن شي بشرطين ام تبحث وان الشرط يتغير
شكرا اخى محمود اكرم على الاجابة
ولاكن انا اعرف كيفية البحث
المقصود كيف ابحث باكثر من شرط من خلال قيمة واحدة لل text

[ATTACH=CONFIG]3043[/ATTACH]

كما فى الصورة وضعت عنوان الشخص ورقم تلفونه والمهنه

اريد استخراج اسم الطالب بناء على معلوماته الثلاثة :confused:
السلام عليكم

- تستطيع تجزئة النص الموجود في التكست ، بشرط أن يكون كتابة الإسم ثم العنوان ثم رقم الهاتف متتالية وبالترتيب دائما تفصلها مسافه ، عندها تستطيع إستخدام كود التجزئة بهذا الشكل :

كود :
Dim Name,Adress,Tel As String
Dim AllData() As String

AllData() = Split(Trim(Text1.Text)," ")
Name = Trim(AllData(0))
Adress = Trim(AllData(1))
Tel = Trim(AllData(2))

rs.Open "select * from tb1 where name like '" & Name & "' and address like '" & Adress & "'and phone like '" & Tel & "' "، db،2,1

- تحياتي .
VB_Coder كتب :rs.Open("select * from tb1 where name like '" & Name & "' and address like '" & Adress & "'and phone like '" & Tel & "' ", db)
شكرا لك اخ VB_Coder ولكن ما هو db
احسنت اخى VB_Coder جزاك الله كل خير

هذا ما اقصده بالظبط Smile