Problema ao resgatar data do bd

[vitorlouzada 0]

To com um problema na hora de resgatar a data do banco de dados....

 

não sei porque.... no banco de dados, my sql, o formato da data é o padrão aaaa-mm-dd... e quando eu do o select.. vem no formato que está no banco... ok...

 

só que quando eu peço pra resgatar a data pra dentro de um campo el vem no formato mm-dd-aaaa.... eu gostaria que viesse aaaa-mm-dd.

 

Por que isso acontece? já que eu não utilizei nenhum código para formatar a data?

 

Vou colocar abaixo alguns códigos que eu utilezei para selecionar os dados do banco.

 

Conexão:

CODE

<%

If Not IsEmpty(Request.Form("salvar")) Then

Set objCon = Server.CreateObject("ADODB.Connection")

objCon.Open strCon

Set objRS = Server.CreateObject("ADODB.Recordset")

objRS.CursorLocation = 3

objRS.CursorType = 0

objRS.LockType = 3

 

strQ = Request.Form("strQ")

indice = Trim(Request.Form("indice"))

If indice <> "" Then strQ = " SELECT * FROM contas_pagar WHERE " & indice

 

objRS.Open strQ, objCon, , , &H0001

If indice = "" Then objRS.Move Request.Form("recordno") - 1

 

If objRS.Fields("Código").properties("IsAutoIncrement") = False Then

objRS("Código") = Trim(Request.Form("Código"))

End If

If objRS.Fields("documento").properties("IsAutoIncrement") = False Then

objRS("documento") = Trim(Request.Form("documento"))

End If

If objRS.Fields("descricao").properties("IsAutoIncrement") = False Then

objRS("descricao") = Trim(Request.Form("descricao"))

End If

If objRS.Fields("data_conta").properties("IsAutoIncrement") = False Then

objRS("data_conta") = Trim(Request.Form("data_conta"))

End If

If objRS.Fields("data_vcto").properties("IsAutoIncrement") = False Then

objRS("data_vcto") = Trim(Request.Form("data_vcto"))

End If

If objRS.Fields("fornecedor").properties("IsAutoIncrement") = False Then

objRS("fornecedor") = Trim(Request.Form("fornecedor"))

End If

If objRS.Fields("anotacoes").properties("IsAutoIncrement") = False Then

objRS("anotacoes") = Trim(Request.Form("anotacoes"))

End If

If objRS.Fields("valor").properties("IsAutoIncrement") = False Then

valor = Replace(Request.Form("valor"),".","")

objRS("valor") = Trim(Replace(valor, "R$",""))

End If

If objRS.Fields("situacao").properties("IsAutoIncrement") = False Then

objRS("situacao") = Trim(Request.Form("situacao"))

End If

If objRS.Fields("Referencia").properties("IsAutoIncrement") = False Then

objRS("Referencia") = Trim(Request.Form("Referencia"))

End If

If objRS.Fields("registro").properties("IsAutoIncrement") = False Then

objRS("registro") = Trim(Request.Form("registro"))

End If

On Error Resume Next

objRS.UpdateBatch

objRS.Close

Set objRS = Nothing

objCon.Close

Set objCon = Nothing

%>

 

 

 

<BR><B>Registro alterado</B><BR>O registro foi alterado

com sucesso.<a href="consultar_conta.asp">Voltar</a> <BR><BR>

 

<%

Else

If Not IsEmpty(Request.Form("recordno")) Then

Set objCon = Server.CreateObject("ADODB.Connection")

objCon.Open strCon

 

Set objRS = Server.CreateObject("ADODB.Recordset")

objRS.CursorLocation = 2

objRS.CursorType = 0

objRS.LockType = 3

 

 

strQ = Request.Form("strQ")

indice = Trim(Request.Form("indice"))

If indice <> "" Then strQ = " SELECT * FROM contas_pagar WHERE " & indice

 

objRS.Open strQ, objCon, , , &H0001

If indice = "" Then objRS.Move Request.Form("recordno") - 1

%>

 

Resgate da data no campo:

CODE

<TR class=titulo_campos><TD>Competência<br>

<%If objRS.Fields("data_conta").properties("IsAutoIncrement") = False Then%>

<INPUT style="width=100" type="text" name="data_conta" maxlength="255" value="<%=(objRS.Fields.Item("data_conta").Value)%>" df_verificar="sim" class=campos_formulario><a href="java script:cal1.popup();"><img src="img/cal.gif" width="16" height="16" border="0" alt="Clique para escolher uma data"></a>

<%

Else

Response.Write "<B>" & (objRS.Fields.Item("data_conta").Value) & "</B>"

End If

%>

</TD></TR>

<TR class=titulo_campos><TD>Data de Vencimento<br>

<%If objRS.Fields("data_vcto").properties("IsAutoIncrement") = False Then%>

<INPUT style="width=100" type="text" name="data_vcto" maxlength="255" value="<%=(objRS.Fields.Item("data_vcto").Value)%>" df_verificar="sim" class=campos_formulario><a href="java script:cal2.popup();"><img src="img/cal.gif" width="16" height="16" border="0" alt="Clique para escolher uma data"></a>

<%

Else

Response.Write "<B>" & (objRS.Fields.Item("data_vcto").Value) & "</B>"

End If

%>

</TD></TR>

 

 

o que vcs acham que pode ser??? Algum comando que eu utilizei tá fazendo com que a data venha no formato do servidor e não o do banco????

 

E como faço para que venha no formato que está no banco???

 

 

Desde já agradeço e muito a ajuda de vocês.

[vitorlouzada 0]

Problema Resolvido.

[Mário Monteiro 179]

O que fez para solucionar?