求助！根据文本框输入查询数据库值的问题
VB6.0，Aceess2003
我的代码是：
dim sql as string
dim result as string
result =text1.text
sql="select count(NO) as a from list where No='"&result&"'"
可以根据text1.text 输入的内容（如输入123456），统计到数据库中的记录（表中123456的记录总数）
现在，我需要在text1.text中输入AB123456，还是要统计到数据库表中123456的记录，该怎么实现？请各位大神帮帮忙！
[解决办法]
sql="select count(NO) as a from list where No like '%"&result&"%'"
[解决办法]
具体还是要看text1.text填入什么值，有什么规律
就像你说的 如果只是类似于 AB123456 或者 AC 123456
用你说的 mid(result,3) 或者 right(result,6) 都是可以的
然后 sql="select count(NO) as a from list where No like '%"&result&"%'" 或者用"="也行
[解决办法]
like *"内容" 可以实现模糊查询，可以参考VB模糊查询数据库的例子，支持拼音，首字母，等多种查询方式http://www.hilaiba.cn/Software.asp?id=52
[解决办法]
dim sql as string
dim result as string
Dim i As Integer, strTmp As String
result = ""
For i = 1 To Len(Text1)
strTmp = Mid(Text1, i, 1)
If strTmp > "0" And strTmp < "9" Then result = result & strTmp
Next i
sql="select count(NO) as a from list where No='"&result&"'"
