پیغام خطای... multiple step operation

[mahsara]

با سلام
من موفعی که میخوام اطلاعات فرمم را در بانک ذخیره کنم وقتی فارسی می نویسم این خطا رو میده
multiple step operation generated errors,check each status value
البته توی چندتا سیستم برنامم رو اجرا کردم ولی فقط تو یک سیستم این مشکل رو داشت! و در همین سیستم که این خطا رو میده وقتی انگلیسی می نویسم خطا نمیده!
با تشکر از همه دوستان

[Mahmood_M]

خوب ما باید کدهای شما رو ببینیم تا بفهمیم که شما چه کاری انجام می دید که این خطا نمایش داده میشه !
اما احتمال میره که اندازه اطلاعاتی ( متنی ) که در فیلد مربوط به بانک قرار می دید بزرگتر از اندازه ی فیلد مربوطه باشه
سعی کنی اطلاعات کاملی از مشکلتون بدید تا جواب درستی بگیرید ، فیلدتون از چه نوعی هست ؟ ، اندازش چقدره ؟ چطور اطلاعات رو ذخیره می کنید ؟ ، خطی که این پیغام درش ظاهر میشه رو اینجا قرار بدید و ... ؟؟

[Amirtak]

سلام . هم با این خطا مواجه شدم. می شه کمکم کنید.
اینم کد :
ADOTable1.Open;
ADOTable1.Insert;
ADOTable1.FieldByName('ID').AsInteger:=StrToInt(tr imleft(trimright(Label35.Caption)));
ADOTable1.FieldByName('emp_no').AsString:=perno_vi s.emp_no;
ADOTable1.FieldByName('PAYDATE').AsString:=MaskEdi t2.Text;
ADOTable1.FieldByName('Doc_type').AsInteger:=11;
ADOTable1.FieldByName('pardakht_type').AsString:=' DA';
ADOTable1.FieldByName('par_visit').AsInteger:=0;
ADOTable1.FieldByName('par_daro').AsInteger:=0;
ADOTable1.FieldByName('daro').AsInteger:=0;
ADOTable1.FieldByName('visit').AsInteger:=(StrToIn t(str_1) * -1) ;
if MessageDlg('ÂíÇ ÈÑÇí ßÓÑ Çíä ãÈáÛ ÇÒ åÒíäå åÇí Çíä ÔÎÕ ãØÆä åÓÊíÏ ¿ ', mtWarning,[mbyes,mbNo],0)=mryes then
begin
ADOTable1.Post;
fm_Kasre_VisDaro.Close;
fm_main.post.Visible:=true;
end

[dark-man]

سلام . هم با این خطا مواجه شدم. می شه کمکم کنید.
اینم کد :
ADOTable1.Open;
ADOTable1.Insert;
ADOTable1.FieldByName('ID').AsInteger:=StrToInt(tr imleft(trimright(Label35.Caption)));
ADOTable1.FieldByName('emp_no').AsString:=perno_vi s.emp_no;
ADOTable1.FieldByName('PAYDATE').AsString:=MaskEdi t2.Text;
ADOTable1.FieldByName('Doc_type').AsInteger:=11;
ADOTable1.FieldByName('pardakht_type').AsString:=' DA';
ADOTable1.FieldByName('par_visit').AsInteger:=0;
ADOTable1.FieldByName('par_daro').AsInteger:=0;
ADOTable1.FieldByName('daro').AsInteger:=0;
ADOTable1.FieldByName('visit').AsInteger:=(StrToIn t(str_1) * -1) ;
if MessageDlg('ÂíÇ ÈÑÇí ßÓÑ Çíä ãÈáÛ ÇÒ åÒíäå åÇí Çíä ÔÎÕ ãØÆä åÓÊíÏ ¿ ', mtWarning,[mbyes,mbNo],0)=mryes then
begin
ADOTable1.Post;
fm_Kasre_VisDaro.Close;
fm_main.post.Visible:=true;
end

1- نوع دیتابیس چی هست؟ Sql Server یا Access؟
2- سعی کنید دستورات رو در try except بنویسید تا خطای برگشتی دقیق تر باشه .
3- در خط سوم فقط کافی بود بنویسید StrToInt(Trim(Label1.Caption))
4- هر وقت می خواید مقدار رشته ای رو در جدول وارد کنید از QuotedStrاستفاده کنید ، در صورتی که مقدار رشته ای خودش یک عدد باشه نیاز به QuotedStr نیست . (خط 7)
5- از صحت مقادیر اطمینان حاصل کنید .
6- همانطور که جناب Mahmood_N فرمودن برای حل یه مشکل نیاز به اطلاعات دقیق هست ، ممکنه کد زیر باز هم خطا بده .

procedure PostData;
begin
try
ADOTable1.Open;
ADOTable1.Insert;
ADOTable1.FieldByName('ID').AsInteger := StrToInt(Trim(Label35.Caption));
ADOTable1.FieldByName('emp_no').AsString := QuotedStr(perno_vis.emp_no);
ADOTable1.FieldByName('PAYDATE').AsString := QuotedStr(MaskEdit2.Text);
ADOTable1.FieldByName('Doc_type').AsInteger := 11;
ADOTable1.FieldByName('pardakht_type').AsString := QuotedStr('DA');
ADOTable1.FieldByName('par_visit').AsInteger := 0;
ADOTable1.FieldByName('par_daro').AsInteger := 0;
ADOTable1.FieldByName('daro').AsInteger := 0;
ADOTable1.FieldByName('visit').AsInteger := StrToInt(str_1) * -1;
if MessageDlg('', mtWarning, [mbyes,mbNo],0) = mryes then
begin
try
ADOTable1.Post;
except
on E: Exception do
ShowMessage(E.Message);
end;
end;
finally
fm_main.post.Visible := true;
fm_Kasre_VisDaro.Close;
end;
end;
7- خط 7 مقدارش رشته هست یا عدد؟
8- برای محاسبات مثل خط 14 بهتره اول عملیات ریاضی رو خارج از این محیط انجام بدید و در نهایت مقدار به دست آمده رو پست کنید .
9- خطای شما مربوط به 2 خط آخر می باشد .