الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ساعدوني

مغلق
بدأه visual 2007 في 28 يوليو 2007 · 4 رد · 534 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

لدي برنامج أداة الربط فيه هي Data1

قاعدة البيانات أكساس97

في زر الإضافة كتبت الكود التالي:

Data1.Recordset.AddNew

في زر الحفظ كتبت الكرد التالي:

Data1.Recordset.Update

Data1.Refresh

السؤال هو:

أريد كود يشعرك بأن الاسم موجود في قاعدة البيانات و يعطيك الاختيار هل تضيف هذا الاسم أم لا

وضعت هذا الكود لكنه لم يعمل

Data1.Recordset.FindFirst ("Name='" + txtname.Text + "'")

If Data1.Recordset.NoMatch = False Then

If MsgBox(" عفوا هذا الاسم موجو مسبقا داخل قاعدة البيانات !!!" & vbNewLine & "هل تريد تاكيد حفظ هذا الاسم داخل قاعدة البيانات ؟", vbQuestion + vbMsgBoxRight + vbMsgBoxRtlReading + vbYesNo, "تأكيد حفظ البيانات") = vbYes Then

Data1.Recordset.Update

MsgBox "لقد تم حفظ البيانات بنجاح"

End If

end if

أرجو التدخل و التعديل على المثال المرفق

_________________.rar

#2

بدل كود Command2 بألاتي :

Private Sub Command2_Click()
 On Error Resume Next
 Dim db As Database
 Dim rs As Recordset
  Set sb = Data1.Database
  Set rs = db.OpenRecordset("Select * From Index Where Name = '" & Trim$(txtname) & "'")
  If rs.RecordCount > 0 Then If MsgBox("Recored With the name (" & txtname & ") Already Exist." & vbCrLf & "Do You Want to Continue adding the record anyway! y/n?", vbInformation + vbYesNo, "Record Exist") = vbNo Then Data1.Recordset.CancelUpdate:  Exit Sub
  Data1.Recordset.Update
  Data1.Refresh
End Sub

تم تعديل هذه المشاركة بواسطة Pharaonic_Guy في 29 يوليو 2007 في 03:48

#3

أخي الكريم pharaonic_Guy

لك مني التحية و التقدير لتدخلك السريع أما بعد :

قمت بوضع الكود حسب توجيهاتك

و سار كل شئ على ما يرام إلا أنه يوجد خطأ بسيط و أكيد بتدخلك سوف يزول بإذن الله

مضمون الخطأ:

- في حالة إضافة إسم غير موجود مسبقا في قاعدة البيانات تأتي رسالة تفيد بوجود الإسم مسبقا

#4

اسف أخي علي هذا الخطأ ..

شوف الكود السابق وهتلاقي

Set sb = Data1.Database

غيرها إلي

Set db = Data1.Database

اصل حرف الـ s والـ d بجوار بعضهما علي الكيبورد ..

والبرنامج ما بيقولش خطأ ابدا علشان On Error Resume Next

وبالتالي يفضل إنك بعد ما تخلص برنامجك . وتنقحه من الأخطاء المنطقية .. إنك تحط الجملة دي ..

#5

بارك الله فيك أخي الكريم pharaonic_Guy

نجحت العملية تشكر جزيل الشكر على تواضعك و مساعدتي

لم يبقى لي إلا سؤال في الطباعة الفردية أي عندما أريد طباعة تقرير لشخص واحد من ضمن مجموعة أشخاص

و هذا بإستعمال:

DataEnvironment

حسب المثال المرفق

و معذرة كوني أكثر من الطلبات

______.rar

تم تعديل هذه المشاركة بواسطة visual 2007 في 30 يوليو 2007 في 14:20

هذا الموضوع مغلق.

مواضيع مشابهة