神马品牌网魏邦敏 双眼皮:VB:运行到nn.Seek "=",s$显示没有当前索引操作无效
来源：百度文库 编辑：神马品牌网 时间：2024/04/24 18:33:38
Private Sub Command4_Click()
Dim dd As Database
Dim nn As Recordset
Set dd=OpenDatabase("d:\数据库.mdb")
Set nn=dd.OpenRecordset("表",dbOpenTable)
msg$="请输入要查的书名！"
nn.Index=书名
s$=InputBox(msg$,"查询")
nn.Seek "=", s$
If nn.NoMatch Then
MsgBox "没有你要找的书！",16,"没找到"
Data1.Recordset.MoveFirst
Else
MsgBox "所查到的书号为" & nn!书号,48,"查找成功!"
End If
End Sub
原来是 nn.Index="书名",结果去掉了引号才通过此语句。字段名为 书名 没有错。
Dim dd As Database
Dim nn As Recordset
Set dd=OpenDatabase("d:\数据库.mdb")
Set nn=dd.OpenRecordset("表",dbOpenTable)
msg$="请输入要查的书名！"
nn.Index=书名
s$=InputBox(msg$,"查询")
nn.Seek "=", s$
If nn.NoMatch Then
MsgBox "没有你要找的书！",16,"没找到"
Data1.Recordset.MoveFirst
Else
MsgBox "所查到的书号为" & nn!书号,48,"查找成功!"
End If
End Sub
原来是 nn.Index="书名",结果去掉了引号才通过此语句。字段名为 书名 没有错。
Set nn=dd.OpenRecordset("表",dbOpenTable)
错了，不要这么用
你用data控件，直接从第一个记录开始查，如果
data1.recordset!表=“书名”
MsgBox "所查到的书号为" & nn!书号,48,"查找成功!"
nn.Index=书名错了吧。
不就是想控制MDB数据库进行查询吗？为什么不用AODB？