السلام عليكم ورحمة الله ...اعمل فى مشروع برنامج موظفين ويتم ادخال رقم الموظف فى تكست بوكس اريد كود يتحقق من ان هذا الرقم قد ادخل مسبقا او لا ويعطينى رسالة بذلك....لكم جزيل الشكر
Private integers As List(Of Integer) = New List(Of Integer) From {10, 10, 30, 40, 50}
Dim newID As Integer = 40 Dim query As IEnumerable(Of Integer) = From i As Integer In integers Select i If Not query.Contains(newID) Then integers.Add(newID) Else MessageBox.Show("DateValue is included in list") End If
لو كان الكود خاص ب الداتا بيز ..... عليك ان تقوم بعمل استعلام لجلب جميع ارقام الموظفين كما فعلت انا مع المتغير query في الكود اعلاه ثم تتأكد فقط ان المصفوفة ليس بها الرقم الجديد ثم تقوم بإدخاله الي ارقام الموظفين الاصلية
انا شفت واحد من حبايبنا مش متذكره وضع سطر واحد يعرف بيه اذا السجل موجود ولا لا، بصراحة عجبني الاختصار، شوفو معايا
كود :
Dim ret As Integer = (New OleDb.OleDbDataAdapter("SELECT id FROM table1 WHERE id=" & Val(textBox1.Text), cnn).Fill(New DataTable))
If ret > 0 Then
MsgBox("البيانات مسجلة مسبقا")
Else
' هنا يتم الحفظ
End If