CAMPO DATA NO ACCESS RETORNA 0:00

PEGUDO 30/07/2013 12:02:46
#426702
Pessoal,
Ao fazer um SELECT no Access, em um campo do Tipo Data, eu preencho um DataTable e coloco no DataSource de um DataGridView.
O Problema é que, mesmo a data sendo 30/07/2013 por exemplo, o retorno é sempre 0:00.
Mas fazendo a mesma pesquisa com a mesma string no Access, retorna a data corretamente.
Obs. O DataGridView não tem configuração. Ele é configurado via código e todo o conteúdo é originado do DataTable.
Segue o código para retornar o DataTable:

[txt-color=#007100][ô]Cod é o código do colaborador, qualMes é o mês de pesquisa e o qualano é o ano de pesquisa[/txt-color]
dgvDados.DataSource = Me.BuscaDadosPeloCodigo(Cod, qualMes, qualAno)

Abaixo a propriedade que retorna o DataTable:

Private ReadOnly Property BuscaDadosPeloCodigo(ByVal qualCodigo As Int32, qualMes As Byte, qualAno As Int32) As DataTable
                Get
                    Dim strSQL As String = [Ô][txt-color=#e80000]SELECT Data,Entrada,Almoco,Retorno,Saida, Comentario [Ô] & _
                                            [Ô]FROM TblHorarios WHERE CodColaborador =[/txt-color] [Ô] & qualCodigo & _
                                            [txt-color=#e80000][Ô] AND MONTH(Data) = [Ô][/txt-color] & qualMes & _
                                            [txt-color=#e80000][Ô] AND YEAR(Data) = [Ô][/txt-color] & qualAno & [txt-color=#e80000][Ô] ORDER BY Data ASC[Ô][/txt-color]

                    Dim Conec As New OleDb.OleDbConnection([txt-color=#e80000][Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô][/txt-color] & _
                                                           [txt-color=#e80000][Ô]Data Source=[Ô][/txt-color] & LocalDoBD & [txt-color=#e80000][Ô]\FF30Y250GB023.mdb[Ô][/txt-color])

                    Dim Comando As New OleDb.OleDbCommand(strSQL, Conec)

                    Conec.Open()
                    Comando.CommandType = CommandType.Text

                    Using Adapter As New OleDb.OleDbDataAdapter(Comando)
                        With Adapter
                            BuscaDadosPeloCodigo = New DataTable
                            .Fill(BuscaDadosPeloCodigo)
                        End With
                    End Using

                    Conec.Close()
                    Comando.Dispose()

                    Return BuscaDadosPeloCodigo
                End Get
            End Property
PEGUDO 30/07/2013 13:33:03
#426709
RESOLVIDO.
Coloquei a seguinte linha de comando e funcionou:
dgvDados.Columns(0).DefaultCellStyle.Format = [txt-color=#e80000][Ô]d[Ô][/txt-color]
Tópico encerrado , respostas não são mais permitidas
Voltar