Erro conversão de data

[Natarelli]

Pessoal,

Estou com seguinte problema:

Tenho uma aplicação Win Forms (VB 2005) que utiliza um Web Service para
fazer acesso a base de dados (SQL SERVER Express 2005).

Nesse WS possuo alguns métodos de consulta, alterações e inclusões na base
de dados.

Ocorre que a minha aplicação passa para o WS os campos do tipo date como
string e existe uma função no WS que faz a conversão dessa string para date:

value = "01/01/2006"

QQ data que eu passe no formato acima retorna sempre DBNull.Value

Public Function String_Date(ByVal value As String) As Object

Try



Return System.DateTime.Parse(value)

Catch ex As Exception

Return DBNull.Value

End Try

End Function

Já tentei:

Imports System.Globalization

e forçar na function CultureInfo("pt-br")

Public Function String_Date(ByVal value As String) As Object

Dim CultBr As New CultureInfo("pt-br")
Try



Return System.DateTime.Parse(value, CultBr.DateTimeFormat)


Catch ex As Exception

Return DBNull.Value

End Try

End Function

Se alguém tiver alguma idéia do que possa estar ocorrendo, agradeço.

[Daniel Curado]

Bom dia.

Tem uma opção no IIS do servidor que é a definição da lingua em que a
aplicação rodará.
Eu tive problemas aqui porque o meu objeto calendário aparecia na cultura
"pt-BR" no desenvolvimento local (minha máquina) e quando instalei no
servidor, a cultura era "en". Tentamos instalar um Language Pack de
atualização para português, sem sucesso. Então resolvemos o problema setando
a cultura no IIS (para a aplicação) par "pt-BR".

Quer tentar?

Abraço
--
Atenciosamente.
Daniel Lourenço Curado
"Mobile Experience"

Post by Natarelli
Pessoal,
Tenho uma aplicação Win Forms (VB 2005) que utiliza um Web Service para
fazer acesso a base de dados (SQL SERVER Express 2005).
Nesse WS possuo alguns métodos de consulta, alterações e inclusões na base
de dados.
Ocorre que a minha aplicação passa para o WS os campos do tipo date como
value = "01/01/2006"
QQ data que eu passe no formato acima retorna sempre DBNull.Value
Public Function String_Date(ByVal value As String) As Object
Try
Return System.DateTime.Parse(value)
Catch ex As Exception
Return DBNull.Value
End Try
End Function
Imports System.Globalization
e forçar na function CultureInfo("pt-br")
Public Function String_Date(ByVal value As String) As Object
Dim CultBr As New CultureInfo("pt-br")
Try
Return System.DateTime.Parse(value, CultBr.DateTimeFormat)
Catch ex As Exception
Return DBNull.Value
End Try
End Function
Se alguém tiver alguma idéia do que possa estar ocorrendo, agradeço.