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




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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مشكلة في كتابة عربي مع انجليزي في نص واحد ali.alfoly 3 70 منذ 44 دقيقة مضت
آخر رد: ali.alfoly
  [VB.NET] كود البحث لا يظهر اي نتائج ولا اي اخطاء Asmaa adel 1 57 03-12-16, 09:41 AM
آخر رد: ابراهيم النعيمي
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 46 29-11-16, 01:37 AM
آخر رد: hglogtd
  البحث مثل جوجل Samosoft 4 69 29-11-16, 01:35 AM
آخر رد: Samosoft
  خطأ عند البحث khalid475 1 50 28-11-16, 06:23 PM
آخر رد: khalid475
  [سؤال] كود البحث عن طريق اسم naden 1 79 28-11-16, 02:05 PM
آخر رد: Adrees
  [VB.NET] مشكلة في كود البحث khalid475 14 245 11-11-16, 07:52 PM
آخر رد: khalid475
  أستفسار الطباعه بعد البحث مباشره adel27 0 59 26-10-16, 03:15 PM
آخر رد: adel27
  البحث المتعدد بقواعد البيانات العواد الصغير 9 198 22-10-16, 10:29 PM
آخر رد: العواد الصغير
  البحث بين تاريخين عن طريق المعالج أسامة السالمي 9 277 14-10-16, 08:18 AM
آخر رد: ممدوح

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


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