
首先你要搞清楚你的数据库字段的类型, 比如你的“数量” 明显不是字符类型的, 所以你用text3text出来的字符串要强制转换。 Adodc1RecordsetFields("数量") =cint(text3text) 来获得。 其他类似。
调整一下代码
'ElseIf IsNull(Trim(MeText6)) Then '此行需要修改
'上句修改为下句
ElseIf not IsDate(Trim(Me!Text6)) Then 'Me后面使用叹号引用用户控件比用点号代码更健壮
MsgBox ("投资时间不得为空") '此行需要修改,注意使用MsgBox()函数不太恰当
'上句修改为下句
MsgBox "投资时间必须是一个有效日期且不得为空" '注意使用MsgBox语句更好
Exit Sub '注意每个消息框后面要加这句
'
With rs
!投资时间=Trim(MeText6)
'上句修改为下句
!投资时间=CDate(Trim(Me!Text6))
'
这个要看你数据库定义的日期是什么类型的了。
这样试试
“select 日期,时间 from 数据库 where 日期=format(‘DTPicker’,'yyyymmdd')”
以上就是关于vb 查询数据库时出现“标准表达式中数据类型不匹配”全部的内容,包括:vb 查询数据库时出现“标准表达式中数据类型不匹配”、ACCESS数据库代码错误:运行时错误‘’类型不匹配。截图如下,如何解决、vb中数据库查询,数据类型不匹配等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)