您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

vb+sql2000中,textbox中输入的数据如何转换为money类型

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

vb+sql2000中,textbox中输入的数据如何转换为money类型

发表于：2007-01-04 15:45:07 楼主

发表于：2007-01-04 16:03:011楼得分:0

cdbl（text1.text)

发表于：2007-01-04 16:06:592楼得分:0

text1.text= format（text1.text, "##0.00 ")

发表于：2007-01-04 16:11:043楼得分:0

format（text1.text, "#,##0.00 ")

发表于：2007-01-04 16:28:134楼得分:0

我试了后给你们加分

发表于：2007-01-05 14:08:345楼得分:0

各位老大:不行,报错
实时错误 '-2147217913（80040e07) '
不允许从数据类型varchar到数据类型money的隐形转换（.......),请使用convert函数来运行此查询

发表于：2007-01-05 14:49:146楼得分:0

首先,你必须要确定你的文本框中输入的字符串可以正常转换成数值,然后直接按字符串代入到sql语句中,不需要转换,代入时,可以考虑下面这个办法:
drs.open "select * from 表名 where moneyfield= "+cstr（val（text1.text)),yourcn

经过两次vb下的数据转换,是为了把文本框当中的内容转换成确实可以被sql解释为money的字符串

发表于：2007-01-05 15:17:017楼得分:0

mcn.ＥＸＥＣute "insert into 表名（number,name,money) values （ '00001 ', ' "+me.txtname.text+ " ', "+cstr（val（me.txtmoney.text))+ ") "

发表于：2007-01-05 15:27:158楼得分:0

dim dec_money as decimal=0
dec_money=cdec（trim$（txtmoney.text))

发表于：2007-01-05 16:32:029楼得分:0

我试了后再来给你们加分,ok

发表于：2007-01-05 22:35:3210楼得分:0

先检查是不是可以转换成数字类型再转换也许是空值之类不能转换
if isnumeric（text1) then
....
end if

发表于：2007-01-05 22:54:4511楼得分:0

先进行数值转换，才能进行money的格式化啊。

发表于：2007-01-08 16:06:4712楼得分:0

还是不行,我的数据库以前用的是access,是好的,后来把转换为sql server2000后出现这个问题,
我查了很多资料,都把money类型改为int或其他数据类型.

发表于：2007-01-08 17:49:2113楼得分:0

先判断isnumeric 然后 ccur（)

发表于：2007-01-08 17:49:4314楼得分:0

一定不要用cdbl（) 要用ccur（)

发表于：2007-01-11 22:23:2515楼得分:0

本人一直在开发使用sqlserver2000做数据库方面的软件,请使用我上面给你的方法,我的数据库字段当中有许多都是money类型的,这个类型非常好用,与numeric（18/4)是一样的,在要向数据库插入值的时候要注意两点:1.不要把非数值字符插入到应该是数据类型的位置,2.不要插入超过范围的数值.如果仍然出现问题,请找找看是不是你插入时位置不正确,把字符插入到了数值里面去了.其实money就是一种数值类型,不可能出现别的错误,如果还是解决不了,请把你的错误对话框上的文本贴出来

下一篇：关于access数据库中的ole对象字段，我如何使用vb读取他呢？
上一篇：求助关于datareport /水晶报表

其他资讯