عندي برنامج بالفيجوال , له قاعدة بيانات آكسيس وجداول مرتبطه واستعمل الأداة adodc
حيث جدول1 مرتبط بجدول 2 وجدول2مرتبط بجدول3 فعند الحذف من الجدول1 ليس هناك مشكلة
أما إذا حذفت من الجدول2 تظهر هذه الرسالة ( حدثت أخطاء نتيجة عملية متعددة الخطوات ,تحقق من كل قيمة حالة)
ياليت ألقى حل وجزيتم خيرا
تم تعديل هذه المشاركة بواسطة aseer30 في 13 نوفمبر 2008 في 22:39
أولا -- لست أرى السعادة جمع مال ** ولكن التقي هو السعيد
ثانيا-- وإن ضاق رزق اليوم فاصبر إلى غد *** عسى نكبات الدهر عنك تزول
ثالثا-- أصون عرضي بمالي لا أدنسه *** لا بارك الله بعد العرض بالمال
وأخيرا -- قال تعالى ( يوم لا ينفع مال ولا بنون إلا من أتى الله بقلب سليم )
الأخ الكريم/الأخت الكريمة
السلام عليكم ورحمة الله وبركاته
مرحباً بكم في منتدى الفريق العربي للبرمجة
نود تنبيهك أن العنوان غير مناسب.
الرجاء اختيار عنوان مناسب أكثر في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية.
وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!!
قواعد المشاركة
شاكرين لكم حُسن تعاونكم
سبحان الله وبحمده ... سبحان الله العظيم
هل السؤال صعب ؟؟
أنا أستخدم الكود
adodc.recrdset.delete
وجزيتم خيرا
أولا -- لست أرى السعادة جمع مال ** ولكن التقي هو السعيد
ثانيا-- وإن ضاق رزق اليوم فاصبر إلى غد *** عسى نكبات الدهر عنك تزول
ثالثا-- أصون عرضي بمالي لا أدنسه *** لا بارك الله بعد العرض بالمال
وأخيرا -- قال تعالى ( يوم لا ينفع مال ولا بنون إلا من أتى الله بقلب سليم )
تقصد ايه بمرتبط ؟؟ JOIN ??
إرفق مشروعك أو جملة الـ SELECT على الأقل
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
شكرا على ردكم الأخ
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 في 11 ديسمبر 2008 في 21:02
أولا -- لست أرى السعادة جمع مال ** ولكن التقي هو السعيد
ثانيا-- وإن ضاق رزق اليوم فاصبر إلى غد *** عسى نكبات الدهر عنك تزول
ثالثا-- أصون عرضي بمالي لا أدنسه *** لا بارك الله بعد العرض بالمال
وأخيرا -- قال تعالى ( يوم لا ينفع مال ولا بنون إلا من أتى الله بقلب سليم )
مع إحترامي الشديد لسعادتك .. الكلام ده مش كافي
لابد من وجود قاعدة البيانات وتسهيلا علينا ياريت تحط الكنترولز المستخدمه في مشروع وترفعه
ياريتك يا ريتك تقوم بنسخ قاعدة البيانات وحذف منها كافة الجداول التي لا تخص موضوعنا هذا وكذلك المشروع
ثم قم بالتأكد ان المشروع يعمل وبه ما قمت بطلبه فقط .. وإنتظر منا الرد بعد معاينة المشروع بدقائق قليلة ان شاء الله
سببا وحلول بديلة ان شاء الله
لكن بهذا الشكل تحتاج مني وقت طويل جدا واعذرني لا املك الوقت الكافي لانشاء مشروع مماثل لمشروعك ومعرفة الحل لما يواجهك
انا اسف يا اخى .. قم بإرفاق مشروع مصغر قدر المستطاع ومع مراعاة ان لا يحوي اي مشكلة الا المشكلة التي ذكرتها
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…