在VB6.0中如何在adodc查询?

来源:百度知道 编辑:UC知道 时间:2024/05/21 10:43:14
http://hi.baidu.com/barce198069/album/item/6cbe3aeccc20ebdc2e2e21e2.html#IMG=6cbe3aeccc20ebdc2e2e21e2
http://hi.baidu.com/barce198069/album/item/6cbe3aeccc20ebdc2e2e21e2.html#IMG=344ed8250ef9816d35a80fe3
http://hi.baidu.com/barce198069/album/item/6cbe3aeccc20ebdc2e2e21e2.html#IMG=26afff0935aa2b296a60fbec
上面是我的截图 我就是想用查询来实现 只要输入字符串 就可以查询到相同字符串的所有的记录

Private Sub cmdfind_Click()
Dim str As String

Dim mybookmark As Variant
mybookmark = Adodc1.Recordset.Bookmark
str = InputBox(&qu

str = InputBox("", "查找")
If str = "" Then Exit Sub
问题出在str上,str = InputBox("", "查找") 语句中str的表达式不正确应该是:
str1 = InputBox("提示", "标题", "输入框显示的文本")
变量不能用关键字str