منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
بحث متقدم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : بحث متقدم (/showthread.php?tid=9325)

بحث متقدم - xebrahimx - 18-06-13

السلام عليكم ورحمة الله وبركاته

كيف استطيع انا ابحث بعدة شروط فى حين ان الشروط هى قيمة 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)


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

يعنى اكتب فى التكست الاسم مسافة العنوان مسافة رقم التلفون وابحث

بحث متقدم - محمود اكرم - 18-06-13

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

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

بحث متقدم - xebrahimx - 18-06-13

شكرا اخى محمود اكرم على الاجابة
ولاكن انا اعرف كيفية البحث
المقصود كيف ابحث باكثر من شرط من خلال قيمة واحدة لل text

[ATTACH=CONFIG]3043[/ATTACH]

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

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

بحث متقدم - VB_Coder - 18-06-13

السلام عليكم

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

كود :
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

- تحياتي .

بحث متقدم - محمود اكرم - 18-06-13

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

بحث متقدم - xebrahimx - 18-06-13

احسنت اخى VB_Coder جزاك الله كل خير

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