كود لمعرفة هل تم ادخال الرقم من قبل ام لا

لو فرضنا انه عندك قاعدة بيانات فيها جدول اسمه MyTable و داخلة خانة للرقم No وتريد التحقق من ان الرقم الموجود في التكست بوكس غير موجود في الجدول وفي حالة وجودة يعطي البرنامج رسالة يوضح فيها ان الرقم موجود استخدم الكود التالي :

بعد الاتصال بقاعدة البيانات والتي سنفرض ان معرف الاتصال بها هو DB

dim Rs as new adodb.Recordset

if rs.state=1 then rs.close

rs.open " Select * from MyTable Where No= " & val(text1.text) & ";",DB,adopenStatic,Adoptimisic

if rs.RecordCount >0 then 
	 msgbox " الرقم موجود سابقا"
   Exit sub
End if

' لكتب هنا كود حفظ البيانات

تحياتي

الأخ الفاضل ...

مشكور الأخ Omani

كذلك يمكنك أستخدام EOF

	rs.Open "Select * From [Table] Where [Number] = " & n, conn, adOpenForwardOnly, adLockReadOnly
	If rs.EOF = False Then
		rs.Close	' إغلاق قاعدة البيانات
		MsgBox "Already Exist"	 ' هذه الرسالة تظهر إذا كان الرقم موجود
		Exit Sub	' or Exit Function	يخرج من الدالة بعد إظهار الرسالة
	End If
	...
	...	' يستمر فى العمل
	...
	rs.Close

شكراً