[Resolvido] Gravando data com 3 textfields

[Argos 0]

Boa tarde!

 

Sou inexperiente em ASP e me defrontei com um problema:

 

Eu tinha um campo de texto no formulário, onde inseria a data na forma dd/mm/aaaa e gravava mm/dd/aaaa no Access. Resolvi trocar o campo para três campos de texto: dia, mes e ano. Só que não estou conseguindo junta-los e gravar no banco em um único campo.

 

Alguém poderia me indicar algum tutorial ou me ajudar nisso? Dei uma pesquisada mas não consegui achar nada..

 

Desde já agradeço!

[Fábio BN 17]

Faça Isso

data = request.form("ano")&"/"&request.form("mes")&"/"&request.form("dia")

 

Se você tiver usando formato brasileiro, inverta as posição da linha.

data = request.form("dia")&"/"&request.form("mes")&"/"&request.form("ano")

 

Agora basta mandar gravar no Banco de Dados a variável data.

 

Abraços - Fábio!

[Argos 0]

Valeu Fabião!

[Argos 0]

E o processo contrário? Alguém sabe se é possível fazer? Pegar a data no Access (o campo é data/Hora, formato Data completa = Quinta-Feira, 7 de maio de 2009) e separá-lo nos textfields dia, mes e ano?

[Fábio BN 17]

Eu Faço assim:

<%
'Após fazer o Select no banco de dados, faça isso:

x = resultado("datanasc")
dia_selec = day(x)
mes_selec = month(x)
ano_selec = year(x)
%>

'E para exibir nos nos textfields, faça isso:
<%response.write dia_selec%>
<%response.write mes_selec%>
<%response.write ano_selec%>

Abraços - Fábio!

[Argos 0]

Ocorreu o seguinte erro:

 

Microsoft VBScript runtime error '800a000d'

 

Type mismatch: 'resultado'

 

na linha

x = resultado("datanasc")

[Fábio BN 17]

Oi.

 

Você tem que colocar o mesmo nome do seu campo:

Exemplo:

 

var = "select * from nome_da_tabela where nome_do_campo = '"&variavel&"' "

Set resultado = db.execute(var)

 

x = resultado("nome_do_campo_onde_esta_a_data")

 

ok?

 

Abraços - Fábio!

[Argos 0]

Eu troquei o "datanasc" por "dte", campo em que estão as datas no meu bd; coloquei embaixo do select; adicionei o response.write no valeu dos respectivos textfields e continua dando o msm erro...

Será por causa do tipo de campo? estou fazendo algo errado?

[Fábio BN 17]

Eu troquei o "datanasc" por "dte", campo em que estão as datas no meu bd; coloquei embaixo do select; adicionei o response.write no valeu dos respectivos textfields e continua dando o msm erro...

Será por causa do tipo de campo? estou fazendo algo errado?

Voce não deve estar setando a variável resultado, por isso dá erro.

Set resultado = db.execute(var)

 

Entendeu?

Abraços!

[Mário Monteiro 179]

qual exatamente a linah do erro?

[Argos 0]

A linha do erro é:

x = resultado("dte")

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis: 'resultado'

 

Estou tentando setar a variável resultado conforme o Fábio indicou. Estou trocando o db do "Set resultado = db.execute(var)" por strCon, que é minha string de conexão, seria isso? Pq continua dando erro...

[Argos 0]

Deu certo galera! Eu tava setando td errado a variável.. mal ae...

Muitíssimo obrigado!

[xanburzum 169]

dá uma procurada no laboratorio e script, onde tem uma função ótima para isso