主题：vb查询数据库后，显示查找结果的问题
kewqd
[专家分：0] 发布于 2008-10-09 22:30:00
Private Sub Command1_Click()
If data1.Recordset.BOF Then
data1.RecordSource = "select * from 表 where 货物名称 = '& Text1.Text&'"
Text2.Text = data1.Recordset.Fields("货物名称")
End If
End Sub
提示错误为：实时错误91，对象变量或with块变量未设置
请高手指点一下
回复列表 （共4个回复）
沙发
wdkshp [专家分：5490] 发布于 2008-10-10 09:55:00
[color=000000]if语句已经表明数据库已打开，下面的语句你又想更改查询条件？
如果本意是这样，建议更改为 注意红色部分
data[color=FF0000]2[/color][color=000000].RecordSource = "select * from 表 where 货物名称 = '" & Text1.Text & "'"[/color]
[color=FF0000]data2.refresh[/color][color=000000]
Text2.Text = data[color=FF0000]2[/color[color=000000]].Recordset.Fields("货物名称")[/color][/color][/color]
板凳
kewqd [专家分：0] 发布于 2008-10-10 16:53:00
谢谢你的帮助，但是还是不对，提示还是 实时错误91，对象变量或with块变量未设置
我想实现 利用text1.text的值查询，然后将查询到的信息中的一部分显示在text2.text上
请帮忙解决一下！谢谢！
3 楼
我是大喊三 [专家分：3010] 发布于 2008-10-11 18:28:00
data1.RecordSource = "select * from 表 where 货物名称 = '& Text1.Text&'"
----------------------------------
你是用数据控件搞的吧，能这样查询？调试中断的时候，你看最后光标停在哪里，
4 楼
bcahzvip [专家分：6040] 发布于 2008-10-12 06:09:00
= =;先问他错在哪一句不好过吗?
我来回复
您所在位置：