اريد اضافة كود عدم تكرار البيانات تحت زر الاضافة باستخدام خاصية dao

مغلق

بدأه MS_SQL في 11 يوليو 2007 · 9 رد · 809 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#111 يوليو 2007 في 00:06 صاحب الموضوع

اخواني أنا اريد في زر " الاضافة " , عدم تكرار البيانات بالنسبة للإسم مع العلم انا بستخدم DAO

وكتبت هذا الكود ومش عارف ايه الحل , هل هناك خطأ ؟

 

Set t = db.OpenRecordset("data", dbOpenTable)

If t.EOF = True Then
t.AddNew
t!wanted = Trim(Text1.Text)
t!cost = Trim(Text2.Text)
t!Num_months = Trim(Text3.Text)
t!installment = Trim(Text4.Text)
t!address = Trim(Text5.Text)
t!tele_num = Trim(Text6.Text)
t!Percent = Trim(Text7.Text)
t!total_after_percent = Trim(Text8.Text)
t!date_B = Combo1.Text & "-" & Combo2.Text & "-" & Combo3.Text
t!date_S = Combo4.Text & "-" & Combo5.Text & "-" & Combo6.Text
t!date_E = Combo7.Text & "-" & Combo8.Text & "-" & Combo9.Text
t.Update
MsgBox "لقد تم الحفظ بنجاح", vbOKOnly + vbInformation, "الحفظ"
Else
MsgBox "هناك شخص اخر بنفس الاسم"

End If

HnHn : العنوان السابق

اقتباس
هل هناك خطأ في هذا الكود

تم تعديل هذه المشاركة بواسطة HnHn في 14 يوليو 2007 في 21:50

فلسطين .. سوريا ..بورما ......وماذا بعد ؟!

سابقا

medo_programming

موقعي : www.alkhayat-it.com

مواضيع مهمه

-----------------------------------------------:

تعلم كل شىء عن الTriggers

#211 يوليو 2007 في 08:08

قبل الاضافة يجب ان تبحث عن الاسم

Set t = db.OpenRecordset("data", dbOpenTable)
t.movefirst
t.find "name='" & text1111 & "'"
if t.eof then
....

مدونتي

استضافة مواقع asp.net :.Net 3.5,4,4.5, MVC2 & 3,SQL server 2008 R2, Crystal reports

#312 يوليو 2007 في 00:27

اولا مبروك على الوسام :lol:

ثانيا : أخي يظهر رسالة خطأ

The operation not supported for this object

ايش الحل؟!!!

فلسطين .. سوريا ..بورما ......وماذا بعد ؟!

سابقا

medo_programming

موقعي : www.alkhayat-it.com

مواضيع مهمه

-----------------------------------------------:

تعلم كل شىء عن الTriggers

#412 يوليو 2007 في 09:22

اولا الله يبارك فيك وعقبال عندك

ثانيا الظاهر انه حصل التباس لدي بين ado و dao لكن الحل كما يلي

Set t = db.OpenRecordset("data", dbOpenDynaset)

t.FindFirst "name='" & text1111 & "'"

If t.NoMatch Then

...

مدونتي

استضافة مواقع asp.net :.Net 3.5,4,4.5, MVC2 & 3,SQL server 2008 R2, Crystal reports

#512 يوليو 2007 في 21:30

أخي هذا مثال

فلسطين .. سوريا ..بورما ......وماذا بعد ؟!

سابقا

medo_programming

موقعي : www.alkhayat-it.com

مواضيع مهمه

-----------------------------------------------:

تعلم كل شىء عن الTriggers

#612 يوليو 2007 في 22:21

اخي الكريم

الكود ليس به خطأ وإنما الخطأ في اسم الفيلد الموجود في قاعدة البيانات والذي تقوم بالبحث من خلاله وهو حقل name

حيث ان name هي كلمة محجوزة للفيجوال

فقط قم بتغيير اسم الحقل وليكن مثلا name1

هذا الكود بعد التعديل

Dim t As Recordset

Set t = db.OpenRecordset("data", dbOpenDynaset)
t.FindFirst "name1='" & Trim(Text1.Text) & " '"
If t.NoMatch Then
t.AddNew
t!Name1 = Trim(Text1.Text)
t.Update
MsgBox "saved"
Else
MsgBox "there is same name"
End If

تحياتي

OMANI FOR EVER

-------------------------------------------------