Microsoft OLE DB Provider for ODBC Drive

[eureka 0]

Bom Dia ,

alguem saberia me dizer que erro é esse e como posso arrumar?

 

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Caike 0]

Você já fez a conversão da data ?Passou pro formato americano (mês + dia + ano) ?

[eureka 0]

Você já fez a conversão da data ?

Passou pro formato americano (mês + dia + ano) ?

<{POST_SNAPBACK}>

Como ´posso fazer isso????

[Caike 0]

Basta passar a data DD/MM/AAAA para o formato MM/DD/AAAA, em outras palavras, trocar de lugar o mês e dia.

 

Ex:

 

novaData = MID(Request("data"),4,2) & "/" & LEFT(Request("data"),2) & "/" & RIGHT(Request("data"),4).

 

Trabalho meio braçal, mas se você for fazer isso com freqüência de repente pode criar uma função, em nome da praticidade http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[eureka 0]

Você já fez a conversão da data ?

Passou pro formato americano (mês + dia + ano) ?

<{POST_SNAPBACK}>

[explore 3]

Ve se ajuda!

 

ASP

[*]Function DataGrava(Data)

 

[*] dia = day (Data)

 

[*] mes = month (Data)

 

[*] ano = year (Data)

 

[*] DataGrava = mes & " / " & dia & " / " & ano

 

[*]End Function

na hora de gravar você pode fazer assim!

 

ASP

[*]rs("Data") = DataGrava(NOW)

[eureka 0]

Ainda não deu certo..........eu posso passar o codigo pra vcs pra ver onde estou errando????o codigo é um pouco grande....como posso fazer???

[eureka 0]

Ainda não deu certo..........eu posso passar o codigo pra vcs pra ver onde estou errando????

o codigo é um pouco grande....como posso fazer???

<{POST_SNAPBACK}>

[Marcelo Barcellos 0]

Colegas...MM/DD/AAAA é formato do Access...SQLServer é "AAAA-MM-DD hh:mm:ss.000"

[eureka 0]

Colegas...MM/DD/AAAA é formato do Access...

SQLServer é "AAAA-MM-DD hh:mm:ss.000"

<{POST_SNAPBACK}>

então eu só mudo nesse campo

varDataAmanhabr = varMes & "/" & varDia + 1 & "/" & year(date)

end if

 

para o formato que você colocou?

[Marcelo Barcellos 0]

Eu aconselho voce fazer uma Função...

 

Segue uma que uso;

Function MontaDataSQL(strDATA)If IsDate(strDATA) Then    MontaDataSQL = Year(strDATA) & "-" & Right("00" & Month(strDATA), 2) & "-" & Right("00" & Day(strDATA), 2) & " " & Right("00" & Hour(strDATA), 2) & ":" & Right("00" & Minute(strDATA), 2) & ":" & Right("00" & Second(strDATA), 2) &  ".000"Else    MontaDataSQL = NullEnd IfEnd Function

[eureka 0]

alguem pode me ajudar......