تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] استفسار البحث باستخدام ComboBox
#1
اسعد الله اوقاتكم اخواني
ارجوا المساعدة عن عمليه البحث باستخدام ComboBox و textbox

بمعنى اريد ان اختار اسم الجدول من combobox واكتب النص المراد البحث عنه في textboxوتطلع نتائج البحث في DataGridView ويكون البحث جزء من النص

قاعدة البيانات اكسس 2007
الرد
تم الشكر بواسطة:
#2
لنفترض انك تستطيع تعبئة البيانات من الداتا بيز الي الكومبوبوكس
يمكنك هنا ان تبحث داخل الكومبوبوكس لتحصل علي جميع البيانات التي تتناسب مع عملية البحث التي هي هنا عبارة عن التكست الخاص ب التكست بوكس

هنا يمكنك ان تستخدم الكود بالشكل التالي
وهنا انا حددت عملية البحث عن البيانات التي هي عبارة عن String و الموجودة في الكومبوبوكس



PHP كود :
 Dim searchText As String TextBox1.Text
        If Not String
.IsNullOrEmpty(searchTextThen
            Dim queryList 
From item In ComboBox1.Items.OfType(Of String)() Where item searchText Select item
            For Each s 
As String In queryList
                
' do something and add the data to datagridview
            Next
        End If 
الرد
تم الشكر بواسطة: امل حسن
#3
أريد من فضلكم كود vb.net 2008 لتشغيل ملف m3u موجود في الجهاز بإستعمال أداة vlc 

و لدي أيضا مشكل في إضافة أداة vlc داخل الفورم  و تظهر لي رسالة عند إضافة أداة vlc الرسالة في المرفقات


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#4
مشكور اخي على ردك ولكن ما اريده هو البحث بثلاث طرق اما بسجل الاسم او سجل الرقم او سجل التاريخ ويكونو الثلاث سجلات مدرجين بالكومبو بوكس واختار طريقه البحث من الكومبوبوكس
مثلا اختار من الكومبوبوكس سجل الاسم وفي التكست بوكس اكتب الاسم المراد البحث عنه
ارجو بان اكون اوصلت ما اريد
الرد
تم الشكر بواسطة:
#5
تفضل أخي العزيز،

الصورة :
   

   

الأكواد :
PHP كود :
Dim Query As String "Select * From tblPerson Where 1=1"

 
       If ComboBox1.Text "Date" Then
            If txtStartDate
.Text <> "" Then
                Query 
Query " AND MyDate >= #" txtStartDate.Text "#"
 
           End If



 
           If txtEndDate.Text <> "" Then
                Query 
Query " AND MyDate <= #" txtEndDate.Text "#"
 
           End If
 
       End If

 
       If ComboBox1.Text "Fname" Then
            If txtFname
.Text <> "" Then
                Query 
Query " AND Fname = '" txtFname.Text "'"
 
           End If
 
       End If

 
       If ComboBox1.Text "Lname" Then
            If txtLname
.Text <> "" Then
                Query 
Query " AND Lname = '" txtLname.Text "'"
 
           End If
 
       End If

 
       If ComboBox1.Text "Address" Then
            If txtAddress
.Text <> "" Then
                Query 
Query " AND Address = '" txtAddress.Text "'"
 
           End If

 
       End If


 
       Dim cmd As New OleDbCommand(Querycon)
 
       da = New OleDbDataAdapter(cmd)
 
       dt.Clear()
 
       da.Fill(dt)

 
       Me.DGVSearch.DataSource dt 

المشروع :
.rar   khodor1985 - AdvancedSearch.rar (الحجم : 93.27 ك ب / التحميلات : 78)
قاعدة البيانات ضعها في المسار D:
.rar   khodor - Mydb.rar (الحجم : 18.18 ك ب / التحميلات : 65)

أتمنى لك التوفيق
إسرائيل إلى زوال ...  وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة: امل حسن
#6
مشكووووووووور اخي ولكن كيف اجعل textbox واحد فقط واكتب فيهم المراد البحث عنه في السجلات الموجوده في ComboBox

بمعنى بدل ما يكون في 5 textbox يكون واحد فقط
الرد
تم الشكر بواسطة:
#7
لحظة أخي العزيز لتعديل المشروع

تفضل أخي العزيز لقد تم تعديل المشروع بناء لطلبك الكريم

الصورة :
   

الأكواد :
PHP كود :
Dim Query As String "Select * From tblPerson Where 1=1"
 
       If String.IsNullOrWhiteSpace(Me.ComboBox1.TextThen
            MsgBox
("Field is empty"MsgBoxStyle.Critical"Error")
 
           Me.ComboBox1.DroppedDown True
            Return
        End 
If
 
       If ComboBox1.Text "Date" Then
            If txtValue
.Text <> "" Then
                Query 
Query " AND MyDate >= #" txtValue.Text "#"
 
           End If
 
       End If

 
       If ComboBox1.Text "Fname" Then
            If txtValue
.Text <> "" Then
                Query 
Query " AND Fname = '" txtValue.Text "'"
 
           End If
 
       End If

 
       If ComboBox1.Text "Lname" Then
            If txtValue
.Text <> "" Then
                Query 
Query " AND Lname = '" txtValue.Text "'"
 
           End If
 
       End If

 
       If ComboBox1.Text "Address" Then
            If txtValue
.Text <> "" Then
                Query 
Query " AND Address = '" txtValue.Text "'"
 
           End If

 
       End If


 
       Dim cmd As New OleDbCommand(Querycon)
 
       da = New OleDbDataAdapter(cmd)
 
       dt.Clear()
 
       da.Fill(dt)

 
       Me.DGVSearch.DataSource dt 

المشروع بعد التعديل  :
.rar   khodor1985 - 1 - AdvancedSearch.rar (الحجم : 88.33 ك ب / التحميلات : 80)
قاعدة البيانات ضعها في المسار D:
.rar   khodor - Mydb.rar (الحجم : 18.18 ك ب / التحميلات : 48)

أتمنى لك التوفيق
إسرائيل إلى زوال ...  وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة: نسيم الترك1 , امل حسن
#8
مشكووووووووور يا غالي ويعطيك الف عافيه يارب
الرد
تم الشكر بواسطة: khodor1985
#9
الحمد لله الذي لا يحمد على مكروه سواه
على راسي أخي العزيز
إسرائيل إلى زوال ...  وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة: نسيم الترك1 , امل حسن
#10
السلام عليكم
المثال المرفق به تعديل لطريقة بحث جديدة ارجو ان تعجبكم


الملفات المرفقة
.rar   AdvancedSearch.rar (الحجم : 37.5 ك ب / التحميلات : 90)
من اعمالنا نخطى ومن اخطائنا نتعلم ولاشى مستحيل
الرد
تم الشكر بواسطة: khodor1985 , khodor1985 , امل حسن


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استفسار بشأن جدول العملات alfaiz678 4 40 منذ 2 ساعة مضت
آخر رد: alfaiz678
  [VB.NET] استفسار :- بخصوص select top 10 dubai.eig 2 32 منذ 2 ساعة مضت
آخر رد: dubai.eig
  [VB.NET] استفسار في برمجة سجيلات الدخول للبرنامج فراس الغزي 1 19 منذ 10 ساعة مضت
آخر رد: mero5000
  [سؤال] استفسار عن مشكلة في كود لايجاد العملاء الغير موجودين بجدول الدفع ahmedmansour 17 601 أمس, 02:29 AM
آخر رد: ahmedmansour
  كيف يتم تعبئة ComboBox من Access DataBase od100 2 59 11-11-18, 03:11 PM
آخر رد: elgokr
  [VB.NET] استفسار :- بخصوص DataGridView1 dubai.eig 2 41 10-11-18, 08:43 PM
آخر رد: dubai.eig
  [كود] كود اظهار فتح باستخدام 739906433 5 96 07-11-18, 08:07 PM
آخر رد: ahmadpal
  استفسار عن الكرستل ريبورت hassan 14 3 97 06-11-18, 03:29 AM
آخر رد: asemshahen5
  [VB.NET] استفسار :- بخصوص TEXTBOX dubai.eig 2 91 04-11-18, 12:48 AM
آخر رد: dubai.eig
  [سؤال] تشغيل فيديو من ComboBox hamadz 11 205 03-11-18, 01:37 PM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم