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


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

بدلا من عمل 2 زر للبحث يتم عمل البحث من خلال زر واحد بمعلومية اختيار بين 2 Option
Don't Be The Perfect one
be the right one
الرد }}}
تم الشكر بواسطة:
#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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] ابغي اغير من الاكسس الى الفيجول بيزك أبوعبدالعزيز 2 69 27-03-24, 09:56 PM
آخر رد: أبوعبدالعزيز
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 81 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  [VB.NET] البحث باستخدام CheckedListBox لتكون نتيجة التحديد شرط لجملة الاستعلام ahmedramzyaish 0 116 19-02-24, 03:44 AM
آخر رد: ahmedramzyaish
  البحث بالهوية annagui 2 315 25-01-24, 01:00 PM
آخر رد: annagui
  الالوان في فيجوال بيسك atefkhalf2004 2 418 05-01-24, 04:38 PM
آخر رد: atefkhalf2004
  تحويل مشروع من c# الى فيجول بيسك Lathe1 4 718 05-01-24, 01:05 AM
آخر رد: HALIM ELEULMA
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [كود] البحث Abdellatif 2 208 27-12-23, 03:15 PM
آخر رد: Abdellatif
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  اضافة ادوات لفيجوال بيسك خالد20 10 1,977 18-12-23, 07:51 PM
آخر رد: ابراهيم عبدالباقى

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


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