Question

VB在ACCESS数据库里查询，在text2中输入数据后，按Command1键搜索后，dategrid控件中没有记录。

Private Sub Command1_Click()

Adodc1.RecordSource = "select 设备1.设备名称 from 设备1 where 设备1.设备名称 Like '&*Text2.text&'"

Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1

End Sub

Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\设备采购汇总\设备采购汇总.mdb;Persist Security Info=False"

Adodc1.CommandType = adCmdText

End Sub

Answer 1

Adodc1.RecordSource = "select 设备1.设备名称 from 设备1 where 设备1.设备名称 
Like '%" & Text2.text & "%'"