Que Erro é Esse?

[vivigrieco]

Olá a todos,

quando tento abrir uma conexão na minha aplicação, assim:

set ManipulaDB = Server.CreateObject("ADODB.Recordset")
ManipulaDB.Activeconnection = MM_Conecta_Expresso_STRING
SQL = "select cp_numero from tb_arquivos where cp_ano = " & Year(FormatDateTime(Now,2)) &""
ManipulaDB.Source = SQL  
On Error Resume next
ManipulaDB.Open
Set ManipulaDB = Nothing
 

dá esse erro quando eu rodo a aplicação:

ADODB.Recordset error '800a0bb9' 

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. 

/Arquivos/Administrador/Adicionar.asp, line 88 

essa linha 88 é

ManipulaDB.Activeconnection = MM_Conecta_Expresso_STRING 

Alguém sabe como resolver????

[Reginaldo ASP]

Dá um response.write Year(FormatDateTime(Now,2)) pra ver o que tá retornando... Acho que o valor que tá pegando não tá compativel com o do seu banco...

[feo]

veio é o seguinte você esta ultilizando a funcao year com uma data formatada dentro

se você quer apenas o ano de uma determinada data basta colocar o cmdo year(data)

falow

feo

[Victor]

veio é o seguinte você esta ultilizando a funcao year com uma data formatada dentro

se você quer apenas o ano de uma determinada data basta colocar o cmdo year(data)

falow

feo

Não te entendi muito bem não, e acho q você n entendeuy o q o cara quer, ele n quer responder a data Quer??

[vivigrieco]

A data tah pegando correto... ateh mesmo se eu coloco uma data estatica ele dá esse erro...

[ursolouco]

Srª Vivi!!!

Quanto tempo

<%
 Session.LCID = 1046
 'Formato Brasileiro

 Data = Date()
 'Crio uma data
 nData = FormatDateTime(Data,2)
 nData = Year(nData)
 'nova data formatada

 SQL_do_URSO = "SELECT cp_numero From tb_arquivos WHERE cp_ano = #" & nData & "#;"
 'crio uma TSQL do urso

%>

Eu tive um pequeno presentimento na sua consulta SQL e bolei um exemplo pequenino....

Veja se pode lhe ajudar

Qualquer coisa, POSTA aí..

[vivigrieco]

valeu urso!!!