تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] زر البحث في الفيجول بيسك
#1
رومنس الشوق;6407715 كتب :
السلام عليكم 

انا عندي 2 ازرار للبحث الاول البحث برقم الهويه والاخر بالاسم 

انا ابي اخلى زر البحث زر واحد فقط بدل 2 ازرار 

هذا كود البحث بالاسم


كود :
conn.Open()
        Try
            Dim cmdselect As New OleDbCommand
            cmdselect.Connection = conn
            cmdselect.CommandText = " select * from doctor where D_Name = '" + txtname.Text + "' "
            Dim re As OleDbDataReader
            re = cmdselect.ExecuteReader
            If re.Read Then
                txtid.Text = re(0).ToString
                txtname.Text = re(1).ToString
                txtnumq.Text = re(2).ToString
                txtnamef.Text = re(3).ToString
                txtnumbert.Text = re(4).ToString
                txtdata.Text = re(5).ToString
                txtnumkf.Text = re(6).ToString
            Else
                MsgBox("بيانات الشخص غير موجوده قم باضافتها")
                txtid.Clear()
                txtname.Clear()
                txtnamef.Clear()
                txtnumbert.Clear()
                txtnumkf.Clear()
                txtnumq.Clear()
                txtdata.Clear()
            End If
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try

        conn.Close()
    End Sub


وهذا زر البحث برقم الهويه


كود :
conn.Open()
        Try
            Dim cmdselect As New OleDbCommand
            cmdselect.Connection = conn
            cmdselect.CommandText = " select * from doctor where doc_ID = '" + txtid.Text + "' "
            Dim re As OleDbDataReader
            re = cmdselect.ExecuteReader
            If re.Read Then
                txtid.Text = re(0).ToString
                txtname.Text = re(1).ToString
                txtnumq.Text = re(2).ToString
                txtnamef.Text = re(3).ToString
                txtnumbert.Text = re(4).ToString
                txtdata.Text = re(5).ToString
                txtnumkf.Text = re(6).ToString
            Else
                MsgBox("بيانات الشخص غير موجوده قم باضافتها")
                txtid.Clear()
                txtname.Clear()
                txtnamef.Clear()
                txtnumbert.Clear()
                txtnumkf.Clear()
                txtnumq.Clear()
                txtdata.Clear()
            End If
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try

        conn.Close()
    End Sub


شاكر ومقدر لكم
الرد }}}}
تم الشكر بواسطة:
#2
اخب الفاضل :

بدلا من عمل 2 زر للبحث يتم عمل البحث من خلال زر واحد بمعلومية اختيار بين 2 Option
الرد }}}}
تم الشكر بواسطة:
#3
جرب بالطريقة التالية 

PHP كود :
conn.Open()
 
       Try
            Dim cmdselect 
As New OleDbCommand
            cmdselect
.Connection conn
            cmdselect
.CommandText " select * from doctor where doc_ID = '" txtid.Text "' OR D_Name = '" txtname.Text "' "
 
           Dim re As OleDbDataReader
            re 
cmdselect.ExecuteReader
            If re
.Read Then
                txtid
.Text re(0).ToString
                txtname
.Text re(1).ToString
                txtnumq
.Text re(2).ToString
                txtnamef
.Text re(3).ToString
                txtnumbert
.Text re(4).ToString
                txtdata
.Text re(5).ToString
                txtnumkf
.Text re(6).ToString
            Else
                MsgBox
("بيانات الشخص غير موجوده قم باضافتها")
 
               txtid.Clear()
 
               txtname.Clear()
 
               txtnamef.Clear()
 
               txtnumbert.Clear()
 
               txtnumkf.Clear()
 
               txtnumq.Clear()
 
               txtdata.Clear()
 
           End If
 
       Catch ex As Exception
            MsgBox
(ex.Message.ToString)
 
       End Try

 
       conn.Close()
 
   End Sub 
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم
كود بحث بدون كثرة ازرار

كود :
conn.Open()
        Try
            Dim cmdselect As New OleDbCommand
            cmdselect.Connection = conn
           dim kk as string



 if txtname.text <> "" then   kk= " select * from doctor where D_Name = '" + txtname.Text + "'"
if isnumeric(txtid.text) then   kk= " select * from doctor where doc_ID = " + txtid.Text


cmdselect.CommandText = kk
            Dim re As OleDbDataReader
            re = cmdselect.ExecuteReader
            If re.Read Then
                txtid.Text = re(0).ToString
                txtname.Text = re(1).ToString
                txtnumq.Text = re(2).ToString
                txtnamef.Text = re(3).ToString
                txtnumbert.Text = re(4).ToString
                txtdata.Text = re(5).ToString
                txtnumkf.Text = re(6).ToString
            Else
                MsgBox("بيانات الشخص غير موجوده قم باضافتها")
                txtid.Clear()
                txtname.Clear()
                txtnamef.Clear()
                txtnumbert.Clear()
                txtnumkf.Clear()
                txtnumq.Clear()
                txtdata.Clear()
            End If
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try

        conn.Close()
    End Sub
من اعمالنا نخطى ومن اخطائنا نتعلم ولاشى مستحيل
الرد }}}}
تم الشكر بواسطة:
#5
(29-01-16, 04:04 PM)رومنس الشوق كتب :
رومنس الشوق;6407715 كتب :
السلام عليكم 

انا عندي 2 ازرار للبحث الاول البحث برقم الهويه والاخر بالاسم 

انا ابي اخلى زر البحث زر واحد فقط بدل 2 ازرار 

هذا كود البحث بالاسم


كود :
conn.Open()
        Try
            Dim cmdselect As New OleDbCommand
            cmdselect.Connection = conn
            cmdselect.CommandText = " select * from doctor where D_Name = '" + txtname.Text + "' "
            Dim re As OleDbDataReader
            re = cmdselect.ExecuteReader
            If re.Read Then
                txtid.Text = re(0).ToString
                txtname.Text = re(1).ToString
                txtnumq.Text = re(2).ToString
                txtnamef.Text = re(3).ToString
                txtnumbert.Text = re(4).ToString
                txtdata.Text = re(5).ToString
                txtnumkf.Text = re(6).ToString
            Else
                MsgBox("بيانات الشخص غير موجوده قم باضافتها")
                txtid.Clear()
                txtname.Clear()
                txtnamef.Clear()
                txtnumbert.Clear()
                txtnumkf.Clear()
                txtnumq.Clear()
                txtdata.Clear()
            End If
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try

        conn.Close()
    End Sub


وهذا زر البحث برقم الهويه


كود :
conn.Open()
        Try
            Dim cmdselect As New OleDbCommand
            cmdselect.Connection = conn
            cmdselect.CommandText = " select * from doctor where doc_ID = '" + txtid.Text + "' "
            Dim re As OleDbDataReader
            re = cmdselect.ExecuteReader
            If re.Read Then
                txtid.Text = re(0).ToString
                txtname.Text = re(1).ToString
                txtnumq.Text = re(2).ToString
                txtnamef.Text = re(3).ToString
                txtnumbert.Text = re(4).ToString
                txtdata.Text = re(5).ToString
                txtnumkf.Text = re(6).ToString
            Else
                MsgBox("بيانات الشخص غير موجوده قم باضافتها")
                txtid.Clear()
                txtname.Clear()
                txtnamef.Clear()
                txtnumbert.Clear()
                txtnumkf.Clear()
                txtnumq.Clear()
                txtdata.Clear()
            End If
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try

        conn.Close()
    End Sub


شاكر ومقدر لكم
شكرا جزيلا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف اربط الوورد مع الفيجوال بيسك انوار القصيم 7 1,352 17-02-17, 01:18 PM
آخر رد: محمد عمار
  البحث بجزء من التاريخ أسامة السالمي 6 121 16-02-17, 03:19 PM
آخر رد: أسامة السالمي
  [سؤال] استفسار بخصوص انواع كود البحث.. Marwan9990 1 107 03-02-17, 07:09 PM
آخر رد: مساعدة
  [VB.NET] البحث التلقائي tifagreet 1 85 30-01-17, 06:07 PM
آخر رد: مساعدة
  هل يكون فيجوال بيسك 6 أقوى احيانا؟ abudawoodd 9 225 30-01-17, 01:19 AM
آخر رد: abudawoodd
Information [VB.NET] مساعده في الفيجوال بيسك هل اقدر اسوي اكثر من فورم a_abdullah 5 291 28-01-17, 02:14 PM
آخر رد: أسامة السالمي
  البحث قى listbox Mohamed20 1 97 27-01-17, 07:12 AM
آخر رد: مساعدة
  [VB.NET] مساعدة في نقل الصنف من شاشه البحث الي فاتوره الشراء gmailali 6 214 24-01-17, 08:32 PM
آخر رد: gmailali
  [VB.NET] طلب تعديل كود بحث من البحث في الاكسس الى البحث بالسكيول وشكراً m22sf 3 126 22-01-17, 01:39 PM
آخر رد: thevirus
  [سؤال] كيف ابطل زر tab فى برنامج على الفيجوال بيسك Mohamed371 1 89 20-01-17, 02:11 AM
آخر رد: مساعدة

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


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