كيفية التأكد من صف معين موجود في قاعدة البانات ام لا

مغلق

بدأه aiasalem في 6 فبراير 2008 · 3 رد · 610 مشاهدة · في Microsoft Visual Basic.NET

#16 فبراير 2008 في 11:37 صاحب الموضوع

السلام عليكم ورحمة الله وتعالي

انا عامل برنامج به 1textbox خاص برقم قيد الموظف و textbox2 به اسم الموظف واداتي datatimepicer الاولي تاريخ ابتداء الاجازة والثانية تاريخ انتهاء الاجازة وكمبو بوكس به انواع الاجازات ( سنوي – بدل راحة – عارضة )

حتي الان تمام وهناك زر اضافة الاجازة هنا المشكلة

اريد عند اضافة الاجازة للموظف ان اتأكد ان هذا الموظف ليست له اجازة في نفس التاريخ علي سبيل المثال

رقم القيد الاسم تاريخ ابتداء الاجازة تاريخ انتهاء الاجازة نوع الاجازة

1 علي 10/1/2008 10/1/2008 سنوي

فمثلا عند اضافة اجازة لنفس الشخص يتم اضافة الاجازة هنا المشكلة لبد ان اتأكد انه لاتوجد اجازة لنفس الموظف في نفس التاريخ لانه من المعروف انه لاتوجد اجازتين لنفس الموظف في نفس اليوم

ارجو كيفية حل هذه المشكلة

قاعدة البيانات – اكسس – فيجوال بيزيك دوت نت 2003

#26 فبراير 2008 في 19:29

قبل الاضافة في الداتا بيس ابحث عن رقم الموظف وتاريخ انتهاء الاجازة

اذا كان تاريخ انتهاء الاجازة قبل تاريخ اليوم يضيف واذا لا ما يضيف ويطلع رسالة

#37 فبراير 2008 في 13:34

اخي الكريم مشكور ردك

ولكن هنا مشكلة سوف تواجهني هي ان الجدول المضاف اليه الاجازات مثاه كالاتي

رقم القيد الاسم تاريخ البداية تاريخ النهاية النوع

10 علي 1/2/2008 2/2/2008 سنوي

20 محمد 1/2/2008 2/2/2008 سنوي

10 علي 5/2/2008 5/8/2008 سنوي

هنا عندما يتم البحث عن رقم القيد بالتالي سوف يجده للشخص فقط حيث انه لايتكرر

وعندما يبحث عن تاريخ الانتهاء بالتالي سوف يجده له او لغيره اذا كان موجودا

هنا الاهم كيف يبحث عن الاثنين فقط لنفس الموظف فقط

وانا ارفقت لك بعض العمل الذي قمت به ولكن لم اتوصل الي نتيجة

انا عامل برنامج علي الفيجوال بيزيك دوت نت بقاعدة بيانات اكسس

المهم انني اعمل بحث علي عدد 4 حقول داخل جدول رقم 1 في قاعدة البيانات والمشكلة تنحصر في انني اريد ان اعمل بحث يقوم بالبحث بالتوالي علي الحقل الاول ثم الحقل الثاني ثم الحقل الثالث ثم الحقل الرابع وبالتالي اذا كانت نتيجة البحث ايجابية سوف يظهر سجل واحد فقط في الداتا جريد

حيث ان المراد البحث عن السجل كله بحقوله

وارفقت الكود

Dim job11 As DateTime

job11 = dd.Text

Dim con As New OleDb.OleDbConnection

Dim ds1 As New DataSet

Dim sql As String = "SELECT Name1, Phone1,job1,mang1,mangg1,total FROM table1 ORDER BY Name1;"

con.ConnectionString = "provider = Microsoft.jet.oledb.4.0;" & "Data Source=" & Application.StartupPath & "\MyData.mdb;User ID=Admin;Jet OLEDB:Database Password=ado "

Dim da As New OleDb.OleDbDataAdapter(sql, con)

con.Open()

da.Fill(ds1, "table1")

DataGrid1.DataSource = ds1.Tables("table1")

Dim dv As New DataView(ds1.Tables("table1"))

dv.RowFilter = "name1 = '" & TextBox1.Text & "'"

DataGrid1.DataMember = ""

DataGrid1.DataSource = dv

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

فأنا اريد المساعدة منكم بكيفية البحث عن الحقول الموجودة الاخري في نفس الزر

والمثال التالي يوضح الفكرة المطلوبة

الاسم رقم القيد تاريخ ابتداء الاجازة تاريخ نهاية الاجازة نوع الاجازة