20-04-16, 08:53 PM
(آخر تعديل لهذه المشاركة : 20-04-16, 11:32 PM {2} بواسطة رومنس الشوق.)
سلام من الله عليكم ورحمته وبركاته
كيفكم انشالله بخير
اخواني انا مشروعي جاهز بالكامل ولله الحمد ولكن واجهتني مشكلة كثرت ازرار البحث
وحبيت اجمع كل ازرار البحث بزر واحد فقط
يعني انا عندي
اسم الشخص ورقم هويته وجواله كما بالصورة
ولما اريد البحث اذهب لخانه الاسم واضع الاسم واضغط بحث باسم
ولما اريد البحث بالهويه اذهب لخانه الهويه واضع فيها الرقم واضغط بحث بالهويه
وهكذا بالبقيه
وانا اريد وضعها بزر واحد كما بالصورة التاليه يكون زر واحد فقط
وهذا الكود كامل
ولكم الشكر والتحيه
كيفكم انشالله بخير
اخواني انا مشروعي جاهز بالكامل ولله الحمد ولكن واجهتني مشكلة كثرت ازرار البحث
وحبيت اجمع كل ازرار البحث بزر واحد فقط
يعني انا عندي
اسم الشخص ورقم هويته وجواله كما بالصورة
ولما اريد البحث اذهب لخانه الاسم واضع الاسم واضغط بحث باسم
ولما اريد البحث بالهويه اذهب لخانه الهويه واضع فيها الرقم واضغط بحث بالهويه
وهكذا بالبقيه
وانا اريد وضعها بزر واحد كما بالصورة التاليه يكون زر واحد فقط
وهذا الكود كامل
كود :
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وهذا مثال ارفقته في المرفقات لكم اتمني التعديل عليه ولكم الشكر والتحيه
ولكم الشكر والتحيه
كنت ابحث بهويه الشخص الاساسي تطلع عادي ولكن طلب البحث بالمرافقين بعد
