Conexão mdb com erro

[mows 0]

Bom dia pessoal.

Abaixo tenho uma conexão mdb e um select ao banco.

Só que está me retornando erro na linha que executa a query.

 

ERRO:

erro '80004005'

Arquivos.asp, line 29

 

 

 

Dim Con
Set Con = Server.CreateObject("ADODB.Connection") 
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath("ipemce.mdb") 

StrSql = "select distinct (case when mes = '1' then 'Janeiro' " & _
    	" when mes = '2' then 'Fevereiro' " & _
    	" when mes = '3' then 'Março' " & _
    	" when mes = '4' then 'Abril' " & _
    	" when mes = '5' then 'Maio' " & _
    	" when mes = '6' then 'Junho' " & _
    	" when mes = '7' then 'Julho' " & _
    	" when mes = '8' then 'Agosto'  " & _
    	" when mes = '9' then 'Setembro' " & _
    	" when mes = '10' then 'Outubro' " & _
    	" when mes = '11' then 'Novembro' " & _
    	" when mes = '12' then 'Dezembro' " & _
    	" end) as nomemes, mes, link  " & _
    	" from arquivos  " & _
    	" WHERE status = 1 " & _
		" ORDER BY mes "
Set Rs = Con.Execute(StrSql)

Pelo que pesquisei parece ser um problema no IIS, será?!

Agradeço a ajuda.

 

ps: eu rodo a mesma query num banco sql e dá certo.

 

[]s

[hargon 64]

Qual a linha 29?

[hgb7 3]

Veja as permissões

[mows 0]

Qual a linha 29?

Set Rs = Con.Execute(StrSql)

[mows 0]

Veja as permissões

Já e revi as permissões.

A pasta, o arquivo asp e o arquivo mdb estão com permissões pra leitura, alteração e gravação.

[hargon 64]

Faz uma consulta simples e veja se funcionará normalmente. Caso funcione o erro está na consulta atual.

[mows 0]

Faz uma consulta simples e veja se funcionará normalmente. Caso funcione o erro está na consulta atual.

Obrigado pela dica hargon, parece que o erro está mesmo na query que postei acima.

Só não consigo achar qual o problema dela.

 

Será que esse tipo de distinct com case não funciona em mdb?!

[hargon 64]

Também acho que seja esse o problema. Não me lembro de já ter visto uma consulta assim em Access.

[Ted k' 126]

pq não faz esse filtro com o IF no ASP e depois passa para o sql?

[marvazoler 0]

Qui tal declarar a uma variável com o nome

 

Dim Rs

...

...

...

Set Rs = Server.CreateObject("ADODB.Recordset")

StrSql = "select ..."

Set Rs = Con.Execute(StrSql)

 

O que acham?

[mows 0]

Foi o que tive que fazer agora Ted, pra escapar desse erro.

Achei que fazendo o case dentro do select ficaria mais prático, mas enfim...

 

Obrigado pela ajuda rapaziada.

Ótima tarde pra vocês.

:)

 

[]s

[mows 0]

Qui tal declarar a uma variável com o nome

 

Dim Rs

...

...

...

Set Rs = Server.CreateObject("ADODB.Recordset")

StrSql = "select ..."

Set Rs = Con.Execute(StrSql)

 

O que acham?

Ainda dá o mesmo erro.