تقييم الموضوع :
  • 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 ك ب / التحميلات : 42)
قاعدة البيانات ضعها في المسار D:
.rar   khodor - Mydb.rar (الحجم : 18.18 ك ب / التحميلات : 26)

أتمنى لك التوفيق
الرد }}}}
تم الشكر بواسطة: امل حسن
#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 ك ب / التحميلات : 37)
قاعدة البيانات ضعها في المسار D:
.rar   khodor - Mydb.rar (الحجم : 18.18 ك ب / التحميلات : 15)

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال حول Combobox noway 2 48 06-12-16, 04:26 AM
آخر رد: amgad525
  [VB.NET] كود البحث لا يظهر اي نتائج ولا اي اخطاء Asmaa adel 1 53 03-12-16, 09:41 AM
آخر رد: ابراهيم النعيمي
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 44 29-11-16, 01:37 AM
آخر رد: hglogtd
  البحث مثل جوجل Samosoft 4 67 29-11-16, 01:35 AM
آخر رد: Samosoft
  خطأ عند البحث khalid475 1 48 28-11-16, 06:23 PM
آخر رد: khalid475
  [سؤال] كود البحث عن طريق اسم naden 1 74 28-11-16, 02:05 PM
آخر رد: Adrees
  التعديل علي datagridview باستخدام sql command dark1459 6 143 21-11-16, 11:55 AM
آخر رد: dark1459
  [VB.NET] (مشكله) في تسجيل الدخول لموقع badoo باستخدام HttpWebRequest ali ahmed 1997 1 196 17-11-16, 04:08 AM
آخر رد: الماجيك مسعد
  [VB.NET] استفسار بخصوص استعلام التعديل dark1459 8 117 15-11-16, 12:31 AM
آخر رد: dark1459
  [VB.NET] مشكلة في كود البحث khalid475 14 241 11-11-16, 07:52 PM
آخر رد: khalid475

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


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