用的ACCESS数据库
创新互联专业为企业提供兰陵网站建设、兰陵做网站、兰陵网站设计、兰陵网站制作等企业网站建设、网页设计与制作、兰陵企业网站模板建站服务，10年兰陵做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
Dim cn As New OdbcConnection(strConnect)
Dim da As New OdbcDataAdapter("SELECT TOP 5 * FROM 表名 WHERE 数值 " txtbox1.Text , cn)
Dim ds As New DataSet
da.Fill(ds, "表名")
Dim dtTable As New DataTable
dtTable = ds.Tables("表名")
或者是使用数据库Commd里边的Parameters.Add来添加参数，希望对你有帮助
Sub Find(ByRef Obj As DataGridView, Optional ByVal value As String = Nothing, Optional ByVal cellIndex As Integer = 1)
For Each i As DataGridViewRow In DataGridView1.Rows
If value Is Nothing OrElse value = "" Then
i.Visible = True
Else
Try
If i.Cells(cellIndex).Value IsNot Nothing Then i.Visible = i.Cells(cellIndex).Value = value
Catch ex As Exception
End Try
End If
Next
End Sub
Find(DataGridView1, "张三",1)
您好！
1.ddlname为dropdownlist的ID值
2.dropdownlist绑定sql语句为
select * from tb where name = '"+ddlname.SelectedValue.ToString()+""
3.点击dropdownlist下拉扭时，改变ddlname.SelectedValue.ToString()的值，就可以筛选数据了。
这个不难，首先你要将列表框中的内容读取到一个数组s(N)里，然后清空列表框，用 for 循环进行筛选，如下：
for i=1 to N 'N为列表框内容的个数
用if是否为用户输入的文字
用add列表框添加筛选内容
endfor
希望能对您有所帮助！
