جرب Compact & Repair لملف الأكسس.
Absolute لا يحتاج إلى أي إظافات فهو مدمج مع الملف التنفيذي
(20-03-2016, 03:23 AM)Mr.DOS كتب : [ -> ]سلام عليكم
قم بإخراج الشرط المساواة total = 0
قبل تنفيذ الاستعلام الثاني delete
ارفق مثال
مثال مرفق وأرجو من وجد سبب هذا الخطأ أن يوضح لي السبب أو إلافاقي برسالة الخطأ باللغة الأجنبية
[
attachment=3220]
(20-03-2016, 08:28 AM)Manarsoft كتب : [ -> ]Absolute لا يحتاج إلى أي إظافات فهو مدمج مع الملف التنفيذي
سأحاول الإطلاع على قاعدة البيانات هذه وأتمنى أن لا تكون للمشاريع الكبيرة
أخي العزيز:
يجب أن تقوم بعمل التالي:
كود :
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.
كود :
try
Adoconnection1.BeginTrans;
try
\\ Any Thing Here
Except
ON E:Exception DO ADOConnection1.RollbackTrans;
end;
end;
لاحظ انني لا اتحدث عن مشكلتك مع التعديل والحذف وانما عن مشكلة اخرى يجب ان تضعها بالحسبان
(21-03-2016, 11:18 AM)Delphi4Us كتب : [ -> ]كود :
try
Adoconnection1.BeginTrans;
try
\\ Any Thing Here
Except
ON E:Exception DO ADOConnection1.RollbackTrans;
end;
end;
لاحظ انني لا اتحدث عن مشكلتك مع التعديل والحذف وانما عن مشكلة اخرى يجب ان تضعها بالحسبان
جزاك الله خير
سأضعها في الحسبان
هل جربت البرنامج المرفق وإن كانت لغة الرسالة باللغة الأجنبية أرجو أن تضعها هنا لأبحث عن حل لهذه المشكلة
أخي العزيز هل جربت الكود الذي أرفقته لك أعلاه؟
كما قلت لك هذا هو الحل, أو أن تقوم باستعمال ال adoquery للإتصال بالجدول عوضاً عن adotable أيضاً كم أوضحت لك في الرد السابق!!
(23-03-2016, 09:03 AM)PLANSHARP كتب : [ -> ]أخي العزيز هل جربت الكود الذي أرفقته لك أعلاه؟
كما قلت لك هذا هو الحل, أو أن تقوم باستعمال ال adoquery للإتصال بالجدول عوضاً عن adotable أيضاً كم أوضحت لك في الرد السابق!!
الله يرضى عليك ويدخلك الجنه
لم أنتبه
كود :
ADOTable1.Close;
ADOTable1.Open
كود :
لقد طبقتها وإشتغل الكود عذرا صدقي
