VBA 检查语法错误的网站(操作符丢失)

语法错误 (操作符丢失) 在查询表达式?
错误类型:Microsoft JET Database Engine (0x80040E14)语法错误 (操作符丢失) 在查询表达式 'A.Deleted=False and A.Passed=Trueand A.SpecialID=12 and A.Title like '%土%'' 中。/news/Inc/systemcode.asp, 第 880 行代码如下:sub ShowSearchResult() dim arrClassID,trs sqlSearch=sqlSearch & &select A.ArticleID,A.ClassID,L.LayoutID,L.LayoutFileName,A.Title,A.Key,A.Author,A.CopyFrom,A.UpdateTime,A.Editor,A.TitleFontColor,A.TitleFontType,A.Content,A.specialID,& sqlSearch=sqlSearch & &A.Hits,A.OnTop,A.Hot,A.Elite,A.Passed,A.IncludePic,A.Stars,A.PaginationType,A.ReadLevel,A.ReadPoint,A.DefaultPicUrl from Article A& sqlSearch=sqlSearch & & inner join Layout L on A.LayoutID=L.LayoutID where A.Deleted=False and A.Passed=True& if ClassID&0 then  if Child&0 then   arrClassID=ClassID   specialID=request(specialID)   set trs=conn.execute(&select ClassID from [ArticleClass] where ParentID=& & ClassID & & or ParentPath like '%& & ParentPath & &,& & ClassID & &,%' and Child=0 and LinkUrl='' and BrowsePurview&=& & UserLevel  )   do while not trs.eof    arrClassID=arrClassID & &,& & trs(0)    trs.movenext   loop   set trs=nothing   sqlSearch=sqlSearch & & and A.ClassID in (& & arrClassID & &)&  else   specialID=request(specialID)   sqlSearch=sqlSearch & & and A.ClassID=& & ClassID  end if end if sqlSearch=sqlSearch & &and A.SpecialID=& & SpecialID if keyword&&&& then  select case strField   case &Title&    sqlSearch=sqlSearch & & and A.Title like '%& & keyword & &%' &   case &Content&    sqlSearch=sqlSearch & & and A.Content like '%& & keyword & &%' &   case &Author&    sqlSearch=sqlSearch & & and A.Author like '%& & keyword & &%' &   case &Editor&    sqlSearch=sqlSearch & & and A.Editor like '%& & keyword & &%' &   case else    sqlSearch=sqlSearch & & and A.Title like '%& & keyword & &%' &  end select end if sqlSearch=sqlSearch & & order by A.Articleid desc& Set rsSearch= Server.CreateObject(&ADODB.Recordset&) rsSearch.open sqlSearch,conn,1,1  if rsSearch.eof and rsSearch.bof then  totalput=0  response.write &&p align='center'&&br&&br&没有或没有找到任何文章&/p&&    else     totalput=rsSearch.recordcount   if currentpage&1 then   currentpage=1  end if  if (currentpage-1)*MaxPerPage&totalput then   if (totalPut mod MaxPerPage)=0 then    currentpage= totalPut \ MaxPerPage   else    currentpage= totalPut \ MaxPerPage + 1   end if  end if    if currentPage=1 then         call SearchResultContent()     else         if (currentPage-1)*MaxPerPage&totalPut then          rsSearch.move  (currentPage-1)*MaxPerPage          dim bookmark          bookmark=rsSearch.bookmark          call SearchResultContent()        else          currentPage=1          call SearchResultContent()        end if     end if    end if    rsSearch.close    set rsSearch=nothingend sub第880行为:rsSearch.open sqlSearch,conn,1,1
09-09-04 &
request.QueryString(&id&)这个值传过来的时候,值丢失了,你检查一下上面的代码.应该可以查出来,或者贴出来,大家帮你看看
请登录后再发表评论!查看: 291|回复: 10
Excel做SQL查询时出现“语法错误 (操作符丢失)”的提示,请老师们帮忙看看哪里错了
阅读权限20
在线时间 小时
大家好,Excel做SQL查询时出现“语法错误 (操作符丢失)”的提示,请老师们帮忙看看哪里错了,在执行以下语句的时候报错,是我语句的问题吗?现在找不出来问题,请大家帮忙分析一下,谢谢!
Sql = &select * from [信息] where 场所 = & & BPNo & & and 项目 = & & itemNo & & &
阅读权限70
在线时间 小时
& & & & & & & &
问题应该不止一处。无附件,无需求说明,说不清楚。
阅读权限95
在线时间 小时
&&sql = &select * from [信息] where 场所 ='& & bpno & &' and 项目 ='& & itemno & &'&
复制代码
阅读权限95
在线时间 小时
找不出问题,说明你sql的语法没学懂&&&&&&&&&
阅读权限20
在线时间 小时
老师,您好!情况是这样,这个是早年写的模块,以前在excel 03环境下个可以正常运行,现在公司换了新电脑,在Excel 2010 上出现这样的报错,不知从何下手,我再次修改了语句,还是出现文件类型不匹配的提示
阅读权限20
在线时间 小时
找不出问题,说明你sql的语法没学懂&&&&&&&&&
老师好,不好意思,好久没碰sql了,碰到公司电脑更新,现在一头雾水~~
阅读权限95
在线时间 小时
老师,您好!情况是这样,这个是早年写的模块,以前在excel 03环境下个可以正常运行,现在公司换了新电脑 ...
你最好把出错文件传上来,这么分析是瞎子摸象。
阅读权限20
在线时间 小时
你最好把出错文件传上来,这么分析是瞎子摸象。
谢谢老师,因为公司数据巨大,我整理一下发上来,再次感谢~~
阅读权限95
在线时间 小时
谢谢老师,因为公司数据巨大,我整理一下发上来,再次感谢~~
你也发过几个帖了,这样的问题不看附件真难猜。
阅读权限30
在线时间 小时
操作符丢失一般是因为字段里含有英文单引号引起的
表名要加美元符号$
最新热点 /1
ExcelHome每周都有线上直播公开课,
国内一流讲师真身分享,高手贴身答疑,
赶不上直播还能看录像,
关键居然是免费的!
厚木哥们都已经这么努力了,
你还好意思说学不好Office。
玩命加载中,请稍候
玩命加载中,请稍候
Powered by
本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任! & & 本站特聘法律顾问:徐怀玉律师 李志群律师语法错误(操作符丢失) 是什么意思啊?
语法错误(操作符丢失) 是什么意思啊?
发布时间: 11:18:47
编辑:www.fx114.net
本篇文章主要介绍了"语法错误(操作符丢失) 是什么意思啊?
0",主要涉及到语法错误(操作符丢失) 是什么意思啊?
0方面的内容,对于语法错误(操作符丢失) 是什么意思啊?
0感兴趣的同学可以参考一下。
Microsoft&&JET&&Database&&Engine&&错误&&'80040e14'&&&&
语法错误&&(操作符丢失)&&在查询表达式&&'Num&&[desc]'&&中。&&&&
/woyaole/showshoes_all.asp,行&&11&&&&
我想按条件显示数据库内容&&
我刷新我的页面&&他给我显示这个~&&
1.&!--#include&&file=TurnPage.asp--&&&
3.Dim&&Conn,&&Rs_News,strConn&&
4.Set&&Conn&&=&&server.CreateObject("ADODB.CONNECTION")&&
5.&&strConn&&=&&"Provider=Microsoft.Jet.OLEDB.4.0;"&&&&&&&"Data&&Source="&&&&&6.Server.MapPath("woyaole.mdb")&&&&&&&&&&
6.&&&&&&&&Conn.Open&&strConn&&
8.Dim&&Sql&&
9.&&Sql="select&&*&&from&&OrderForm&&where&&GoodsClass=xiezi&&order&&by&&Num&&[desc]"&&&&
10.Set&&Rs_News&&=&&Server.CreateObject("ADODB.RECORDSET")&&
11.&&&&&&Rs_News.Open&&Sql,Conn,1,3&&&&&&&&
哪位高手帮忙啊~&&谢谢~&&
还有什么可以按条件查询的语句啊~&&谢谢在显示页面的地址后面加上&?GoodsClass=xiezi&&可以么?
我试过&为什么不行?肯定是第9行出了問題的,試改成如下:
Sql="select&&*&&from&&OrderForm&&where&&GoodsClass='xiezi'&&order&&by&Num&desc"&&
也在11行前可以加上:
response.write&Sql
response.end&
從網頁中copy&下SQL&語句語句到數據庫中測試執行,OK。在显示页面的地址后面加上&?GoodsClass=xiezi&&可以么?
我试过&为什么不行?
这个方法行么?几个建议:
1。代码整理好,缩进要对整齐
2。搂主基本概念都不清楚,建议都看点书和代码,理解消化以下
地址栏中类似这样的写法:
/xxx.asp?GoodsClass=xiezi&&
修改你的代码为:
&!--#include&&file=TurnPage.asp--&&&
Dim&Conn,Rs_News,strConn&&
Set&Conn&=&server.CreateObject("ADODB.CONNECTION")&&
strConn&=&"Provider=Microsoft.Jet.OLEDB.4.0;"&&&"Data&Source="&&&server.MapPath("woyaole.mdb")
Conn.Open&&strConn&&
Dim&&strSql&&
strSql="select&*&from&OrderForm&where&GoodsClass='"&&&request.querystring("GoodsClass")&&&"'&order&by&Num&desc"&&&&
Set&Rs_News&=&Server.CreateObject("ADODB.RECORDSET")&&
Rs_News.Open&strSql,Conn,1,3&&&&&&&&
%&&&Num是个什么东西,是不是没有这个字段呀?检查一下你的数据库吧Num就是ID了&(自动编号)
我瞎起的名字
我的确是个超新手啊~
书还没有买呢
一直在看别人的代码在开头加一个“response.flush”,一般就会显示哪一行出错了。
欢迎到&/bbs&IT园地交流学习,共同提高!
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家社会集体的和公民的合法权益,不得利用本站制作、复制和传播不法有害信息!
二、互相尊重,对自己的言论和行为负责。
本文标题:
本页链接:查看: 230|回复: 1
语法错误(操作符丢失)在查询表达式“14年体检”中
阅读权限10
在线时间 小时
请教各路高手,到底是哪里出错了!!??
代码如下:
Sub addRecords()
& & Dim cnn As New ADODB.Connection
& & Dim myPath As String
& & Dim myTable As String
& & myPath = ThisWorkbook.Path & &\居民档案.accdb&
& & myTable = &档案信息&
& & On Error GoTo ErrMsg
& & cnn.Open &Provider=Microsoft.Ace.OLEDB.12.0;Data Source=& & myPath '连接数据库
& & Sql = &DELETE FROM & & myTable & & A WHERE EXISTS(SELECT * FROM [Excel 12.0;Database=& & ThisWorkbook.FullName & &].[& & ActiveSheet.Name & &$& _
& && &&&& Range(&a1&).CurrentRegion.Address(0, 0) & &] WHERE 档案编号=A.档案编号)&
& & cnn.Execute Sql
& & Sql = &INSERT INTO & & myTable & &(档案编号,电子编号,姓名,身份证,出生年月,年龄,电话,地址,性别,建档日期,联系人,纸质,电子,规范,年度利用,人群特征,健康状况,糖,糖建档时间,高,高建档时间,残,精,肿,妇,一季度时间,血糖1,血压1,方式1,二季度时间,血糖2,血压2,方式2,三季度,血糖3,血压3,方式3,四季度时间,血糖4,血压4,方式4,14年体检,15年体检,16年体检,体检状态,档案来源,建档人,档案去向,死亡,身体状况,身高体重,药物备注,动态时间,随访一,随访二,随访三,随访四,随访五,随访六,身份证真假) & _
& && &&&& &SELECT 档案编号,电子编号,姓名,身份证,出生年月,年龄,电话,地址,性别,建档日期,联系人,纸质,电子,规范,年度利用,人群特征,健康状况,糖,糖建档时间,高,高建档时间,残,精,肿,妇,一季度时间,血糖1,血压1,方式1,二季度时间,血糖2,血压2,方式2,三季度,血糖3,血压3,方式3,四季度时间,血糖4,血压4,方式4,14年体检,15年体检,16年体检,体检状态,档案来源,建档人,档案去向,死亡,身体状况,身高体重,药物备注,动态时间,随访一,随访二,随访三,随访四,随访五,随访六,身份证真假 FROM [Excel 12.0;Database=& _
& && &&&& ThisWorkbook.FullName & &;].[& & ActiveSheet.Name & &$& & Range(&A1&).CurrentRegion.Address(0, 0) & &]&
& & cnn.Execute Sql
& & MsgBox &纪录添加成功。&, vbInformation, &添加纪录&
& & cnn.Close
& & Set cnn = Nothing
& & Exit Sub
& & MsgBox Err.Description, , &错误报告&
阅读权限10
在线时间 小时
居然没人回答
最新热点 /1
ExcelHome每周都有线上直播公开课,
国内一流讲师真身分享,高手贴身答疑,
赶不上直播还能看录像,
关键居然是免费的!
厚木哥们都已经这么努力了,
你还好意思说学不好Office。
玩命加载中,请稍候
玩命加载中,请稍候
Powered by
本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任! & & 本站特聘法律顾问:徐怀玉律师 李志群律师

我要回帖

更多关于 附近有语法错误 的文章

 

随机推荐