[求助]关于DAO的使用问题。

qfyyc

本人初次在ACCESS中使用DAO，已引用了DAO，
以下一段代码：
Dim db As Database
Dim tdf As TableDef
Dim rst As Recordset
Dim strSQL As String
Set db = DBEngine.Workspaces(0).OpenDatabase("d:\我的文档\我的文件\西诊区前端.mdb")

Set rst = db.OpenRecordset("BD报表数据")
最后一句提示错误。

qfyyc

我想找到药方ID的值是yfh的记录，这样写对吗？
yfh = rst2.Fields(0)
fieldS(o)是第一个字段“药方ID对不？其类型为自动编号

Set rst1 = db.OpenRecordset("SELECT BD报表数据.* FROM BD报表数据 WHERE BD报表数据.[药方 ID]= '&yfh&'")





其提示，表达式中数据类型不匹配。

[此贴子已经被作者于2003-12-3 10:43:55编辑过]

sf

有时前后顺序会引起错误，因此在设置函数时事先指明引用ADO还是DAO，就不会产生因顺序引起的问题！
Dim sf  As DAO.Recordset
Dim sf1 As ADODB.Recordset

[此贴子已经被作者于2003-12-3 10:21:34编辑过]

zhengjialon

不是ADO和DAO不能同时，因为在ACCESS200里，默认引用ADO，所以要把DAO引用后并且将它向上移到ADO的上面就行了，并不需要不引用。

qfyyc

谢谢，我终于学会了。

wewyhy

点“回复”
http://www.office-cn.net/bbs/dispbbs.asp?boardID=3&ID=12148

wewyhy

把“Dim rst As Recordset”中“Recordset”改一下，比如object。多试几次，不是说
“类型不匹配”吗

qfyyc

版主：你好！
谢谢你的热心。
我按你上边的提到的，把ADO去掉了。就行了。
难道ADO和DAO不能同时存在吗？
我还不会向上传文件，回帖上没有上传的按钮啊？我不知道用哪个向上传啊，好几次想上传都没找到。

zhengjialon

把你的库传上来，我看看，我运行你的代码没有问题，是正确的

qfyyc

运行时错误13“类型不匹配”