该语句错在哪？用的是ACCESS数据库，Format_Time是自定义的一个日期格式转换函数
Microsoft VBScript 编译器错误 错误 '800a0401'
语句未结束
/Shop/Search_Class.asp，行18
Rs.Open "Select * From Products A,BusinessApplication B,BusinessHome C Where C.BusinessHome_Num=A.Product_BusinessHomeNum And DateDiff("d",Format_Time(Cdate(Mid(Product_DataTime,1,(InstrRev(Product_DataTime," ")-1))),2),Format_Time(Cdate(Mid(Now(),1,(InstrRev(Now()," ")-1))),2))=0 And A.Product_BusinessHomeNum=B.Application_BusinessHomeNum",Conn,1,3
问题点数：0、回复次数：3Top
1 楼sunjiujiu（绿茶狂人@抵制日货）回复于 2004-08-04 12:09:43 得分 0
把 "Select * From Products A,BusinessApplication B,BusinessHome C Where C.BusinessHome_Num=A.Product_BusinessHomeNum And DateDiff("d",Format_Time(Cdate(Mid(Product_DataTime,1,(InstrRev(Product_DataTime," ")-1))),2),Format_Time(Cdate(Mid(Now(),1,(InstrRev(Now()," ")-1))),2))=0 And A.Product_BusinessHomeNum=B.Application_BusinessHomeNum"
拷贝到sqlserver的查询分析器中去试试，要不就把你的这几个表带数据发到sunjiuchen@china.com.cn，否则，这么看大家不知道你的表结构，没有办法判断啊Top
2 楼everywhen（那天，我醉了！）回复于 2004-08-04 12:11:31 得分 0
Rs.Open "Select * From Products as A,BusinessApplication as B,BusinessHome as C Where C.BusinessHome_Num=A.Product_BusinessHomeNum And "&DateDiff("d",Format_Time(Cdate(Mid(Product_DataTime,1,(InstrRev(Product_DataTime," ")-1))),2),Format_Time(Cdate(Mid(Now(),1,(InstrRev(Now()," ")-1))),2))&"=0 And A.Product_BusinessHomeNum=B.Application_BusinessHomeNum",Conn,1,3Top
3 楼sunjiujiu（绿茶狂人@抵制日货）回复于 2004-08-04 12:17:21 得分 0
喔，仔细看了看，是你的字符串连接的问题
"Select * From Products A,BusinessApplication B,BusinessHome C Where C.BusinessHome_Num=A.Product_BusinessHomeNum And DateDiff('d',Format_Time(Cdate(Mid(Product_DataTime,1,(InstrRev(Product_DataTime,'')-1))),2),Format_Time(Cdate(Mid(Now(),1,(InstrRev(Now(),'')-1))),2))=0 And A.Product_BusinessHomeNum=B.Application_BusinessHomeNum"
这样就行了
Top
