施工现场组织机构图:vb小问题

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/30 04:53:02
rs!数量 = CInt(itnum.Text)
在编译到这步的时候怎么提示类型不匹配??

Dim rs As Recordset
Dim sql As String
sql = "select * from item"
Set db = OpenDatabase("db2.mdb")
Set rs = db.OpenRecordset("sql")
在查看数据库的时候包错是数据库查不到说sql是否存在一类的 怎么办?

最好这样:
rs!数量 = CInt(val(itnum.Text))

第一个:rs!数量 = CInt(val(itnum.Text))
第二个:Set rs = db.OpenRecordset("sql")去掉引号
Set rs = db.OpenRecordset(sql),你加引号表示的是执行一个为sql的查询,而不是select * from item的查询

变量类型不一致。

可能itnum.Text不是int型的,
在cint之前要做错误判断。

变量搞错了吧(第一个)