“这种对象类型不支持该操作”如何解决？？？

[pcbaby]

程序开头是这样连接数据库的：
Dim dbs As Database
Dim rst As Recordset
Set dbs = DBEngine.OpenDatabase("kxqa.mdb", False, False, "ms access;pwd=*******")
Set rst = dbs.OpenRecordset("**")
Set Data1.Recordset = rst

然后在过程中加上
Data1.Recordset.FindFirst "条件1 and 条件2"
但是每到这一句，VB都会提示“这种对象类型不支持该操作”

[xi_sea]

to 风雨无阻
你的sql语句怎么没有select 阿，当然提示操作符丢失了
不要犯低级错误阿

[xi_sea]

还有什么问题吗，一定帮你搞定，呵呵

[pcbaby]

这回倒是不出错误信息了，可是明明label标签连接上了数据库，但运行这段后却不转到相应的记录，什么提示也没有，真愁死了：（
整个代码是这样的：
Dim dbs As Database
Dim rst As Recordset
Dim strsql As String
strsql = "select * from 题库 where '难度'=2 and '类型'='单选'"
Set rst = dbs.OpenRecordset(strsql)

[qbilbo]

单引号加的不对.
strsql = "select * from 题库 where 难度='2' and 类型='单选'"
想让label显示还应该加上
set data1.recordset=rst

label.datafield=xxx

[qbilbo]

如果可能还是改学ADO吧,DAO都快被淘汰了，如果一定要用DAO，也尽量引用DAO，不要用DATA控件，虽然引用DAO代码量会大一点，但比用DATA控件灵活得多。

[pcbaby]

还要再问了，这两句我在程序开始时已经有了，现在和那段程序加在一起，
运行到Set rst = dbs.OpenRecordset(strsql)
时出现“标准表达式中数据类型不匹配”

[xi_sea]

sql语句中，你看看字段是什么类型，字符型要加'',数值型不用

[xi_sea]

strsql = "select * from 题库 where 难度=2 and 类型='单选'"

[IsMe]

为什么不使用Ado，一定要使用DAO呢
在adodb.recordset中，Find条件只能对一个字段按条件查找，不知道DAO是否同样

[qbilbo]

findfirst没能同时查找两个字段.
用SQL查询语句来查询比较方便.
dim strsql as string
strsql ="select * form 表名 where 字段1= 'xxx' and 字段2= 'xxx'"
Set rst = dbs.OpenRecordset(strsql)
这样rst中所有的记录都是符合你要求的记录.

[pcbaby]

语法错误（操作符丢失）在查询表达式‘* form 题库 where 难度=2 and 类型='单选''中

开始我直接在属性里设置数据源和字段时就可以同时查找两个以上的字段，现在加密码了，用代码连接后就不行了

TO：风之兄，上次拖你的福，这回再帮帮我吧？

[qbilbo]

你的难度字段是什么类型,如果是字符型就加上单引号.
form 写错了,应该是from