ارور در کار با DBGrid ؟

سلام

دوستان من بانکم رو به یک DBGrid وصل کردم .اما متاسفانه در موقع کار همش با ارور Row can not be located for updating مواجه میشم .

خاصیت adCriteriaKey رو هم تنظیم کردم اما افاقه نکرد .

من میخوام که در این DBGrid بشه رکورد اضافه کرد ، رکورد حذف کرد و رکورد رو ویرایش کرد .(توی خودش)

همچنین مقدار یکی از ستون ها با توجه به مقدار ستون قبلیش محاسبه بشه(Master/Deties )

این جدول 5 تا ستون داره
1-ServiceCode -Key
2-RegDate-Key
3-ServiceName
4-Count
5-Amount

با شروع برنامه جدول Main و ServicesData رو Active میکنم .

برای اینکه بتونم مقدار (Amount ) رو محاسبه کنم بایست تعداد(Count )در جدول ذخیره شده باشه:پس بعد از وارد کردن تعداد و زدن دکمه Enter دستور Edit و بعدش Post رو میدم .

برای حذف رکورد هم از Edit و بعدش Delete استفاده میکنم .

مشکل کجاست؟

سلام
سورس برنامه رو اینجا بزار تا ببینیم مشکلش چیه.

با سلام
قبل از تنظيم adCriteriaKey اين خط رو هم اضافه كن:

کد:

---

ADO.Properties['Unique Table'].Value :='Tablename';

---

tablename نام جدول مورد نظر براي update هست

سلام مجدد
اینم کداش

با شروع برنام رکورد های مربوط به تاریخ روز جاری که ممکنه چند ساعت قبلش ذخیره شده باشه از جدول Main به جدول TempMain انتقال پیدا میکنه
[PHP]
procedure TFormNew2.FormCreate(Sender: TObject);
begin
DataModule1.ADOQueryMainToTemp.SQL.Clear;
DataModule1.ADOQueryMainToTemp.SQL.Add('Delete * From TableTempMainData');
DataModule1.ADOQueryMainToTemp.ExecSQL;


DataModule1.ADOQueryMainToTemp.SQL.Clear;
DataModule1.ADOQueryMainToTemp.SQL.Add('Insert Into TableTempMainData');
DataModule1.ADOQueryMainToTemp.SQL.Add('Select *');
DataModule1.ADOQueryMainToTemp.SQL.Add('From TableMainData');
DataModule1.ADOQueryMainToTemp.SQL.Add('Where RegDate='''+FormMain.ClassShamsi1.Shamsi+''' ORDER BY ServiceCode');
DataModule1.ADOQueryMainToTemp.ExecSQL;
end;
[/PHP]


[PHP]
procedure TFormNew2.FormActivate(Sender: TObject);
begin
DataModule1.ADOTableTempMainData.Active:=True;
DataModule1.ADOTableTempMainData.Properties['Update Criteria'].Value :=adCriteriaKey;
DataModule1.ADOTableTempMainData.Open;
DataModule1.ADOTableServicesData.Active:=True;
DataModule1.ADOTableServicesData.Open;
end;
[/PHP]


[PHP]
procedure TFormNew2.FormDeactivate(Sender: TObject);
begin
DataModule1.ADOTableMainData.Active:=False;
DataModule1.ADOTableMainData.Close;
DataModule1.ADOTableServicesData.Active:=False;
DataModule1.ADOTableServicesData.Close;
end;
[/PHP]
قبلا خیلی با جدول اصلی ور رفتم اما به جایی نرسیدم . چون تو جدولم دو تا کلید تعریف کرده (ServiceCode,RegDate( گفتم اگه اطلاعات رو توی یک جدول دیگه ذخیره کنم و با ذخیره شدن اطلاعات بین این دوتا جدول ردو بدل بشه مشکل حل میشه .برای همین یک جدول از جنس جدول اصلی انتخاب کردم .
[PHP]
procedure TFormNew2.cxButtonSaveClick(Sender: TObject);
begin
DataModule1.ADOQueryMainToTemp.SQL.Clear;
DataModule1.ADOQueryMainToTemp.SQL.Add('Update TableTempMainData Set RegDate='''+MaskEditDate.Text+'''');
DataModule1.ADOQueryMainToTemp.ExecSQL;

DataModule1.ADOQueryMainToTemp.SQL.Clear;
DataModule1.ADOQueryMainToTemp.SQL.Add('Delete * From TableMainData Where RegDate='''+MaskEditDate.Text+'''');
DataModule1.ADOQueryMainToTemp.ExecSQL;

DataModule1.ADOQueryMainToTemp.SQL.Clear;
DataModule1.ADOQueryMainToTemp.SQL.Add('Insert Into TableMainData Select * From TableTempMainData Order By ServiceCode');
DataModule1.ADOQueryMainToTemp.ExecSQL;

end;
[/PHP]

فکر کنم توی جدول پارادکس بود که اگر جدولم خالی بود و من دکمه حذف رو میطدم اروری نمیداد . اما اینجا این ارور خیلی اذیتم میکنه برای همین تو بلاک گذاشتمش
[PHP]
procedure TFormNew2.cxButtonDeleteClick(Sender: TObject);
begin
Try
DataModule1.ADOTableTempMainData.Edit;
DataModule1.ADOTableTempMainData.Delete;
Except
FormMessages.ShowSmartMessage('äÏÇÑÏ æÌæÏ ˜ÑÏä ÍÐÝ ÈÑÇí јæÑÏí <hr><br>ÏåíÏ ÝÔÇÑ Esc Ϙãå ÇäÕÑÇÝ ÕæÑÊ ÏÑ *','','ÇØáÇÚÇÊ æÑæÏ ÏÑ ÎØÇ');
end;
end;
[/PHP]

در این قسمت جدول سرویس های پیش فرض با سرویس های موجود در جدول TempMain مقایسه میشه و اون سرویس هایی که در جدول TempMain نیست بهش اضافه میشه
[PHP]
procedure TFormNew2.cxButton2Click(Sender: TObject);
begin
//æÇÑÏ ßÑÏä ÓÑæíÓ åÇí íÔ ÝÑÖ ÇÒ ÌÏæá ÓÑæíÓ åÇ
DataModule1.ADOQueryMainToTemp.Close;
DataModule1.ADOQueryMainToTemp.SQL.Clear;
DataModule1.ADOQueryMainToTemp.SQL.Add('Insert Into TableTempMainData(ServiceCode,ServiceName) Select ServiceCode,ServiceName From TableServicesData Where ServiceCode Not In (Select ServiceCode From TableTempMainData)');
DataModule1.ADOQueryMainToTemp.ExecSQL;

چون بعد از اضافه شدن اطلاعات در DBGrid نمایش داده نمیشد دستور Requery رو میدم
DataModule1.ADOTabletEMPMainData.Requery();

DataModule1.ADOQueryMainToTemp.SQL.Clear;
DataModule1.ADOQueryMainToTemp.SQL.Add('Update TableTempMainData Set RegDate='''+MaskEditDate.Text+'''');
DataModule1.ADOQueryMainToTemp.ExecSQL;

end;
[/PHP]

چون من به جمع تمام سطر ها و ستون ها نیاز دارم بایستی اطلاعات وارد شده در جدول ذخیره بشن تا بتونم با یک Query جمعشون رو بدست بیارم و تا زمانی که اطلاعات وارد شده ذخیره نشن Query چیزی رو بر نمیگردونه برای همین دستور زیر رو نوشتم
[PHP]
procedure TFormNew2.DBGridEh1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
DataModule1.ADOTableTempMainData.Edit;
DataModule1.ADOTableTempMainData.Post;
end;
end;
[/PHP]

دوستان من هر کاری میکنم یه جای کار میلنگه .

ذخیره رو درست میکنم حذف کردن ارور میده ، حذف رو درست میکنم رکورد اضافه کردن ارور میده ، اونو درست میکنم مقدار مبلغ رو با توجه به تعداد بدست نمیاره

لطفا راهنمایی کنید خیلی وقته دارم باهاش کلنجار میرم (شاید دو ما) دیگه داره ازش بدم میاد

سلام

آقا یکی پیدا نمیشه یه نمونه DBGrid برای ما بزاره که توش هم بشه ویرایش کرد هم حذف و هم اضافه بدون این ارور ها

نقل قول:

---

نوشته شده توسط hp1361 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام

آقا یکی پیدا نمیشه یه نمونه DBGrid برای ما بزاره که توش هم بشه ویرایش کرد هم حذف و هم اضافه بدون این ارور ها

---

نقل قول:

---

نوشته شده توسط farhad_g1 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

با سلام
قبل از تنظيم adCriteriaKey اين خط رو هم اضافه كن:

کد:

---

ADO.Properties['Unique Table'].Value :='Tablename';

---

tablename نام جدول مورد نظر براي update هست

---

تست كردي؟
اگر جواب مثبته سورس رو بذار. مطمئنا كسي نمياد كد و ديتابيس شما رو پياده سازي كنه تا متوجه شه كه مشكل كجاست. براي مشكلاتي از اين قبيل بهتره كه سورس رو بذاري تا زودتر جواب بگيري

سلام

لره اون کارو کردم اما فرقی نکرد

نمونه برنامه رو میزارم . دوستان اونو طوری تغییر بدین که وقتی چند تا رکورد اضافه کردیم و به یکی دیگه از دکوردا با موس حرکت کردیم ارور نده .

یا فیلدایی رو بدون اینکه دکمه ذخیره رو بزنیم بصورت رندومی تغییر بدیم

ممنون

کد:

---

http://rapidbaz.com/get/254864/DBGrid.rar

---

نقل قول:

---

نوشته شده توسط hp1361 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام

لره اون کارو کردم اما فرقی نکرد

نمونه برنامه رو میزارم . دوستان اونو طوری تغییر بدین که وقتی چند تا رکورد اضافه کردیم و به یکی دیگه از دکوردا با موس حرکت کردیم ارور نده .

یا فیلدایی رو بدون اینکه دکمه ذخیره رو بزنیم بصورت رندومی تغییر بدیم

ممنون

کد:

---

http://rapidbaz.com/get/254864/DBGrid.rar

---

---

سلام
كامپوننتهايي را كه در پروژه استفاده كرديد را ذكر كنيد.
مسير ديتابيس را بصورت static تعريف نكنيد.

قبل از اينكه كامپوننت مورد استفاده رو بگي، تست كن ببين با dbgrid استاندارد هم همين مشكل رو داري؟
چون بعضي از مشكلات به خاطر استفاده از كامپوننتهاي خاص بوجود مياد!

سلام

دوستان عزیز این نمونه ای رو که گذاشتم بدون هیچ کامپوننت خاص تستش کردم بازم ارور داد(شما dbgrid شرکتehlib رو حذف کنید و مال دلفی رو بزارین) فرقی نمیکنه

خیلی ساده بگم:شما یه DBGrid روی فرمتان بزارین بعد اجرا کنید چند تا رکورد بهش اضافه کنید و بصورت رندمی در فیلد های مختلف کلید کنید ببینید ارور میده یا نه ؟(از حالت Bachupdate استفاده نکنید چون در این حالت تا دستور سیو رو ندین اطلاعات در بانک ذخیره نمیشن و من نمیتونم از یکی از فیلدها جهت Master/Detiles استفاده کنم)

ممنون