Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

golbranco

asp+sql server 2000

Recommended Posts

e ae galera...beleza...to com um problema em ASP com SQL server 2000o problema é o seguinteeu coloquei um campo no DB chamado data com o type datatimeaté ai tudo bemno asp quando incluo..... aparece o seguinte erro pq será...???Microsoft OLE DB Provider for SQL Server error '80040e07' The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value. /testes/aspDATASsql_server.asp, line 25 o script ASP é essedata = now()conexao.execute("insert into Table1 (nome,email,data) values ('william','@msn.com', '"&data&"' )")desde já agradeço...

Compartilhar este post


Link para o post
Compartilhar em outros sites

Cara você quer que este campo receba o valor da data do sistema é? CAso sim seria mais indicado você fazer o seguinte, no banco mesmo você coloca como valor padrão do campo a função GetDate(), que ele já vai colocar a data do sistema toda vez que cadastrar alguem.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Eu tb tive esse problema, use esta função aqui que funciona e ainda fica mais flexível... Dica: quando você for postar uma data no sql 2000, sempre poste ela no formato mm/dd/yyyy e para ler a mesma utilize o formato dd/mm/yyyy - Ah!, vale tb dar uma olhada no LCID que está no início do seu ASP, FUNCAO PARA CONVERSÃO DE DATA<% Private Function lZeros(byVal lValue, byVal iLength) lZeros = Right(String(iLength, "0") & Trim(cStr(lValue)), iLength) End Function Private Function fDate(byVal oDate, byVal sFormat) Dim iDay, iMonth, iYear iDay = DatePart("d", oDate) iMonth = DatePart("m", oDate) iYear = DatePart("yyyy", oDate) fDate = Replace(lcase(sFormat), "w", WeekDayName(DatePart("w", oDate))) fDate = Replace(fDate, "hh", lZeros(DatePart("h", oDate),2)) fDate = Replace(fDate, "nn", lZeros(DatePart("n", oDate),2)) fDate = Replace(fDate, "ss", lZeros(DatePart("s", oDate),2)) fDate = Replace(fDate, "dd", lZeros(iDay,2)) fDate = Replace(Replace(fDate,"mmmm", MonthName(iMonth)),"mmm", MonthName(iMonth, True)) fDate = Replace(fDate, "mm", lZeros(iMonth,2)) fDate = Replace(Replace(fDate, "yyyy", iYear), "yy", right(cStr(iYear),2)) End Function %> Exemplo <%=rs(data,"mm/dd/yyyy")%>FIM DA FUNCAO PARA CONVERSÃO DE DATA

Compartilhar este post


Link para o post
Compartilhar em outros sites

Como você respondeu no wmonline, ssua dduvida foi solucionada com a seguinte função

<%Function Data(sData) sMes    = Month( sData ) sDia    = Day( sData ) sHoras    = Hour( sData ) sMinutos  = Minute( sData ) sSegundos  = Second( sData ) If sMes <= 9 Then sMes = "0" & sMes If sDia <= 9 Then sDia = "0" & sDia If sHoras <= 9 Then sHoras = "0" & sHoras If sMinutos <= 9 Then sMinutos = "0" & sMinutos If sSegundos <= 9 Then sSegundos = "0" & sSegundos  Data = Year(sData) & "-" & sMes & "-" & sDia & " " & sHoras & ":" & sMinutos & ":" & sSegundosEnd Function%><%=Data(Now)%>
mto mais simples do q a do post anterior

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.