مشکل با یک error نا شناخته

[Tarrah]

سلام
یه فرم دارم (mainf ) که یه سری اطلاعات از کاربر می گیره و با ثبت یه سری دیگه از اطلاعات وارد فرم 2 می شه.
قبلا موقع طراحی چند بار برنامه رو اجرا کردم درست جواب داد.یه بار که run کردم بعد انتخاب دگمه ای که مربوط به ثبت اطلاعات و ورود به فرم 2 هست error گرفت و اومد رو این سطر:
adotable1.FieldByName('saat').AsString:=Timetostr( now);z
error هم اینه : an unkonown error has occured
حالا جالب اینجاست که وقتی exe برنامه رو اجرا می کنم هیچ مشکلی پیش نمیاد و اطلاعات هم به درستی ثبت می شن .ولی وقتی از تو دلفی run می کنم این error رو می گیره و برنامه متوقف می شه.
database منم هم sql server 2000 هست .
مشکل از کجا می تونه باشه ؟

[Touska]

بعضی وقتی ها از این مشکلات برای من پیش آمده ولی من عادت دارم برنامه ام را با

فایل EXE تست می کنم. از کنار این error گذشتم و بی خیالش شدم.

[Tarrah]

خوب باید یه علتی داشته باشه . نمی شه که همین جوری . من عادت دارم موقع نوشتن هر code برنامه رو run کنم . خیلی سخته برام اگه مشکل حل نشه .

[Kamyar.Kimiyabeigi]

وقتی error میده cursor دلفی روی همین خط می ایسته و یا روی خط پایینتر؟

[Tarrah]

رو همین خط
وقتی هم که حذفش می کنم رو خط پائین تر وا میسته . دستور اون سطر هم تاریخ رو وارد DataBase می کنه .

[vcldeveloper]

کد شما در داخل یک بلوک try-finally یا try-except قرار داره؟
پیغام های خطای دلفی معمولا کاملتر هستند و کلاس exception رو هم اعلام میکنه.

[Tarrah]

نه . بعد یه شرط if داخل یه begin و end معمولی هستند .

[Kamyar.Kimiyabeigi]

معمولا cursor دلفی در هنگام خطا روی خط بعدی می ایسته یعنی اینکه خط قبل از


adotable1.FieldByName('saat').AsString:=Timetostr( now);

مشکل داره

[Tarrah]

دستور اون سطر هم اطلاعاتی رو وارد DataBase می کنه .

[Kamyar.Kimiyabeigi]

میشه کدتو بزاری اینجا ؟

[Tarrah]

اینو بگم که چندبار من برنامه رو با همین کد run کردم و اطلاعات رو به درستی ثبت کرده .


if tblkarbar.Locate('KarbarName',mainkarbar.Text,[]) then
begin
if tblkarbar.FieldByName('KarbarPass').AsString=pass then
begin
t:=tblkarbar.FieldByName('KarbarId').Asinteger;
label1.Caption:=inttostr(t);
tblSavabeg.Append;
tblSavabeg.FieldByName('Tarikh').AsString:=fdate;
tblSavabeg.FieldByName('Saat').AsString:=Timetostr (now);
tblSavabeg.FieldByName('KarbarId').Asinteger:=t;
tblSavabeg.FieldByName('NagshId').Asinteger:=14;
tblSavabeg.Post;
tblkarbar.Active:=false;
end
else showmessage('');
end
else showmessage('');

[Kamyar.Kimiyabeigi]

شما یک بار بجای Append از insert استفاده کن و بعد تست بگیر
موفق باشی

[Tarrah]

مگه مشکل append چیه ؟ حالا بازم امتحان می کنم .

[Tarrah]

امتحان کردم بازم همین مشکل هست .

[Kamyar.Kimiyabeigi]

شما به جای کد


tblSavabeg.FieldByName('Saat').AsString:=Timetostr (now);

از یکی از کدهای زیر استفاده کن


tblSavabeg.FieldByName('Saat').AsString:=DateTimeT oStr(now);

or

tblSavabeg.FieldByName('Saat').AsString:=Timetostr (time);

[MToloo]

اون unknown error اصلا مهم نیست. مثلا اگه یک فیلد lookup درست کنی که اطلاعاتی رو از یک جدول دیگه بیاره، اگه نتونه (البته تحت شرایطی ) این خطا را می گیره. برای هر رکوردی که نتونه، این خطا رو یه بار می گیره. مثلا 100 بار. برای اینکه اعصاب خورد کن نشه و نخوام فایل exe رو اجرا کنم، من خطاهای دلفی رو غیر فعال میکنم. مشکلی هم پیش نمیاد. (Tools->Debugger options->Language exceptions->Stop on dephi exceptions رو بردار)

[Tarrah]

از همه دوستان ممنونم .

[Kamyar.Kimiyabeigi]

حالا مشکلتون حل شد ؟ اگه حل شده اشکال از کجا بود ؟

[Tarrah]

فکر می کنم همین فیلد lookup ایجاد مشکل کرده بود .

[Kamyar.Kimiyabeigi]

مگه شما فیلد lookup داشتین ؟

[Tarrah]

بله . به جای فیلد karbarid و nagshid اسم کاربر و نقش رو نمایش می دم .