• 0
aseer30

عند خطأ في برنامجي أتمنى الإجابة عليه من المختصن بالفيجوال6

سؤال

عندي برنامج بالفيجوال , له قاعدة بيانات آكسيس وجداول مرتبطه واستعمل الأداة adodc

حيث جدول1 مرتبط بجدول 2 وجدول2مرتبط بجدول3 فعند الحذف من الجدول1 ليس هناك مشكلة

أما إذا حذفت من الجدول2 تظهر هذه الرسالة ( حدثت أخطاء نتيجة عملية متعددة الخطوات ,تحقق من كل قيمة حالة)

ياليت ألقى حل وجزيتم خيرا

تم تعديل بواسطه aseer30
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

6 إجابة على هذا السؤال .

  • 0

الأخ الكريم/الأخت الكريمة

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

مرحباً بكم في منتدى الفريق العربي للبرمجة

نود تنبيهك أن العنوان غير مناسب.

الرجاء اختيار عنوان مناسب أكثر في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية.

وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!!

قواعد المشاركة

http://www.arabteam2000-forum.com/index.php?showtopic=29343

شاكرين لكم حُسن تعاونكم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

هل السؤال صعب ؟؟

أنا أستخدم الكود

adodc.recrdset.delete

وجزيتم خيرا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أرفق مشروعك هنا ..

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

تقصد ايه بمرتبط ؟؟ JOIN ??

إرفق مشروعك أو جملة الـ SELECT على الأقل

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا على ردكم الأخ

mrx_ta7ady

والمبرمج أحمد

---

جملة الاختيار في المشروع

Adodc3.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=Khaled;Extended Properties=" + "DSN=MS Access Database;DBQ=" + App.Path + "\mhfd.mdb;DefaultDir=" + App.Path + ";DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;PWD=15243;UID=admin;"

Adodc3.RecordSource = "Select * From JdwlGrood"

Set Text10.DataSource = Adodc3

Set Text11.DataSource = Adodc3

Text10.DataField = "rgmgrd"

Text11.DataField = "rgmamil"

Text12.DataField = "geemtgrd"

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

كود الحذف

Private Sub Command13_Click()

Dim x, y As String

If Text19.Text <> "" Then

y = Text19.Text

x = MsgBox("اختر رقم" + y, vbOKCancel, "تنبيه")

If x = vbOK Then

Adodc4.Recordset.Delete

Adodc4.Refresh

Adodc2.Refresh

Command13.Enabled = False

Else

Exit Sub

End If

Else

MsgBox "السجل خالي", vbOKOnly, "تنبيه"

End If

End Sub

تم تعديل بواسطه aseer30
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

مع إحترامي الشديد لسعادتك .. الكلام ده مش كافي

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

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

ثم قم بالتأكد ان المشروع يعمل وبه ما قمت بطلبه فقط .. وإنتظر منا الرد بعد معاينة المشروع بدقائق قليلة ان شاء الله

سببا وحلول بديلة ان شاء الله

لكن بهذا الشكل تحتاج مني وقت طويل جدا واعذرني لا املك الوقت الكافي لانشاء مشروع مماثل لمشروعك ومعرفة الحل لما يواجهك

انا اسف يا اخى .. قم بإرفاق مشروع مصغر قدر المستطاع ومع مراعاة ان لا يحوي اي مشكلة الا المشكلة التي ذكرتها

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .