Chabok
یک شنبه 19 تیر 1384, 12:24 عصر
خواهشا کمک کنید !!! فوری فوریه
با عرض سلام خدمت خدمت حضار گرامی
از دوستان محترم کسانی که اعداد فرمت بندی شده را در
دیتابیس ذخیره می کنند کمک می خواهم .
من توی برنامه توسط تابعی که توی همین سایت معرف شده بود
تکست باکس ها را فرمت بندی کردم و سپس توسط تابع زیر
کاما را برداشتم و در دیتابیس بصورت عددی Integer ذخیره می کنم
یعنی ابتدا 123,456 رو به 123456 تبدیل کردم و سپس بصورت عددی ذخیره می کنم
Public Function DelCamaDS(ByVal Text As String) As String
DelCamaDS = Text.Replace(",", "")
End Function
و در ذخیره کردن بدون کاما مشکلی ندارم
ولی برای نشان دادن به مشکل بر می خورم
من می خواهم کل فیلد مورد نظر را در دیتاست دوباره فرمت بندی کنم
یعنی 123456 رو به 123,456 تبدیل کنم و نمایش دهم
ولی چون فیلد من عددی است نمی توان در آن ستون متن فرمت بندی شده متنی ذخیره کرد
For I = 0 To DS.Tables("HS").Rows.Count - 1
Dim S1 As Int64 = DS.Tables("HS").Rows(I).Item(12)
Dim S2 As Int64 = DS.Tables("HS").Rows(I).Item(13)
DS.Tables("HS").Rows(I).Item(12) = PutcamaDS(S1)
DS.Tables("HS").Rows(I).Item(13) = PutcamaDS(S2)
Next
پس می بینیم که نمی توان بصورت عددی ذخیره کرد . چون در تغییر دیتاست مشکل داریم .
حال اگر بخواهیم اعداد بدون کاما را در دیتا بیس بصورت متنی 12345 ذخیره کرد
هنگام تغییرات در دیتاست مشکلی ندارم . ولی برای جستجو در دستور Select مشکل ایجاد می شود
Select * From Table1 Where P1 between @A,@B
Select * From Table1 Where P1 between '200','1800'
چون این فیلد P1 بصورت رشته ای می باشد نتایج جستجو غلط می باشد
خواهشا برای چگونگی ذخیره اعداد در دیتابیس و فرمت بندی اعداد در دیتاست راهنمایی کنین
خواهشا اگه کسی چیزی میدونه دریغ نکنه . چون خیلی فوریه
از همگی سپاسگزارم
با عرض سلام خدمت خدمت حضار گرامی
از دوستان محترم کسانی که اعداد فرمت بندی شده را در
دیتابیس ذخیره می کنند کمک می خواهم .
من توی برنامه توسط تابعی که توی همین سایت معرف شده بود
تکست باکس ها را فرمت بندی کردم و سپس توسط تابع زیر
کاما را برداشتم و در دیتابیس بصورت عددی Integer ذخیره می کنم
یعنی ابتدا 123,456 رو به 123456 تبدیل کردم و سپس بصورت عددی ذخیره می کنم
Public Function DelCamaDS(ByVal Text As String) As String
DelCamaDS = Text.Replace(",", "")
End Function
و در ذخیره کردن بدون کاما مشکلی ندارم
ولی برای نشان دادن به مشکل بر می خورم
من می خواهم کل فیلد مورد نظر را در دیتاست دوباره فرمت بندی کنم
یعنی 123456 رو به 123,456 تبدیل کنم و نمایش دهم
ولی چون فیلد من عددی است نمی توان در آن ستون متن فرمت بندی شده متنی ذخیره کرد
For I = 0 To DS.Tables("HS").Rows.Count - 1
Dim S1 As Int64 = DS.Tables("HS").Rows(I).Item(12)
Dim S2 As Int64 = DS.Tables("HS").Rows(I).Item(13)
DS.Tables("HS").Rows(I).Item(12) = PutcamaDS(S1)
DS.Tables("HS").Rows(I).Item(13) = PutcamaDS(S2)
Next
پس می بینیم که نمی توان بصورت عددی ذخیره کرد . چون در تغییر دیتاست مشکل داریم .
حال اگر بخواهیم اعداد بدون کاما را در دیتا بیس بصورت متنی 12345 ذخیره کرد
هنگام تغییرات در دیتاست مشکلی ندارم . ولی برای جستجو در دستور Select مشکل ایجاد می شود
Select * From Table1 Where P1 between @A,@B
Select * From Table1 Where P1 between '200','1800'
چون این فیلد P1 بصورت رشته ای می باشد نتایج جستجو غلط می باشد
خواهشا برای چگونگی ذخیره اعداد در دیتابیس و فرمت بندی اعداد در دیتاست راهنمایی کنین
خواهشا اگه کسی چیزی میدونه دریغ نکنه . چون خیلی فوریه
از همگی سپاسگزارم