ورود

View Full Version : ثبت اعداد اعشاری در بانک اکسس



khoshblagh
پنج شنبه 16 دی 1389, 07:45 صبح
با سلام خدمت دوستان
میخواهم اعداد اعشاری مثلا 3.6 را در بانک اکسس ثبت نمایم . در ادیت باکس به همان صورتی که میخواهم عدد را وارد مینمایم ولی در نوبت بعدی که عدد را از بانک میخوانم به صورت عدد 4 نمایش داده میشود. فیلد بانک اکسس را به هر توع عددی تبدیل نمودم ولی نتیجه دلخواه که همان نمایش عدد 3.6 میباشد حاصل نشد. علت چیست ؟
متشکرم

hossein_h62
پنج شنبه 16 دی 1389, 07:54 صبح
سلام
مشکل خاصی نباید داشته باشه!
یه بار با نوع زیر تعریف کنید :
Data Type = Number
Field Size = Decimal
Precision = 18
Scale = 3

khoshblagh
پنج شنبه 16 دی 1389, 11:59 صبح
با سلام
پيام خطاي زير صادر شد.64618

hossein_h62
پنج شنبه 16 دی 1389, 12:07 عصر
دوست عزیز اکسس مشکلی در زمینه اعداد اعشاری نداره.
چجوری مقدار میدین به این فیلد ؟ چه نوعی رو در نظر گرفتین ؟
اطلاعات بیشتری اینجا بزارین که مشکل رو متوجه بشیم!!

khoshblagh
پنج شنبه 16 دی 1389, 12:53 عصر
با سلام
با دستور اس کيو ال در بانک ثبت ميکنم.

cmdSaveData.CommandText:='INSERT INTO tblCodMali(CodMali,SharCodMali,Karfarma,KarfarmaAs li,ShomarGh,TarikhGh,MablaghGh,'+
'Shoro,Payan,ModdatGh,NerkhBimehSherkat,NerkhBimeh Karfarma,Nazer,AddressKargah,NoaProject,'+
'Vazeyat,CodKargah,RadifKargah,SharBimehKargah,Sho behBimehKargah,CodHosnAngamKar,Yaddasht) values('+
QuotedStr(edtCodMali.text)+','+QuotedStr(edtOnvanC odMali.text)+','+QuotedStr(dbcobKarfarma.GetKeyVal ue)+','+QuotedStr(dbcobKarfarmaAsli.GetKeyValue)+' ,'+QuotedStr(edtShomarGharardad.Text)+','+QuotedSt r(edtTarikhGharadad.Text)+','+
QuotedStr(IntToStr(GetNum_ToInt64(edtMablaghGharar dad.Text)))+','+QuotedStr(edtTarikhShoro.Text)+',' +QuotedStr(edtTarikhPayan.Text)+','+(edtModdatGhar ardad.Text)+','+(edtNerkhBimehSherkat.Text)+','+
QuotedStr(edtNerkhBimehKarfarma.Text)+','+QuotedSt r(edtNazer.Text)+','+QuotedStr(edtAddressKargah.Te xt)+','+QuotedStr(dbcobNoaProject.KeyValue)+','+
QuotedStr(cbbVazeyat.Value)+','+ QuotedStr(edtCodKargah.text)+','+QuotedStr(edtRadi fKargah.text)+','+QuotedStr(dbcobSharBimeh.GetKeyV alue)+','+
QuotedStr(cbbShobeBimeh.Value)+','+QuotedStr(edtCo dHosnAngamKar.Text)+','+QuotedStr(mmoYaddasht.text )+')';

hossein_h62
پنج شنبه 16 دی 1389, 13:09 عصر
خطایی که دریافت کردین مربوط به فیلد NerkhBimehSherkat بود، از StrtoFloat استفاده کنید.

khoshblagh
شنبه 18 دی 1389, 07:38 صبح
خطایی که دریافت کردین مربوط به فیلد NerkhBimehSherkat بود، از StrtoFloat استفاده کنید.

با سلام خدمت دوست گرامی
در عبارت اس کیو ال که من نوشتم سعی کردم در جلوی عبارت edtNerkhBimehSherkat.Text تابع StrtoFloat را بکار ببرم که خطا تفاوت تیپ string با Extended اعلام مینماید. ضمنا با توجه به خطای پست 3 به نظر میرسد باید در باره BCD بررسی نمایم. آیا کسی در این باره اطلاعاتی دارد ؟ متشکرم.