[求助]DAO怎么实现多字段查询

烟雨厦江南 · 发表于 2005-11-20 18:02

Dim RS1 As Recordset Dim DB1 As Database Set DB1 = OpenDatabase(ThisWorkbook.Path & "\" & "学生档案.MDB") Set RS1 = DB1.OpenRecordset(Name:="档案", Type:=dbOpenDynaset) RS1.FindFirst "姓名='" & TextBox1.Value & "'" 以上为按单字段“姓名”查询

如何在DAO中实现多字段查询，类似于SQL中的select * from 表 where 字段1 and 字段2 RS1.FindFirst "字段1='" & TextBox1.Value & "'" and "字段2='" & TextBox2.Value & "'"通不过

mkb · 发表于 2005-11-20 18:34

eK9ug9ES.rar (13.87 KB, 下载次数: 129) 有一个现成的,是用ADO做,不知是否适合你

XUDAN511 · 发表于 2005-11-20 20:00

好东西,可以扩展到到不通的BOOK

sywb · 发表于 2005-11-23 09:06

我尝试引用这段代码的时候总是出现"运行时错误3464:应用程序定义或对象定义错误"! DAO3.6我已经引用了,例程里面引用的我也都引用了,咋还出错呢? 郁闷...

mkb · 发表于 2005-11-23 09:16

G6DT8abU.rar (21.15 KB, 下载次数: 105) 其中DAO查询你自已参考吧

sywb · 发表于 2005-11-23 09:24

2楼的例程是ADO,5楼的才是DAO.

skylark · 发表于 2005-11-23 09:26

To 楼上:

"是用ADO做" 请引用 Microsoft ActiveX Data 2.5 或其他版本.

__________________________________

Do Our Job Well Try Anything Once

sywb · 发表于 2005-11-23 11:19

谢谢楼上的关注! 我刚才又试了一下,发现 RS1.FindFirst "姓名='" & TextBox1.Value & "'" 中的姓名字段如果是ACCESS里面用自动编号实现的序号的话,就报错! 应用程序定义或对象定义错误,换成自己定义的字段就没事了!

改成 RS1.FindFirst "序号 = '" & CStr(BH) & "'"

故障依旧!

烦请各位指点

mkb · 发表于 2005-11-23 11:34

看来,你还是传上实例较好

烟雨厦江南 · 发表于 2005-12-5 21:19

自动编号的字段是不能输入值的，只能用于查询，用ADO（DAO）录入记录时，须避开自动编号字段，ACCESS会自动增加。

		自动登录	找回密码
密码			免费注册