تقييم الموضوع :
  • 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 ك ب / التحميلات : 39)
الرد }}}}
تم الشكر بواسطة: 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




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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] مساعدة في إكمال كود البحث بأكثر من جدول أبووسم 4 92 منذ 6 دقيقة مضت
آخر رد: أبووسم
  [سؤال] احتاج مساعده في البحث gnoonplas 9 167 14-10-17, 04:03 PM
آخر رد: Amir_alzubidy
  تجميع تلقائي Halim2008 3 69 28-09-17, 05:37 PM
آخر رد: Rabeea Qbaha
  [سؤال] عمل تشك على خانة واحد فقط ابو روضة 4 98 25-09-17, 01:01 AM
آخر رد: wale90
  مساعدة في كود البحث أبووسم 9 267 08-09-17, 09:44 PM
آخر رد: أبووسم
  [VB.NET] مشكلة البحث بين تاريخيين مبرمج مبتدا 18 516 06-08-17, 08:16 PM
آخر رد: sendbad100
  كيف .ندمج صور متعددة بملف واحد ثم نقوم باستخراجها فقط وقت تشغيل البرنامج سعود 5 191 05-08-17, 06:23 PM
آخر رد: سعود
  اريد كود طباعة فورمين كأنهم مستند واحد samira20 3 148 01-08-17, 09:57 AM
آخر رد: silverlight
  البحث باستخدام textbox و combobox تناسيم 2 138 30-07-17, 09:01 PM
آخر رد: ممدوح الخطيب
  [VB.NET] البحث عن اي جزء من أي كلمة في مربع نص واحد waelalmsry75 7 321 24-07-17, 03:03 AM
آخر رد: waelalmsry75

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


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