1188
社区成员
这段程序有什么错误
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)
错误提示：类型不匹配,错误所在行为最后一行
Dim db As Database
Dim tb As Recordset
Set db = OpenDatabase("D:\database\product.mdb")
strsql = "select * from product"
Set tb = db.OpenRecordset(strsql)
错误提示：类型不匹配,错误所在行为最后一行
...全文
当前发帖距今超过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)
这样就没问题了~
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
你的strsql还没定义，
dim strsql as string
damofengbo 2006-03-22
Dim tb As new Recordset
pubutan 2006-03-22
先搞个query
10年经验1张图-职业教育机构就业课程体系规划 10年经验一张图，资源包含一张详细的令人发指的思维导图（其中资源链接直接可以用），若干word文档、就业课ppt、简历模板等等资源，帮助企业老师解决就业课设计和实施问题。
【Matlab仿真】基于贝叶斯准则和最小平均错误概率准则的二元信号检测及性能分析 【Matlab仿真】基于贝叶斯准则和最小平均错误概率准则的二元信号检测及性能分析，通过观察检测概率和虚警概率随着检测门限的变化而变化
