关于内容的匹配

boyfuture 发布于 2008-02-02 14:35， 805 次点击

不好意思，基础太差，请教各位大虾这个匹配该怎么写？
数据库：mzrq 星期三（文本）
执行下面的查询，令mzrq=当前的星期
sql1= "SELECT * FROM alertdata WHERE txzt='需要提醒' and syname='"&session("UserName")&"' and szlx='每周定期提醒' and mzrq="&GetWeek(Date())&" "
<%
Function GetWeek(ThisDay)
If IsDate(ThisDay) Then
   Dim CharWeek
   CharWeek=Weekday(ThisDay)
   Select Case CharWeek
    Case 1
     GetWeek="星期日"
    Case 2
     GetWeek="星期一"
    Case 3
     GetWeek="星期二"
    Case 4
     GetWeek="星期三"
    。。。
%>但是每次执行查询的时候总是在mzrq这里出错，请问我该怎么写呢？请各位大虾指教！

7 回复

yms1232008-02-02 14:49

sql1= "SELECT * FROM alertdata WHERE txzt='需要提醒' and syname='"&session("UserName")&"' and szlx='每周定期提醒' and mzrq='"&GetWeek(Date())&"' "
mzrq是文本值要加''单引号

boyfuture2008-02-02 15:47

我也试过，但是筛选后没有任何反应也不提示错误，但是没有查询出那个结果（实际存在），请问，还有什么原因？是不是GetWeek(Date())获得的值是日期，还需要转换呢？请指教！谢谢！

yms1232008-02-02 15:54

数据库mzrq是文本值？

boyfuture2008-02-02 16:11

对，定义的mzrq类型是文本，改成日期则没法显示星期几这样的类型。但是必须使用按星期进行筛选。

madpbpl2008-02-02 17:03

用2#yms123版主写的sql输出
Response.Write sql1
看看结果

boyfuture2008-02-02 19:09

非常感谢啊，我以为今天是星期三啊，输出的结果是周六，我才知道，

谢谢啊！这个方法太有效了！

hmhz2008-02-02 21:10

一般程序执行的时候是看不到执行过程的，包括执行过程中的值,只有通过返回的错误提示来了解错误原因,如果看不到任何提示的，那是因为程序里使用了容错代码on error resume next,容错代码顾名思义,就是容许错误继续执行下一段程序,而不返回错误信息,所以遇到这样的情况就要把容错代码暂时注释掉,或者把这个值或者执行过程输出显示,直观的来看就很容易看到原因的所在

[[it] 本帖最后由 hmhz 于 2008-2-2 21:20 编辑 [/it]]