VB+SQL 进行模糊查找的有关问题用了Adodc

2013-09-07

VB+SQL 进行模糊查找的问题用了AdodcIf Len(Text8.Text) 0 ThenAdodc1.CommandType adCmdTextAdodc1.

VB+SQL 进行模糊查找的问题用了Adodc
    If Len(Text8.Text) > 0 Then
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "select * from reader where 姓名  like '% " & Text8.Text & " % ' "
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1.Recordset
    DataGrid1.Refresh
    Else
        MsgBox ("请指定要查找读者的姓名"), , ("提示")
    End If