重新绑定 Adodc1.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=E:\AccessDB\Database1.mdb;" Adodc1.RecordSource = "select [name] from T1 order by id " Adodc1.Refresh Set VSFlexGrid1.DataSource = Adodc1.Recordset.Clone
是不是要这样?"SELECT name FROM client WHERE name='" & Text1.Text & "'"
Private Sub Command1_Click() '过滤功能 If Text1.Text = "" Then MsgBox "请输入要查询的客户名称!", vbOKOnly, "提示" Else Adodc1.Recordset.Filter = "shortname=""" & Text1.Text & """" Adodc1.Recordset.Requery Set VSFlexGrid1.DataSource = Adodc1.Recordset VSFlexGrid1.Refresh End If
rowhiden(idx) = true
"SELECT name FROM client"
Adodc1.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=E:\AccessDB\Database1.mdb;"
Adodc1.RecordSource = "select [name] from T1 order by id "
Adodc1.Refresh
Set VSFlexGrid1.DataSource = Adodc1.Recordset.Clone
'过滤功能
If Text1.Text = "" Then
MsgBox "请输入要查询的客户名称!", vbOKOnly, "提示"
Else
Adodc1.Recordset.Filter = "shortname=""" & Text1.Text & """"
Adodc1.Recordset.Requery
Set VSFlexGrid1.DataSource = Adodc1.Recordset
VSFlexGrid1.Refresh End If
End Sub点击查询,什么都没有显示?为啥?
我用 DataGrid 做过类似的事情。实际上有两种方法:1 使用 Filter。2 查新查询。
11楼
=======
Adodc1.refresh 我得怎么改,修改后查询没反应??
Adodc1.Recordset.Filter = "shortname=""" & Text1.Text & """"
Adodc1.Refresh
重新查询的语句要写。再者,先确认你的修改是成功的