كيف يمكن التعديل والحذف في نفس الوقت؟

[PLANSHARP]

جرب Compact & Repair لملف الأكسس.

[Manarsoft]

Absolute لا يحتاج إلى أي إظافات فهو مدمج مع الملف التنفيذي

[ALG2009]

سلام عليكم
قم بإخراج الشرط المساواة total = 0
قبل تنفيذ الاستعلام الثاني  delete

ارفق مثال

مثال مرفق وأرجو من وجد سبب هذا الخطأ أن يوضح لي السبب أو إلافاقي برسالة الخطأ باللغة الأجنبية


  pro.rar (الحجم : 22.07 ك ب / التحميلات : 5)

Absolute لا يحتاج إلى أي إظافات فهو مدمج مع الملف التنفيذي

سأحاول الإطلاع على قاعدة البيانات هذه وأتمنى أن لا تكون للمشاريع الكبيرة

[PLANSHARP]

أخي العزيز:
يجب أن تقوم بعمل التالي:

كود :

ADOQuery1.Close; ADOQuery1.SQL.Text:='update table1 set total=(total-5) '; ADOQuery1.ExecSQL; // ADOQuery1.Close; ADOQuery1.SQL.Text:='delete from table1 where total=0'; ADOQuery1.ExecSQL; // ADOTable1.Close; ADOTable1.Open

وذلك لكي يعيد ال adotable جلب بيانات الجدول من جديد, حيث أنه ليس هو من قام بالتحديث, أو يمكنك ترك الـ active = false لل adotable
و بعد الإنتهاء من تعليمات الحذف تعيدها إلى true.
أو استخدم adoquery آخر للإتصال بالجدول نفسه و عندها يمكن تطبيق الأمر refresh.

[Delphi4Us]

كود :

try Adoconnection1.BeginTrans; try \\ Any Thing Here Except ON  E:Exception DO ADOConnection1.RollbackTrans; end; end;

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

[ALG2009]

كود :

try Adoconnection1.BeginTrans; try \\ Any Thing Here Except ON  E:Exception DO ADOConnection1.RollbackTrans; end; end;

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

جزاك الله خير
سأضعها في الحسبان
هل جربت البرنامج المرفق وإن كانت لغة الرسالة باللغة الأجنبية أرجو أن تضعها هنا لأبحث عن حل لهذه المشكلة

[Mr.DOS]

السلام عليكم

شاهد المرفق

[PLANSHARP]

أخي العزيز هل جربت الكود الذي أرفقته لك أعلاه؟
كما قلت لك هذا هو الحل, أو أن تقوم باستعمال ال adoquery للإتصال بالجدول عوضاً عن adotable أيضاً كم أوضحت لك في الرد السابق!!

[ALG2009]

أخي العزيز هل جربت الكود الذي أرفقته لك أعلاه؟
كما قلت لك هذا هو الحل, أو أن تقوم باستعمال ال adoquery للإتصال بالجدول عوضاً عن adotable أيضاً كم أوضحت لك في الرد السابق!!

الله يرضى عليك ويدخلك الجنه

لم أنتبه

كود :

ADOTable1.Close; ADOTable1.Open

كود :

لقد طبقتها وإشتغل الكود عذرا صدقي