7,789
社区成员
发帖
与我相关
我的任务
分享vb,sql奇怪问题
在我的function里面有一句
Set rs = objAdoConn.Execute("select * from Sensitive where SenderAddress = "" & objSafeMail.SenderEmailAddress & """)
用add watch看objSafeMail.SenderEmailAddress有值，单独用access测试这个sql语句也没问题，但是为什么程序运行到这一句的时候，不执行这句，直接跳出function，请高手指点阿
Set rs = objAdoConn.Execute("select * from Sensitive where SenderAddress = "" & objSafeMail.SenderEmailAddress & """)
用add watch看objSafeMail.SenderEmailAddress有值，单独用access测试这个sql语句也没问题，但是为什么程序运行到这一句的时候，不执行这句，直接跳出function，请高手指点阿
...全文
请发表友善的回复…
发表回复
faysky2 2006-02-11
- 打赏
- 举报
按F8单步运行，看它是如何运行的
sunyi000 2006-02-11
- 打赏
- 举报
这个function之前有个public sub,如果从那开始运行，就没有错误，但是如果从别的地方直接调用这个function就出像上面问题，怎么回事，整个这些代码都是在class module里面
faysky2 2006-02-11
- 打赏
- 举报
按F8单步运行 或者给那句设置断点再运行看看
sunyi000 2006-02-11
- 打赏
- 举报
Function CheckSen(objItem, objns, objInbox) As Boolean
Set objSafeMail = CreateObject("Redemption.SafeMailItem")
objSafeMail.Item = objItem
Set rs = objAdoConn.Execute("select * from Sensitive where SenderAddress = "" & objSafeMail.SenderEmailAddress & """)
If rs.EOF = True Then
CheckSen = False
Exit Function
ElseIf LCase$(rs.Fields(1).Value) = "" Or LCase$(rs.Fields(1).Value) = LCase$(objItem.Subject) Then
CheckSen = True
End If
s = CheckSen
End Function
Set objSafeMail = CreateObject("Redemption.SafeMailItem")
objSafeMail.Item = objItem
Set rs = objAdoConn.Execute("select * from Sensitive where SenderAddress = "" & objSafeMail.SenderEmailAddress & """)
If rs.EOF = True Then
CheckSen = False
Exit Function
ElseIf LCase$(rs.Fields(1).Value) = "" Or LCase$(rs.Fields(1).Value) = LCase$(objItem.Subject) Then
CheckSen = True
End If
s = CheckSen
End Function
sunyi000 2006-02-11
- 打赏
- 举报
好像没有错误处理语句阿，这句之前都可以正确运行，一到这句就跳出去了
faysky2 2006-02-11
- 打赏
- 举报
你的 Function里是不是有错误处理语句？
faysky2 2006-02-11
- 打赏
- 举报
用单引号把值引起来才是正确的写法，用双引号是不对的
sunyi000 2006-02-11
- 打赏
- 举报
Set rs = objAdoConn.Execute("select * from Sensitive where SenderAddress = '" & objSafeMail.SenderEmailAddress & "'")
这样换成单引号也不行，一样问题
这样换成单引号也不行，一样问题
