使用VB+sql的adodc部件进行模糊查找
IfLen(Text8.Text)>0ThenAdodc1.CommandType=adCmdTextAdodc1.RecordSource="select*fromre...
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
不知道为什么不行 展开
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
不知道为什么不行 展开
1个回答
展开全部
Adodc1.RecordSource = "select * from reader where 姓名 like '* " & Text8.Text & "* ' "
追问
刚才那个问题我自己已经解决了,不过我还有个问题就是我想用一个文本框输入列名,然后另外一个文本框输入查询的信息应该怎么做
追答
'text1是列名 text2是查询信息
Adodc1.RecordSource = "select * from reader where "+trim(text1.text)+"='"+trim(text2.text)+"'"
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询