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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  البحث داخل الداتا جريد فيو Osama Bayoumy 3 70 19-06-18, 09:50 AM
آخر رد: elgokr
  [سؤال] السلام عليكم لدي مشكل في الفيجوال بيسك safox 4 50 15-06-18, 04:54 AM
آخر رد: elgokr
  [نقاش] كيفية ربط قاعدة بينات بفجوال بيسك 2010 egy-sat 3 95 10-06-18, 04:52 PM
آخر رد: elgokr
  سؤال سريع عن كود البحث maram2423 12 175 08-06-18, 04:31 AM
آخر رد: elgokr
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 9 257 06-06-18, 09:23 PM
آخر رد: issamsaidd
  [VB.NET] مشكلة في البحث عن الملفات ThreeDaysGrace 4 246 04-06-18, 05:11 PM
آخر رد: ThreeDaysGrace
  [VB.NET] عمليات البحث Ahmed.noor 1 91 04-06-18, 04:50 PM
آخر رد: عبدالله الدوسري
  [سؤال] تشغيل ملفات دفعيه فيجول بيسك wagday 7 68 01-06-18, 03:00 AM
آخر رد: عبدالله الدوسري
  [VB.NET] طريقة طباعة نتيجة البحث في الداتاريبورت larbihamri 2 76 30-05-18, 02:47 AM
آخر رد: hglogtd
  [سؤال] واجهتني مشكلة في الربورت الي مع الفيجوال بيسك لطباعة التقارير فراس الغزي 3 83 29-05-18, 04:40 AM
آخر رد: elgokr

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


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