西安最好吃的羊肉泡馍:vb中的问题

来源:百度文库 编辑:神马品牌网 时间:2024/03/29 16:55:58
Private Sub Command1_Click(Index As Integer)
Set db = OpenDatabase("db2.mdb")
Set rs = db.openrecordset("item")
rs.AddNew
rs!名称 = itname
rs!数量 = itnum
rs!单位 = itdan
rs!价格 = itjiage
rs!日期 = pvdata2
rs.Update
rs.Close
MsgBox "录入成功!", vbOKOnly + vbExclamation, "录入信息"
End Sub
为什么在编译到rs!名称...的时候就过不去 提示参数错误或无效的属性赋值
itname是textbox的名 我也能确定我的数据哭里有名称数量等项 我看到别的程序这样能编译通过
到底怎么回事呢?
楼下的朋友我已经改成你说的样子了
可是还是不行 提示错误是未找到方法或数据成员
在名称就开始出错了!我想可能不是数据转化的问题吧

用这样的sql语句比较好些
db.execute "insert into item (名称,数量,单位,价格,日期) values("+chr(13)+itname.text+chr(13)+","+itnum.text+","+itdan.text+","+itjiage.text+","+pvdata2.text+")"
db.update

改成如下:
rs!名称 = itname.text
rs!数量 = itnum.text
rs!单位 = itdan.text
rs!价格 = itjiage.text
rs!日期 = pvdata2.text

估计你数量,价格和日期可能需要转换.
可以使用Cint(itnum.text)转换成int类型.
CDat(pvdata2.text)转换成日期,
CDec(itjiage.text)转换成decimal类型

没错。