[Resolvido] Não está cadastrando a Data

[BrunoHP 0]

Olá galera o F.I. não estou conseguindo dadastrar a data no BD.

 

Alguem poderia informar aonde estou errando?

 

A coluna data_t está como date e já testei dando response.write para verificar se está trazendo a data dogitada no formulário.

 

Obrigado!

 

data_t = trim(request("data"))
data_ano = datepart("yyyy",date)
data_mes = datepart("m",date)
if len(data_mes) = 1 then
data_mes = "0"&data_mes
end if
data_dia = datepart("d",date)
if len(data_dia) = 1 then
data_dia = "0"&data_dia
end if
data_t = data_ano&"/"&data_mes&"/"&data_dia

set Insere_Grau = server.CreateObject("adodb.RecordSet")
sql_Insere_Grau = "Update tabela set data = "&data_t&" where codigo='"&BRcodigo&"'"
set Insere_Grau = conn.execute(sql_Insere_Grau)

[João Fernandes dos Santos 2]

Mais não esta conseguindo porquê? da algum erro?

Tenta colocar aspas simples no data_t que nem você fez no BRcodigo na Query.

 

Boa sorte...

[BrunoHP 0]

Mais não esta conseguindo porquê? da algum erro?

Tenta colocar aspas simples no data_t que nem você fez no BRcodigo na Query.

 

Boa sorte...

 

Opa iae João,

 

Coloquei aspas simples e nada... não da erro apenas não cadastra a data :)

[andersonleme 1]

tenta ai

sql_Insere_Grau = "Update tabela set data = '"&data_t&"' where codigo='"&BRcodigo&"'"

 

e pode mandar cadastrar sem 0

1/1/2011

[BrunoHP 0]

tenta ai

sql_Insere_Grau = "Update tabela set data = '"&data_t&"' where codigo='"&BRcodigo&"'"

 

e pode mandar cadastrar sem 0

1/1/2011

 

Fiz isso e nada preciso que grave aaaa/mm/dd

 

Vlws

[Vinicius Ianni 189]

O banco de dados aceita a data nesse formato ?

 

Rodou a sql no banco de dados ?

[BrunoHP 0]

O banco de dados aceita a data nesse formato ?

 

Rodou a sql no banco de dados ?

 

Tenho outras datas cadastradas neste formato

[andersonleme 1]

voce testou uma data manual pra ver

 

assim

sql_Insere_Grau = "Update tabela set data = '2011/01/02' where codigo='1'"

 

pra ver se ta passando ??

[xanburzum 169]

use uma função para gravar , você pode usa-la para exibir e gravar dados no bd, apenas modifique para se ajustar a sua necessidade

 

Formato: dd-mm-aaaa

<%
Function ConverterDataBanco(ConDataBanco)
ConDataBanco = Right("0"&Day(ConDataBanco),2) &"-"& Right("0"&Month(ConDataBanco),2) &"-"& Year(ConDataBanco)
ConverterDataBanco = ConDataBanco
End Function

Response.Write(ConverterDataBanco(Date()))
%>

 

Formato: mm-dd-aaaa

<%
Function ConverterDataBanco(ConDataBanco)
ConDataBanco = Right("0"&Month(ConDataBanco),2) &"-"& Right("0"&Day(ConDataBanco),2) &"-"& Year(ConDataBanco)
ConverterDataBanco = ConDataBanco
End Function

Response.Write(ConverterDataBanco(Date()))
%>

 

Formato: mm/dd/aaaa

<%
Function ConverterDataBanco(ConDataBanco)
ConDataBanco = Right("0"&Month(ConDataBanco),2) &"/"& Right("0"&Day(ConDataBanco),2) &"/"& Year(ConDataBanco)
ConverterDataBanco = ConDataBanco
End Function

Response.Write(ConverterDataBanco(Date()))
%>

[BrunoHP 0]

Fala galera do F.I.

 

Consegui fazer que cadastre!

 

Obrigado a todos pela ajuda!

 

De:

 

data_t = trim(request("data"))
data_ano = datepart("yyyy",date)
data_mes = datepart("m",date)
if len(data_mes) = 1 then
data_mes = "0"&data_mes
end if
data_dia = datepart("d",date)
if len(data_dia) = 1 then
data_dia = "0"&data_dia
end if
data_t = data_ano&"/"&data_mes&"/"&data_dia

 

Por:

 

data_t = FormatStr(trim(request("data")))
data_ano = datepart("yyyy",data_t)
data_mes = datepart("m",data_t)
if len(data_mes) = 1 then
data_mes = "0"&data_mes
end if
data_dia = datepart("d",data_t)
if len(data_dia) = 1 then
data_dia = "0"&data_dia
end if
data_t = data_ano&"/"&data_mes&"/"&data_dia

[Vinicius Ianni 189]

Que bom que resolveu !

 

Precisando, estamos ai :joia: