تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طريقة بحث سهلة
#1
PHP كود :
Dim query As String
        query 
"Select * From tblDate"

        
If TextBox1.Text <> "" Or TextBox2.Text <> "" Then

            query 
&= " Where "
            
If TextBox1.Text <> "" Then
                query 
&= "Fname = '" TextBox1.Text "'"

            
End If
            If 
TextBox2.Text <> "" Then
                
If TextBox1.Text <> "" Then
                    query 
&= " AND"

                
End If
                
query &= "Lname like '" TextBox2.Text "'"
            
End If
        
End If



        
Dim cmd As New OleDbCommand(querycon)
        
da = New OleDbDataAdapter(cmd)
        
con.Open()
        
da.Fill(dt)
        
con.Close()
        
Me.DataGridView1.DataSource dt 
عن مولا نا علي ابن أبي طالب عليه السلام :
إضرب بعض الرأي ببعض يتولد منه الصواب.
الرد }}}}
تم الشكر بواسطة: AmMo
#2
الطريقة الثانية :
PHP كود :
Dim query As String
        query 
"Select * From tblDate Where 1=1"
 
       If TextBox1.Text <> "" Then
            query 
query " AND Fname= '" TextBox1.Text "'"
 
       End If

 
       If TextBox2.Text <> "" Then
            query 
query " AND Lname= '" TextBox2.Text "'"
 
       End If
 
       
        Dim cmd 
As New OleDbCommand(querycon)
 
       da = New OleDbDataAdapter(cmd)
 
       con.Open()
 
       da.Fill(dt)
 
       con.Close()
 
       Me.DataGridView1.DataSource dt 

توضيح:
لنفترض أن لدينا جدول في قاعدة بيانات أكسس بعنوان tblPerson يحتوي على الحقول التالية :
ID / Fname / Lname / Address
الرقم / الإسم / الشهرة / العنوان

نوع البيانات للحقول :
ID - AutoNumber يضاف إليه المفتاح الأساسي Primary Key
Fname - ShortText
Lname - ShortText
Address - ShortText

   

ثم قمنا بإنشاء مشروع جديد، وأدرجنا داخل النموذج الأول أدوات التحكم التالية :
DataGrid : الإسم البرمجي PersonDGV
ومربعي نص TextBox : الإسم البرمجي للأول txtFname والإسم البرمجي للثاني txtLname

   

أدرج زر أمر بعنوان Search وليكن إسمه البرمجي btnSearch
الكود :
PHP كود :
Dim query As String "Select * From tblPerson Where 1=1"

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

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

 
       Dim cmd As New OleDbCommand(querycon)
 
       Dim da As New OleDbDataAdapter(cmd)
 
       Dim dt As New DataTable

        con
.Open()
 
       da.Fill(dt)
 
       con.Close()
 
       Me.DataGridView1.DataSource dt

        Me
.txtFname.Clear()
 
       Me.txtLname.Clear()
 
       Me.txtFname.Focus() 

   

   

   



أتمنى لكم التوفيق
وأسألكم الدعاء
عن مولا نا علي ابن أبي طالب عليه السلام :
إضرب بعض الرأي ببعض يتولد منه الصواب.
الرد }}}}
#3
بارك الله فيك

مثال رائع ..
الرد }}}}
تم الشكر بواسطة: khodor1985 , awidan76
#4
أو ضع الكود التالي في زر الأمر فإنه سوف يحقق نفس النتيجة:
PHP كود :
Dim query As String "Select * From tblPerson"

        
If txtFname.Text <> "" Or txtLname.Text <> "" Then
            query 
&= " Where "
            
If txtFname.Text <> "" Then
                query 
&= "Fname = '" txtFname.Text "'"
            
End If
            If 
txtLname.Text <> "" Then
                
If txtFname.Text <> "" Then
                    query 
&= " AND "

                
End If

                
query &= "Lname = '" txtLname.Text "'"
            
End If
        
End If
       

        
Dim cmd As New OleDbCommand(querycon)
        
Dim da As New OleDbDataAdapter(cmd)
        
Dim dt As New DataTable

        con
.Open()
        
da.Fill(dt)
        
con.Close()
        
Me.DataGridView1.DataSource dt 

أشكرك على اهتمامك أخي العزيز الشاكي لله،
من وحي اسمك أو لقبك
أستحضر هذه الكلمات في دعاء لأحد الأئمة
"إلهي إليك أشكو نفسا بالسوء أمارة، وإلى الخطيئة مبادرة، وبمعاصيك مولعة، ولسخطك متعرضة، تسلك بي مسالك المهالك، وتجعلني عندك أهون هالك، كثيرة العلل، طويلة الأمل، إن مسها الشر تجزع، وإن مسها الشر تمنع، ميالة إلى اللعب اللهو، مملوءة بالغفلة والسهو، تسرع بي إلى الحوبة، وتسوفني بالتوبة.
إلهي إليك أشكو عدوا يضلني، وشيطانا يغويني، قد ملأ بالوسواس صدري، وأحاطت هواجسه بقلبي، يعاضد لي الهوى، ويزين لي حب الدنيا ويحول بيني وبين الطاعة والزلفى..."
عن مولا نا علي ابن أبي طالب عليه السلام :
إضرب بعض الرأي ببعض يتولد منه الصواب.
الرد }}}}
#5
بارك الله فيك

وجزاك الله خير
الرد }}}}
تم الشكر بواسطة: khodor1985 , awidan76


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] طريقة حفظ الإعدادات في محرر التسجيل Registry Editor سعود الشامان 3 207 27-10-17, 05:45 AM
آخر رد: سعود الشامان
  [VB.NET] طريقة معرفة لغة الإدخال الحالية How to find the current input language سعود الشامان 2 103 07-10-17, 02:42 PM
آخر رد: سعود الشامان
  [مثال] طريقة تغيير لغة الإدخال بشريط المهام سعود الشامان 2 176 05-10-17, 12:56 AM
آخر رد: سعود الشامان
  [مثال] طريقة أخرى للتصاريح Acces سعود الشامان 2 197 05-10-17, 12:55 AM
آخر رد: سعود الشامان
  [VB.NET] طريقة عمل برنامج تسجيل دخول احترافى بالفيجوال بيسك 2010 Mina Botros 4 762 18-09-17, 12:48 PM
آخر رد: Mina Botros
  طريقة بحث سهلة (2) khodor1985 4 1,522 28-07-17, 01:07 PM
آخر رد: IBRA939
  [VB.NET] [VB.NET] الجزء الأول : طريقة عمل برنامج بث مباشر لمباريات ( تصميم و تكويد ) larbi matador 2 234 23-06-17, 05:33 AM
آخر رد: larbi matador
Information [مشروع] طريقة تصميم برنامج قواعد بيانات يحتوي على علاقات بين الجداول (باستخدام الكود فقط) Mohamad Anan 9 6,082 25-02-17, 11:23 PM
آخر رد: sendbad100
  [مثال] طريقة تحويل تاريخ مدخل يدوياً كنص الى متغير من نوع تاريخ myalsailamy 2 781 14-12-15, 09:50 PM
آخر رد: عدنان الشمري
  [مثال] طريقة التحقق من وجود نص عربي ضمن نص myalsailamy 1 492 10-12-15, 07:06 PM
آخر رد: boudyonline

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


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