Private Sub cmdfileok_Click()
Dim filechoose As Integer
Dim filefindkeys As String
filefindkeys = "% " & txtfilekey.Text & " %"
If optall.Value = True Then
frmmain.adofile.RecordSource = "select * from [file] where 用户号='" & txt_usernum & "' and ((文件编号 like '" & filefindkeys & "') or (存放目录 like '" & filefindkeys & "') or (文件 like '" & filefindkeys & "') or (备注 like '" & filefindkeys & "') )" ‘在这出现错误:标准表达式中数据类型不匹配
frmmain.adofile.Refresh
If frmmain.adofile.Recordset.EOF Or frmmain.adofile.Recordset.BOF Then
MsgBox "对不起,无相关信息!", vbOKOnly + vbExclamation, "错误"
End If
……
End If
End Sub
数据库为ACCESS,字段:用户号 整型 ,文件编号、存放目录、文件 字符型,备注 备注型
问题:哪出错了,怎么解决,以及详细的语句
Dim filechoose As Integer
Dim filefindkeys As String
filefindkeys = "% " & txtfilekey.Text & " %"
If optall.Value = True Then
frmmain.adofile.RecordSource = "select * from [file] where 用户号='" & txt_usernum & "' and ((文件编号 like '" & filefindkeys & "') or (存放目录 like '" & filefindkeys & "') or (文件 like '" & filefindkeys & "') or (备注 like '" & filefindkeys & "') )" ‘在这出现错误:标准表达式中数据类型不匹配
frmmain.adofile.Refresh
If frmmain.adofile.Recordset.EOF Or frmmain.adofile.Recordset.BOF Then
MsgBox "对不起,无相关信息!", vbOKOnly + vbExclamation, "错误"
End If
……
End If
End Sub
数据库为ACCESS,字段:用户号 整型 ,文件编号、存放目录、文件 字符型,备注 备注型
问题:哪出错了,怎么解决,以及详细的语句
解决方案 »
- 散分,以后很少来这了,改用VB.Net了。大家还准备用多久呢?
- 用ADODB如何更新Paradox数据库的记录集?急!请各位大侠帮忙!
- 请问如何删除某个目录下的txt文件
- 高分征解,来者有分,有没有那位老兄用VB写过域名查询程序?能说说具体实现思路和提供部分参考代码吗?
- 急!急!急! 阿紧急求助!!!!图片如何正确显示!!!!
- 用ADO方式查询AD,提示错误,表不存在,是什么原因呀,代码如下:
- 字符串,我哪错了?
- IIS为什么只能执行HTML文件不能执行ASP文件,请教
- 用VB跨网段访问SQLSERVER
- VB如何修改XML中的字符串
- ★★怎么设置自定义控件的默认属性?
- 恳求各位教诲 , sql server 之间的传数问题
frmmain.adofile.RecordSource = "select * from [file] where 用户号='" & txt_usernum & "' and ((文件编号 like '%" & filefindkeys & "%') or (存放目录 like '%" & filefindkeys & "%') or (文件 like '%" & filefindkeys & "%') or (备注 like '%" & filefindkeys & "%') )" 如果还不行,把条件去掉几个,再试
这样呢?建议你用ado对象,不会有这些问题的
我这边测试没有发现问题对了,你根据看一下recordsource的值,然后再access中执行以下,这样就知道问题了