这段程序有什么错误

cnhawk386 2006-03-22 10:29:44
Private Sub Command1_Click()
Dim db As Database
Dim tb As Recordset
Set db = OpenDatabase("D:\database\product.mdb")
strsql = "select * from product"
Set tb = db.OpenRecordset(strsql)
错误提示:类型不匹配,错误所在行为最后一行
...全文
68 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
cnhawk386 2006-03-22
还是有问题
回复
jackcaixia 2006-03-22
你首先定义"STRSQL"

Private Sub Command1_Click()
DIM SRTSQL AS STRING
Dim db As Database
Dim tb As Recordset
Set db = OpenDatabase("D:\database\product.mdb")
strsql = "select * from product"
Set tb = db.OpenRecordset(strsql)
这样就没问题了~
回复
tztz520 2006-03-22
语句没问题的,
你的strsql还没定义,
dim strsql as string
回复
damofengbo 2006-03-22
Dim tb As new Recordset
回复
pubutan 2006-03-22
先搞个query
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2006-03-22 10:29
社区公告
暂无公告