Erro executar conexao

[Thiago Top]

Bom dia a todos,

galera ... estou com o seguinte erro no meu codigo:

erro '80004005'

/docs/script.asp, line 40

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) 'LINHA 40

Desde já, obrigado.

[]s, Thiago

Editado Setembro 17, 2008 por Thiago Top

[Rafael Spilki]

Thiago, bom dia.

Esta mensagem de erro é muito genérica...pode significar várias coisas... então acaba que ela não nos ajuda muito...

Dúvidas:

1) é local ou está na web?

2) bd é access?

3) alguma vez já funiconou e parou de funcionar agora ou nunca funcionou?

Propostas:

1) debuga a query e posta aqui os resultados:

'inicio debug
response.write StrSql
response.end
Set Rs = Con.Execute(StrSql)

2) verifique se o caminho para o db está correto.

3) tente com apenas um mês e veja se da certo... por exemplo março... tente não escolher nem o primeiro da lista nem o último...

por hora é isso que me vem a cabeça... com estas outras informações acredito que vou poder ajudar mais, ok?

qualquer. coisa posta aí...

no aguardo.

Rafael Spilki

[Thiago Top]

Resp Dúvidas:

1) é local ou está na web?

R: Esta na web, mas eu tenho acesso ao servidor

2) bd é access?

R: Banco access

3) alguma vez já funiconou e parou de funcionar agora ou nunca funcionou?

R: nunca funcionou, primeira tentativa de rodar

Adicionei no codigo:

'inicio debug //antes da query

response.write StrSql

//depois da query

response.end

Set Rs = Con.Execute(StrSql)

Parou de dar a mensagem de erro. Mas o problema ainda persisti.

O caminho no banco de dados esta correto.

O que sera?

[]s, Thiago

[bareta]

vixi maria... não sei de ond tirou isso mais teria de ser algo do tipo

veja

sql= "select * from tabela "

if mes=2 then
sql=sql&" where mes=2 "
elseif mes=3 then
sql=sql&" where mes=3 "
else
sql=sql&" where mes=4 "
end if

sql=sql&" order by camp"

Set Rs = Con.Execute(sql)

tendeu...

[Thiago Top]

não entendi, não sei programar em asp, jogaram essa bomba na minha mao =/

poderia me explicar utilizando o codigo fonte que eu passei?

Valeu

[]s

[bareta]

lol...

usando select case

http://www.baboo.com.br/absolutenm/templat...=24&resumo=

usando select no banco de dados

http://www.aspbrasil.com.br/conteudo/detal...Secao=TUTORIAIS

[Thiago Top]

minha query esta certa, poderia ser problema de permissao para ler

o meu banco de dados .mdb?

[]s

[bareta]

minha query esta certa, poderia ser problema de permissao para ler

o meu banco de dados .mdb?

[]s

se for a que você posto lá no começo não está certo

[Thiago Top]

como é que ficaria?

tem como me mostrar um exemplo com

o meu select?

Obrigado

[]s

[bareta]

descreva o q o seu select deve fazer