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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information [مشروع] طريقة تصميم برنامج قواعد بيانات يحتوي على علاقات بين الجداول (باستخدام الكود فقط) Mohamad Anan 10 6,851 07-11-18, 02:36 AM
آخر رد: عماد السيد
  [VB.NET] طريقة التحكم بالبرنامج عن بعد DK-x 4 347 28-10-18, 10:12 AM
آخر رد: naimamohammed
  [مشروع] تعدد لغات برنامجك بطريقة سهلة سعود 11 677 14-09-18, 03:08 PM
آخر رد: سعود
  [مشروع] مثال يشرح طريقة تنظيم الـ DataGridView لعمل الجداول المدرسية أو جداول الأعمال عبدالله الدوسري 7 1,415 08-08-18, 09:04 PM
آخر رد: loooover2014
  [VB.NET] طريقة عمل برنامج تسجيل دخول احترافى بالفيجوال بيسك 2010 Mina Botros 8 2,775 26-07-18, 01:50 AM
آخر رد: ابو روضة
  [مثال] طريقة حفظ الإعدادات في محرر التسجيل Registry Editor سعود الشامان 3 494 27-10-17, 05:45 AM
آخر رد: سعود الشامان
  [VB.NET] طريقة معرفة لغة الإدخال الحالية How to find the current input language سعود الشامان 2 385 07-10-17, 02:42 PM
آخر رد: سعود الشامان
  [مثال] طريقة تغيير لغة الإدخال بشريط المهام سعود الشامان 2 525 05-10-17, 12:56 AM
آخر رد: سعود الشامان
  [مثال] طريقة أخرى للتصاريح Acces سعود الشامان 2 482 05-10-17, 12:55 AM
آخر رد: سعود الشامان
  طريقة بحث سهلة (2) khodor1985 4 1,933 28-07-17, 01:07 PM
آخر رد: IBRA939

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


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