strA = text1.text select * from tbl* where 栏位名称 = '" & strA & "' Public Function Find(strA As String) As String Dim rsTemp As New ADODB.RecordsetOn Error Resume Next strSQL = "select * from tbl* where 栏位名称 = '" & strA & "'"
Set rsTemp = cnnFix.Execute(strSQL, vRecordCount)
If Not rsTemp.EOF Then 有 Else 没有 End If
Set rsTemp = Nothing
End Function
DIM SQL as string r.open "select * from table where 1=2",cn sql="" For i = 0 To r.Fields.Count - 1 sql=sql & " and " & Trim(r.Fields(i).Name) & " like '%" & text1 & "' " Next r.close sql="select * from table where 1=1 " & sql r.open sql ,cn 在全部的字段里找包含的字符串
在ADODC控件FIND方法中能不能使用变量查寻,也就是说给一个变量赋一个数据然后让FIND去搜索整个ACCESS数据库??
当然不同类型的变量参数的写法稍有不同
select * from tbl* where 栏位名称 = '" & strA & "'
Public Function Find(strA As String) As String
Dim rsTemp As New ADODB.RecordsetOn Error Resume Next
strSQL = "select * from tbl* where 栏位名称 = '" & strA & "'"
Set rsTemp = cnnFix.Execute(strSQL, vRecordCount)
If Not rsTemp.EOF Then
有
Else
没有
End If
Set rsTemp = Nothing
End Function
sql=""
For i = 0 To r.Fields.Count - 1
sql=sql & " and " & Trim(r.Fields(i).Name) & " like '%" & text1 & "' "
Next
r.close
sql="select * from table where 1=1 " & sql r.open sql ,cn 在全部的字段里找包含的字符串
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多,功能完备!★ 浏览帖子速度极快![建议系统使用ie5.5以上]。 ★ 多种帖子实现界面。
★ 保存帖子到本地[html格式]★ 监视您关注帖子的回复更新。
★ 可以直接发贴、回复帖子★ 采用XML接口,可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录!
★ 支持在线检测程序升级情况,可及时获得程序更新的信息。★★ 签名 ●
可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe [自解压]