عدم التكرار في قاعدة البيانات

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

اولا اعمل بحث عن الاسم

rs.Open "select * from Table1 where name='" & TxtName.Text & "' ", cn, adOpenStatic, adLockOptimistic

ثم اعرف عدد النتائج

If rs.RecordCount >0 Then
msgbox "الاسم موجود"
exit sub
else
'اكتب هنا كود إدخال البيانات
end if

شكراً لك أخي المتميز

ولكن أنا أربط القاعدة بـ Data Control

المعذرة انا لا استخدم أداة data

يأخي Comfort إن شاء الله سوف اعطيك المشروع للأضافه وعدم التكرار

يمكن اتأخر (بسبب الاختبار)

اعذرني

السلام عليكم

هذا كود البحث

Private Sub Command1_Click()
Data1.Recordset.FindFirst "name = '" & Text1.Text & "'"
If Data1.Recordset.NoMatch = True Then
'هنا تكتب امر الادراج
End If
End Sub

لكن أخي العزيز لم لا تنتقل للعمل على ADO?

تفضل بزيارة الموضووع

تفضل

شكراً لك أخي professional VB99

أخي المتميز جزاك الله خيراً

أنا أتعامل مع Ado فعلاً ولكن البرنامج الذي أصممه بسيط

وأنا أستسهل أداة Data Control .

شكراً لك على مساعدتي . :rolleyes: