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

   

   

   



أتمنى لكم التوفيق
وأسألكم الدعاء
الرد }}}}
تم الشكر بواسطة: الشاكي لله , الشاكي لله , AmMo , awidan76
#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 

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة بحث سهلة (2) khodor1985 3 827 16-09-16, 07:46 PM
آخر رد: Amir_alzubidy
  [VB.NET] افضل طريقة لجعل برنامجى يشتغل على جهاز شخص واحد فقط memosh 10 1,776 30-08-16, 08:20 PM
آخر رد: nayefacc
  [مثال] طريقة تحويل تاريخ مدخل يدوياً كنص الى متغير من نوع تاريخ myalsailamy 2 406 14-12-15, 09:50 PM
آخر رد: عدنان الشمري
  [مثال] طريقة التحقق من وجود نص عربي ضمن نص myalsailamy 1 243 10-12-15, 07:06 PM
آخر رد: boudyonline
  [مشروع] طريقة جلب فيديوهات Videos قناة على يوتيوب youtube سعود 1 670 05-08-15, 03:08 PM
آخر رد: سعود
  [مثال] عمل تصفية للبيانات بطريقة سهلة ممدوح الخطيب 3 918 21-06-15, 01:07 AM
آخر رد: raaddawood
  [مشروع] آلة حاسبة عن طريقة مناداة الدالة من ملف dll سعود 3 650 26-03-15, 02:01 PM
آخر رد: سعود
Information [مشروع] طريقة تصميم برنامج قواعد بيانات يحتوي على علاقات بين الجداول (باستخدام الكود فقط) Mohamad Anan 7 4,906 15-02-14, 09:56 PM
آخر رد: yemen_design

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


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