+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] كود التحقق من ادخال رقم (/showthread.php?tid=14095)
كود التحقق من ادخال رقم - salah mansour - 12-12-15
السلام عليكم ورحمة الله ...اعمل فى مشروع برنامج موظفين ويتم ادخال رقم الموظف فى تكست بوكس اريد كود يتحقق من ان هذا الرقم قد ادخل مسبقا او لا ويعطينى رسالة بذلك....لكم جزيل الشكر
RE: كود التحقق من ادخال رقم - silverlight - 12-12-15
PHP كود :
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 في الكود اعلاه ثم تتأكد فقط ان المصفوفة ليس بها الرقم الجديد ثم تقوم بإدخاله الي ارقام الموظفين الاصلية
RE: كود التحقق من ادخال رقم - hamada558 - 12-12-15
انا شفت واحد من حبايبنا مش متذكره وضع سطر واحد يعرف بيه اذا السجل موجود ولا لا، بصراحة عجبني الاختصار، شوفو معايا
كود :
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