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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] طريقة أخرى للتصاريح Acces سعود الشامان 0 73 21-09-17, 03:03 AM
آخر رد: سعود الشامان
  [VB.NET] طريقة عمل برنامج تسجيل دخول احترافى بالفيجوال بيسك 2010 Mina Botros 4 440 18-09-17, 12:48 PM
آخر رد: Mina Botros
  [مثال] طريقة تغيير لغة الإدخال بشريط المهام سعود الشامان 0 82 07-08-17, 08:21 AM
آخر رد: سعود الشامان
  طريقة بحث سهلة (2) khodor1985 4 1,401 28-07-17, 01:07 PM
آخر رد: IBRA939
  [VB.NET] [VB.NET] الجزء الأول : طريقة عمل برنامج بث مباشر لمباريات ( تصميم و تكويد ) larbi matador 2 187 23-06-17, 05:33 AM
آخر رد: larbi matador
Information [مشروع] طريقة تصميم برنامج قواعد بيانات يحتوي على علاقات بين الجداول (باستخدام الكود فقط) Mohamad Anan 9 5,906 25-02-17, 11:23 PM
آخر رد: sendbad100
  [مثال] طريقة تحويل تاريخ مدخل يدوياً كنص الى متغير من نوع تاريخ myalsailamy 2 712 14-12-15, 09:50 PM
آخر رد: عدنان الشمري
  [مثال] طريقة التحقق من وجود نص عربي ضمن نص myalsailamy 1 447 10-12-15, 07:06 PM
آخر رد: boudyonline
  [مشروع] طريقة جلب فيديوهات Videos قناة على يوتيوب youtube سعود 1 895 05-08-15, 03:08 PM
آخر رد: سعود
  [مثال] عمل تصفية للبيانات بطريقة سهلة ممدوح الخطيب 3 1,194 21-06-15, 01:07 AM
آخر رد: raaddawood

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


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