Problemas com 'CASE'

EliteRio Web · Dezembro 18, 2008

aqui esta aparecendo o erro, quando executo a pagina.

Quando utilizo o banco SQL SERVER ele não da esse erro mas quando mudo a conexao para MSACCESS ele apresenta esse erro na execução:

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta 'CASE B.PERMISSAO WHEN 'S' THEN A.TLINK ELSE '<FONT COLOR=#a0a0a0>'+A.TLINK+'</FONT>' END'.

Aqui segue o script da pagina.

<%

QU_PERMISSOES = "SELECT A.MENU,A.SUBMENU, " &_
				"CASE B.PERMISSAO " &_
				"	WHEN 'S' THEN A.TLINK " &_
				"	ELSE '<FONT COLOR=#a0a0a0>'+A.TLINK+'</FONT>' " &_
				"END AS 'TLINK', " &_
				"CASE B.PERMISSAO " &_
				"	WHEN 'S' THEN A.LINK " &_
				"	ELSE '#' " &_
				"END AS 'LINK'  " &_
				"FROM tbmenus a " &_
				"left join tbpermissoes b on a.sistema=b.sistema and a.menu=b.menu and a.submenu=b.submenu " &_
				"WHERE B.CHAPA='" & SESSION("S_CHAPA") & "' AND A.SISTEMA='14'  " &_
				"ORDER BY A.MENU, A.SUBMENU "
PERMISSOES = SL("A",QU_PERMISSOES,APPLICATION("CNXSFS"))

If not isArray(PERMISSOES) THEN 
	QU_PERMISSOES = "SELECT MENU,SUBMENU, " &_
					"CASE  " &_
					"	WHEN MENU <> 7 THEN '<FONT COLOR=#C0C0C0>'+TLINK+'</font>'  " &_
					"	ELSE 'Sair' " &_
					"END AS 'TLINK', " &_
					"CASE  " &_
					"	WHEN MENU <> 7 THEN '#' " &_
					"	ELSE 'sair.asp' " &_
					"END as 'link' " &_
					"FROM TBMENUS  " &_
					"WHERE SISTEMA='14' ORDER BY MENU, SUBMENU "

	PERMISSOES = SL("A",QU_PERMISSOES,APPLICATION("CNXSFS"))
End If

Response.Write "<script language=" & chr(34) & "JavaScript" & chr(34) & ">" & vbcrlf
Response.Write "menunum=0;" & vbcrlf
Response.Write "menus=new Array();" & vbcrlf
Response.Write "_d=document;" & vbcrlf
Response.Write "function addmenu()" & vbcrlf
Response.Write "{menunum++;" & vbcrlf
Response.Write "menus[menunum]=menu;" & vbcrlf
Response.Write "}" & vbcrlf
Response.Write "function dumpmenus()" & vbcrlf
Response.Write "{mt=" & chr(34) & "<script language=javascript>" & chr(34) & ";" & vbcrlf
Response.Write "for(a=1;a<menus.length;a++)" & vbcrlf
Response.Write "{mt+=" & chr(34) & "menu" & chr(34) & "+a+" & chr(34) & "=menus[" & chr(34) & "+a+" & chr(34) & "];" & chr(34) & "}" & vbcrlf
Response.Write "mt+=" & chr(34) & "<\/script>" & chr(34) & ";_d.write(mt)}" & vbcrlf
Response.Write "if(navigator.appVersion.indexOf(" & chr(34) & "MSIE 6.0" & chr(34) & ")>0)" & vbcrlf
Response.Write "{" & vbcrlf
Response.Write "effect = " & chr(34) & "Fade(duration=0.5);Alpha(style=0,opacity=100);Shadow(color='#777777', Direction=135, Strength=0)" & chr(34) & vbcrlf
Response.Write "}" & vbcrlf
Response.Write "else" & vbcrlf
Response.Write "{" & vbcrlf
Response.Write "effect = " & chr(34) & "Shadow(color='#777777',Direction=135,Strength=0)" & chr(34) & vbcrlf 
Response.Write "}" & vbcrlf
Response.Write "timegap=500" & vbcrlf
Response.Write "followspeed=100" & vbcrlf
Response.Write "followrate=400" & vbcrlf
Response.Write "suboffset_top=1;" & vbcrlf
Response.Write "suboffset_left=1;" & vbcrlf
Response.Write "style1=[" & vbcrlf
Response.Write chr(34) & "000000" & chr(34) & "," & vbcrlf
Response.Write chr(34) & "FFFFFF" & chr(34) & "," & vbcrlf
Response.Write chr(34) & "F0F0F0" & chr(34) & "," & vbcrlf
Response.Write chr(34) & "006666" & chr(34) & "," & vbcrlf
Response.Write chr(34) & "C2DADA" & chr(34) & "," & vbcrlf
Response.Write "10," & vbcrlf
Response.Write chr(34) & "normal" & chr(34) & "," & vbcrlf
Response.Write chr(34) & "normal" & chr(34) & "," & vbcrlf
Response.Write chr(34) & "Verdana"& chr(34) & "," & vbcrlf
Response.Write "6," & vbcrlf
Response.Write chr(34) & chr(34) & "," & vbcrlf
Response.Write chr(34) & chr(34) & "," & vbcrlf
Response.Write chr(34) & chr(34) & "," & vbcrlf
Response.Write chr(34) & chr(34) & "," & vbcrlf
Response.Write chr(34) & chr(34) & "," & vbcrlf
Response.Write chr(34) & chr(34) & "," & vbcrlf
Response.Write chr(34) & chr(34) & "," & vbcrlf
Response.Write chr(34) & chr(34) & "," & vbcrlf
Response.Write chr(34) & chr(34) & "," & vbcrlf
Response.Write "]" & vbcrlf
Response.Write "addmenu(menu=[" & vbcrlf
Response.Write chr(34) & "mainmenu" & chr(34) & "," & vbcrlf
Response.Write "105," & vbcrlf
Response.Write "(parseInt(document.body.clientWidth)/2)-237," & vbcrlf
Response.Write "105," & vbcrlf
Response.Write "1," & vbcrlf
Response.Write chr(34) & "center" & chr(34) & "," & vbcrlf
Response.Write "style1," & vbcrlf
Response.Write "1," & vbcrlf
Response.Write chr(34) & "left" & chr(34) & "," & vbcrlf
Response.Write "effect," & vbcrlf
Response.Write "," & vbcrlf
Response.Write "1," & vbcrlf
Response.Write "0," & vbcrlf
Response.Write "," & vbcrlf
Response.Write "," & vbcrlf
Response.Write "," & vbcrlf
Response.Write "," & vbcrlf
Response.Write "," & vbcrlf
Response.Write "," & vbcrlf
Response.Write "," & vbcrlf
Response.Write "," & vbcrlf
FOR P0 = 0 TO UBOUND(PERMISSOES,2)
	IF PERMISSOES(1,P0)="0" THEN Response.Write "," & chr(34) & PERMISSOES(2,P0) & chr(34) & "," & chr(34) & PERMISSOES(3,P0) & chr(34) & ",," & chr(34) & "SFS" & chr(34) & ",1" & vbcrlf
NEXT
Response.Write "])" & vbcrlf


Response.Write "addmenu(menu=[" & vbcrlf
Response.Write chr(34) & "m1" & chr(34) & "," & vbcrlf
Response.Write "," & vbcrlf
Response.Write "," & vbcrlf
Response.Write "105," & vbcrlf
Response.Write "1," & vbcrlf
Response.Write chr(34) & chr(34) & "," & vbcrlf
Response.Write "style1," & vbcrlf
Response.Write "," & vbcrlf
Response.Write chr(34) & "left" & chr(34) & "," & vbcrlf
Response.Write "effect,,,,,,,,,,,," & vbcrlf
FOR P3 = 0 TO UBOUND(PERMISSOES,2)
	IF PERMISSOES(0,P3)=1 AND PERMISSOES(1,P3)<>0 THEN Response.Write "," & chr(34) & PERMISSOES(2,P3) & chr(34) & "," & chr(34) & PERMISSOES(3,P3)  & chr(34) & ",," & chr(34) & "SFS" & chr(34) & ",1" & vbcrlf
NEXT
Response.Write "])" & vbcrlf

Response.Write "addmenu(menu=[" & vbcrlf
Response.Write chr(34) & "m2" & chr(34) & "," & vbcrlf
Response.Write "," & vbcrlf
Response.Write "," & vbcrlf
Response.Write "105," & vbcrlf
Response.Write "1," & vbcrlf
Response.Write chr(34) & chr(34) & "," & vbcrlf
Response.Write "style1," & vbcrlf
Response.Write "," & vbcrlf
Response.Write chr(34) & "left" & chr(34) & "," & vbcrlf
Response.Write "effect,,,,,,,,,,,," & vbcrlf
FOR P3 = 0 TO UBOUND(PERMISSOES,2)
	IF PERMISSOES(0,P3)=2 AND PERMISSOES(1,P3)<>0 THEN Response.Write "," & chr(34) & PERMISSOES(2,P3) & chr(34) & "," & chr(34) & PERMISSOES(3,P3)  & chr(34) & ",," & chr(34) & "SFS" & chr(34) & ",1" & vbcrlf
NEXT
Response.Write "])" & vbcrlf

Response.Write "addmenu(menu=[" & vbcrlf
Response.Write chr(34) & "m3" & chr(34) & "," & vbcrlf
Response.Write "," & vbcrlf
Response.Write "," & vbcrlf
Response.Write "105," & vbcrlf
Response.Write "1," & vbcrlf
Response.Write chr(34) & chr(34) & "," & vbcrlf
Response.Write "style1," & vbcrlf
Response.Write "," & vbcrlf
Response.Write chr(34) & "left" & chr(34) & "," & vbcrlf
Response.Write "effect,,,,,,,,,,,," & vbcrlf
FOR P3 = 0 TO UBOUND(PERMISSOES,2)
	IF PERMISSOES(0,P3)=3 AND PERMISSOES(1,P3)<>0 THEN Response.Write "," & chr(34) & PERMISSOES(2,P3) & chr(34) & "," & chr(34) & PERMISSOES(3,P3)  & chr(34) & ",," & chr(34) & "SFS" & chr(34) & ",1" & vbcrlf
NEXT
Response.Write "])" & vbcrlf

Response.Write "addmenu(menu=[" & vbcrlf
Response.Write chr(34) & "m4" & chr(34) & "," & vbcrlf
Response.Write "," & vbcrlf
Response.Write "," & vbcrlf
Response.Write "105," & vbcrlf
Response.Write "1," & vbcrlf
Response.Write chr(34) & chr(34) & "," & vbcrlf
Response.Write "style1," & vbcrlf
Response.Write "," & vbcrlf
Response.Write chr(34) & "left" & chr(34) & "," & vbcrlf
Response.Write "effect,,,,,,,,,,,," & vbcrlf
FOR P3 = 0 TO UBOUND(PERMISSOES,2)
	IF PERMISSOES(0,P3)=4 AND PERMISSOES(1,P3)<>0 THEN Response.Write "," & chr(34) & PERMISSOES(2,P3) & chr(34) & "," & chr(34) & PERMISSOES(3,P3)  & chr(34) & ",," & chr(34) & "SFS" & chr(34) & ",1" & vbcrlf
NEXT
Response.Write "])" & vbcrlf

Response.Write "addmenu(menu=[" & vbcrlf
Response.Write chr(34) & "m5" & chr(34) & "," & vbcrlf
Response.Write "," & vbcrlf
Response.Write "," & vbcrlf
Response.Write "105," & vbcrlf
Response.Write "1," & vbcrlf
Response.Write chr(34) & chr(34) & "," & vbcrlf
Response.Write "style1," & vbcrlf
Response.Write "," & vbcrlf
Response.Write chr(34) & "left" & chr(34) & "," & vbcrlf
Response.Write "effect,,,,,,,,,,,," & vbcrlf
FOR P3 = 0 TO UBOUND(PERMISSOES,2)
	IF PERMISSOES(0,P3)=5 AND PERMISSOES(1,P3)<>0 THEN 
			Response.Write "," & chr(34) & PERMISSOES(2,P3) & chr(34) & "," & chr(34) & PERMISSOES(3,P3)  & chr(34) & ",," & chr(34) & "SFS" & chr(34) & ",1" & vbcrlf
	END IF
	
NEXT
Response.Write "])" & vbcrlf

Response.Write "addmenu(menu=[" & vbcrlf
Response.Write chr(34) & "m6" & chr(34) & "," & vbcrlf
Response.Write "," & vbcrlf
Response.Write "," & vbcrlf
Response.Write "100," & vbcrlf
Response.Write "1," & vbcrlf
Response.Write chr(34) & chr(34) & "," & vbcrlf
Response.Write "style1," & vbcrlf
Response.Write "," & vbcrlf
Response.Write chr(34) & "left" & chr(34) & "," & vbcrlf
Response.Write "effect,,,,,,,,,,,," & vbcrlf
FOR P3 = 0 TO UBOUND(PERMISSOES,2)
	IF PERMISSOES(0,P3)=6 AND PERMISSOES(1,P3)<>0 THEN Response.Write "," & chr(34) & PERMISSOES(2,P3) & chr(34) & "," & chr(34) & PERMISSOES(3,P3)  & chr(34) & ",," & chr(34) & "SFS" & chr(34) & ",1" & vbcrlf
NEXT
Response.Write "])" & vbcrlf

Response.Write "dumpmenus()" & vbcrlf
Response.Write "</script>" & vbcrlf
Response.Write "<script language=" & chr(34) & "JavaScript" & chr(34) & " src=" & chr(34) & "scripts/mmenu.js" & chr(34) & " type=" & chr(34) & "text/javascript" & chr(34) & "></script>" & vbcrlf
%>

Ted k' · Dezembro 23, 2008

segue os padrões aqui:

http://talibamartins.wordpress.com/2007/09...-case-no-mysql/

Entrar

Arquivado

Problemas com 'CASE'

Recommended Posts

EliteRio Web 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Estou criando uma calculadora de m2 e litros de tinta

Cruzamento de Bases

Consulta sem duplicação

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante