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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكله عند عمل مشروع جديد في الفيجوال بيسك 2015 Emam emam 0 25 11-12-18, 12:08 PM
آخر رد: Emam emam
  [سؤال] كيف يتم البحث عن شاشة بالفعل تعمل وتفعيلها لتصبح فوق الجميع dametucorazon 3 74 10-12-18, 05:47 AM
آخر رد: rmnr
  سؤال بخصوص البحث باستخدام التاريخ عن طريق WebService masry4u 3 76 08-12-18, 08:36 PM
آخر رد: masry4u
  ألأكسل + الفيجول +yassen+ 8 139 28-11-18, 09:31 PM
آخر رد: حريف برمجة
  البحث داخل الجريد mmali127 4 108 27-11-18, 09:32 AM
آخر رد: mmali127
  [VB.NET] بعد برمجة البرنامج البحث بيت تاريخين يعمل علي جهازي ولا يعمل عند العميل shoma79 3 112 27-11-18, 05:25 AM
آخر رد: shoma79
  [VB.NET] مطلوب التعديل عالمثال المرفق للطباعة بفيجوال بيسك 2010 دوت نت hbsbamaga 1 113 23-11-18, 12:51 PM
آخر رد: hbsbamaga
  البحث بالرقم و بالاسم محمد خيري 4 178 22-11-18, 11:11 PM
آخر رد: محمد خيري
  التعامل مع برنامج الإكسل عن طريق الفيجول ستوديو +yassen+ 4 111 22-11-18, 06:17 PM
آخر رد: +yassen+
  مشكلة عند تنصيب فيجوال بيسك 2013 Mohamed Magdy 9 142 17-11-18, 03:39 AM
آخر رد: elgokr

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


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