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

كيفكم انشالله بخير

اخواني انا مشروعي جاهز بالكامل ولله الحمد ولكن واجهتني مشكلة كثرت ازرار البحث 

وحبيت اجمع كل ازرار البحث بزر واحد فقط 

يعني انا عندي 

اسم الشخص ورقم هويته وجواله كما بالصورة



ولما اريد البحث اذهب لخانه الاسم واضع الاسم واضغط بحث باسم

ولما اريد البحث بالهويه اذهب لخانه الهويه واضع فيها الرقم واضغط بحث بالهويه 

وهكذا بالبقيه

وانا اريد وضعها بزر واحد كما بالصورة التاليه يكون زر واحد فقط 





وهذا الكود كامل

كود :
Imports System.Data
Imports System.Data.OleDb

Public Class Form1
   Dim cmdselect As New OleDbCommand
   Dim connAccess2005 As New OleDbConnection
   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       connAccess2005.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" + IO.Directory.GetCurrentDirectory + "\data.mdb"
   End Sub

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)
       ' زر الحفظ

       connAccess2005.Open()

       Try
           Dim cmdinsert As New OleDbCommand("insert into tan (namemt, idmt, numq) values ('" & txtname_m.Text & "','" & txtid_m.Text & "','" & txtnum_q.Text & "')")
           cmdinsert.Connection = connAccess2005
           cmdinsert.ExecuteNonQuery()
           MsgBox("تم حفظ البيانات بنجاح")
           txtname_m.Clear()
           txtid_m.Clear()
           txtnum_q.Clear()

       Catch ex As Exception
           MsgBox(ex.Message.ToString)
       End Try
       connAccess2005.Close()
   End Sub

   Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
       '  البحث بالاسم

       connAccess2005.Open()
       Try
           Dim cmdselect As New OleDbCommand("SELECT * FROM [tan] WHERE [namemt] LIKE '%" & txtname_m.Text & "%'", connAccess2005)
           Dim da As New OleDbDataAdapter(cmdselect)
           Dim re As OleDbDataReader
           re = cmdselect.ExecuteReader
           If re.Read Then
               txtname_m.Text = re(0).ToString
               txtnum_q.Text = re(2).ToString
               txtid_m.Text = re(1).ToString

           Else
               MsgBox("بيانات الشخص غير موجوده قم باضافتها")
               txtname_m.Clear()
               txtnum_q.Clear()
               txtid_m.Clear()

           End If
       Catch ex As Exception
           MsgBox(ex.Message.ToString)
       End Try

       connAccess2005.Close()
   End Sub

   Private Sub Button4_Click(sender As System.Object, e As System.EventArgs)

       '  البحث بالهويه

       connAccess2005.Open()
       Try
           Dim cmdselect As New OleDbCommand
           cmdselect.Connection = connAccess2005
           cmdselect.CommandText = " select * from tan where idmt = '" + txtid_m.Text + "' "
           Dim re As OleDbDataReader
           re = cmdselect.ExecuteReader
           If re.Read Then
               txtname_m.Text = re(0).ToString
               txtnum_q.Text = re(2).ToString
               txtid_m.Text = re(1).ToString

           Else
               MsgBox("بيانات الشخص غير موجوده قم باضافتها")
               txtname_m.Clear()
               txtnum_q.Clear()
               txtid_m.Clear()
           End If
       Catch ex As Exception
           MsgBox(ex.Message.ToString)
       End Try

       connAccess2005.Close()
   End Sub

   Private Sub Button3_Click(sender As System.Object, e As System.EventArgs)

       ' البحث برقم الجوال

       connAccess2005.Open()
       Try
           Dim cmdselect As New OleDbCommand
           cmdselect.Connection = connAccess2005
           cmdselect.CommandText = " select * from tan where numq = '" + txtnum_q.Text + "' "
           Dim re As OleDbDataReader
           re = cmdselect.ExecuteReader
           If re.Read Then
               txtname_m.Text = re(0).ToString
               txtnum_q.Text = re(2).ToString
               txtid_m.Text = re(1).ToString

           Else
               MsgBox("بيانات الشخص غير موجوده قم باضافتها")
               txtname_m.Clear()
               txtnum_q.Clear()
               txtid_m.Clear()
           End If
       Catch ex As Exception
           MsgBox(ex.Message.ToString)
       End Try

       connAccess2005.Close()
   End Sub

   Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
       'مسح البيانات الموجوده

       txtname_m.Text = ""
       txtid_m.Text = ""
       txtnum_q.Text = ""
   End Sub
End Class



وهذا مثال ارفقته في المرفقات لكم اتمني التعديل عليه ولكم  الشكر والتحيه



ولكم  الشكر والتحيه


الملفات المرفقة
.rar   vvvv.rar (الحجم : 193.44 ك ب / التحميلات : 25)
الرد }}}}
تم الشكر بواسطة: hamada salah90
#2
فين المثال يا جميل

ممكن ترفق مثال مش مجلدات فاضية

والإجابة سهله إن شاء الله
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}}
تم الشكر بواسطة:
#3
اعتذر لك يالغالي وللشباب

هذا رابط المثال

http://www.mediafire.com/download/m3kf39...u/vvvv.rar
الرد }}}}
تم الشكر بواسطة:
#4
أخي عملتلك في المثال تاعك وغيرتلك بعض الحقول في الداتابيز    انظر و  إذ لم يعجبك  نغير طريقة البحث
الرد }}}}
تم الشكر بواسطة:
#5
ممكن تعدل على المثال اذا ممكن

والله مافهمت قصدك بس اتمني تعدل على المثال
الرد }}}}
تم الشكر بواسطة:
#6
أعد إرسال المثال بشكل جيد اخي فيه خطأ او هو فارغ
الرد }}}}
تم الشكر بواسطة:
#7
http://www.mediafire.com/download/ix81tr.../eeeee.rar

والله ذبحني هالجهاز

اسف جدا
الرد }}}}
تم الشكر بواسطة:
#8
اخي الفاضل :

أعتقد أن الشاشة بهذا الأسلوب في البحث أفضل

الرد }}}}
تم الشكر بواسطة: khodor1985
#9
اخي الغالي  انا قدمت المشروع ولكن للاسف عطاني سؤال ماعرفت ارد

قال انت الان عندك مرافقين واريد البحث بهويه المرافق كيف الطريقه

هذي شاشة البحث عندي 
كنت ابحث بهويه الشخص الاساسي تطلع عادي ولكن طلب البحث بالمرافقين بعد
الرد }}}}
تم الشكر بواسطة:
#10
بإمكانك استخدام الجمل الشرطية 


كود :
if textbox1.text <> ""
then




بمثل هذا الشرط تحقق عملية البحث 
ولك تحياتي
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  البحث بجزء من التاريخ أسامة السالمي 6 121 16-02-17, 03:19 PM
آخر رد: أسامة السالمي
  [سؤال] طريقة عمل ازرار على صرة من الفوتوشوب عبدالرحمن المكاوي 20 788 07-02-17, 02:49 PM
آخر رد: عبدالرحمن المكاوي
  [سؤال] استفسار بخصوص انواع كود البحث.. Marwan9990 1 101 03-02-17, 07:09 PM
آخر رد: مساعدة
  [VB.NET] البحث التلقائي tifagreet 1 85 30-01-17, 06:07 PM
آخر رد: مساعدة
  كيف اضافة ازرار مثل هذا Mohamed20 3 117 27-01-17, 07:59 PM
آخر رد: مساعدة
  البحث قى listbox Mohamed20 1 95 27-01-17, 07:12 AM
آخر رد: مساعدة
  [VB.NET] مساعدة في نقل الصنف من شاشه البحث الي فاتوره الشراء gmailali 6 207 24-01-17, 08:32 PM
آخر رد: gmailali
  [VB.NET] طلب تعديل كود بحث من البحث في الاكسس الى البحث بالسكيول وشكراً m22sf 3 123 22-01-17, 01:39 PM
آخر رد: thevirus
  [VB.NET] كيف يتم البحث فى ليست فيو موجودة فى فورم اخر الماجيك مسعد 15 310 19-01-17, 08:33 PM
آخر رد: الماجيك مسعد
  مساعدة لو سمحتو (طريقة تحريك صورة من خلال احداثيات موجودة في ملف نصي بدون ازرار) marten363 3 176 27-12-16, 08:20 PM
آخر رد: مساعدة

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


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