我的vb 数据库查询代码的问题，很是郁闷

来源：百度知道编辑：UC知道时间：2024/05/24 04:29:48

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块变量未设置
请高手指点一下
感谢你的帮助，但是还是不行
提示错误为：实时错误91，对象变量或with块变量未设置

我想完成的内容如下：text1.text的值查询数据库
然后在text2.tezt中显示查询到的一个属性信息
谢谢

Private Sub Command1_Click()

If data1.Recordset.BOF Then
data1.RecordSource = "select * from 表 where 货物名称 = '& Text1.Text&'"
data1.Refresh '========加上这句=============
Text2.Text = data1.Recordset.Fields("货物名称")
End If
End Sub

在数据库查询的代码(VB.NET) 关于VB中用代码查询数据库的 vb 数据库查询的问题关于VB对数据库查询的问题 VB中数据库查询的语法问题 VB 数据库查询的简单问题 vb和mdb数据库的查询问题在vb中有条件的查询数据库中数据的代码问题 VB连接数据库的查询代码怎么写？ vb数据库查询问题