Converter Variável

[Web Design Valdeci 0]

Bom Dia,

 

Estou fazendo um sistema que a pessoa informa a data pelo formulário e eu desmembro a mesma para que tenho somente o ano que a pessoal digitou.

 

Criei um banco de dados com a tabela ano com o campo texto e inseri os anos nela tipo 2014, 2015 etc

 

Recebo os dados do formulário com a data e desmembro utilizando o script abaixo, logo crio uma consulta recebendo a variável so que não dá certo.

 

data = request.form("data")
dia = response.write (day(data)&" / ")
mes = response.write (month(data)&" / ")
ano = response.write (year(data))

Set Consulta01 = Server.CreateObject("ADODB.Recordset")
Consulta01.Open "SELECT * FROM ano Where ano = '"&ano&"'",Conexao

While not Consulta01.EOF
ano= Consulta01.Fields.Item("ano").Value
Consulta01.MoveNext()
Wend

quando coloco a variavel ano recebendo direto da certo tipo:

 

data = "2014" ele aceita

 

quando desmembro o ano e recebo a variável ano como no script ele dá erro. Não sei se tenho que transformar a variável em texto antes de usar. Obrigado,

[Ronaldo Faria Storck Eler 2]

Bem, vc está exibindo o "ano":

ano = response.write (year(data))

quando na verdade deveria colocá-lo em uma variável:

ano = year(data)

Talvez por isso, a variável não esteja funcionando...

 

 

Faz assim:

 

no lugar de :

Consulta01.Open "SELECT * FROM ano Where ano = '"&ano&"'",Conexao

coloque:

strSQL= "SELECT * FROM ano Where ano = '"&ano&"'"
response.write strSQL
Consulta01.Open strSQL,Conexao

e vai exibir a string de sql antes de executar, veja se está "montando" corretamente a query...

 

sds