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

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في نقل الصنف من شاشه البحث الي فاتوره الشراء gmailali 1 36 أمس, 11:00 PM
آخر رد: مساعدة
  [VB.NET] كيف يتم البحث فى ليست فيو موجودة فى فورم اخر الماجيك مسعد 15 218 19-01-17, 08:33 PM
آخر رد: الماجيك مسعد
  استفسار عن الجداول المتعددة في قاعدة البيانات اكسس أبووسم 4 126 14-01-17, 12:36 PM
آخر رد: أبووسم
  هل يوجد طريقة لارسال رسائل واتساب من البرنامج باستخدام vb.net 2010 ? Dr.Sherif Alazizi 15 505 12-01-17, 11:54 PM
آخر رد: Basil Abdallah
  استفسار حول (ComboBox) و (TextBox). المبرمج المبتدئ 1 10 263 05-01-17, 03:37 AM
آخر رد: المبرمج المبتدئ 1
  تصدير البيانات الى PDF باستخدام ITextSharp لايدعم اللغة العربية فاطمة غ 8 344 04-01-17, 12:00 AM
آخر رد: مساعدة
  [VB.NET] استفسار عن DataGridView dubai.eig 3 167 28-12-16, 08:11 AM
آخر رد: Hazim Elabd
  [VB.NET] مشكلة في ComboBox 3asfa~mdmra 2 81 28-12-16, 01:15 AM
آخر رد: 3asfa~mdmra
Rainbow طباعة بيانات في DGV باستخدام VB EXPRESS وليس V STUDIO فاطمة غ 5 136 26-12-16, 04:24 PM
آخر رد: محمد كريّم
  [VB.NET] استفسار عن اضافة عبدالرحمن المكاوي 8 213 20-12-16, 06:48 PM
آخر رد: zinom

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


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