تقييم الموضوع :
  • 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 , امل حسن


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استفسار بخصوص عدم ظهور اداة عرض ملف pdf في الادوات عباسة 7 149 22-02-17, 08:07 PM
آخر رد: عباسة
Wink [VB.NET] استفسار بخصوص التعديل والحفظ علي اداة datagridview dark1459 9 128 20-02-17, 02:13 AM
آخر رد: khodor1985
  البحث بجزء من التاريخ أسامة السالمي 6 121 16-02-17, 03:19 PM
آخر رد: أسامة السالمي
  استفسار عن تعبئة combobox من قاعدة البيانات المتألق9 2 78 16-02-17, 11:57 AM
آخر رد: المتألق9
  استفسار ComboBox bidaya 2 75 12-02-17, 06:18 PM
آخر رد: مساعدة
  [سؤال] استفسار بخصوص انواع كود البحث.. Marwan9990 1 102 03-02-17, 07:09 PM
آخر رد: مساعدة
  [سؤال] استفسار داخل List box عبدالرحمن المكاوي 10 179 31-01-17, 05:32 PM
آخر رد: عبدالرحمن المكاوي
Thumbs Up [VB.NET] ادراج صور وملفات داخل ال sql باستخدام vb khallak86 0 74 31-01-17, 11:40 AM
آخر رد: khallak86
  [VB.NET] البحث التلقائي tifagreet 1 85 30-01-17, 06:07 PM
آخر رد: مساعدة
  [VB.NET] استفسار بخصوص WebBrowser1 dubai.eig 2 96 28-01-17, 05:12 PM
آخر رد: dubai.eig

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


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