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

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

بدأه sss_1111 في 4 سبتمبر 2008 · 3 رد · 572 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اريد عمل فورم لعملية بحث متقدم ... بحث يكون في الفورم 5 خيارات بحث (بالرقم او الاسم او الادارة او...) ...

يقدر المستخدم للبرنامج من ان يبحث بخيار واحد او اكثر من خيار (اي يبحث بالاسم او الاسم والرقم او الرقم و الادارة او كل الخيارات) وتطلعله النتيجة

ارجو المساااااااعدة بارك الله فيكم... وتقبلوا تحياتي :lol:

#2

اليك الفكرة

عمل متغير من النوع string يكون لحمل جملة sql التي ستأتي من الخيارات المتاحة للمستخدم

بمعنى انه الخيارات التي ستضعها ستكتب في الكود كمتغيرات لاسماء الحقول التي تريد البحث بها في جملة sql من خلال where

#3

مشكوووووور اخوي prof.mendl ....

عملت الطريقة بس مانفذت معي ... اذا ماعليك امر مثال لوتكرمت

ومشكوووووور مره ثانيه

#4

هذا طريقة بدائية فكرتها ان تقوم بخزن اسم العامود في ال tag بروبرتيز تم تقوم بتمرير الكوترول الى فنشن و في النهاية تقوم بحذف كلمة AND من بداية الجملة

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Dim WhereString As String
		WhereString = SqlBulider(TextBox1)
		WhereString = SqlBulider(TextBox2)
		WhereString.TrimStart("AND")
		Dim CommandString As String = "Select * From Table Where "
		Dim TheEnd As String = CommandString + WhereString
	End Sub

 Function SqlBulider(ByVal MyControl As TextBox) As String
		Dim SQL As String = ""
		SQL = "AND" + MyControl.Tag + "='" + MyControl.Text + "'"
		Return SQL
	End Function

اكرر الطريقة بدائية ولكنها مفيدة

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

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

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

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

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