none
DataGridView não está populando RRS feed

  • Pergunta

  • Meu código parece estar correto mas o DataGridView não está exibindo os dados, apenas cria as colunas mas não insere os dados nela.

    Private ReadOnly Property BuscaDadosPeloCodigo(ByVal qualCodigo As Int32) As DataTable
        Get
            Dim strSQL As String = "SELECT Data,Entrada,Almoco,Retorno,Saida, Comentario " & _
                                   "FROM TblHorarios WHERE CodColaborador = " & qualCodigo
    
            Dim Conec As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                                   "Data Source=F:\Controle de ponto VB.NET\Controle de ponto temp\bin\Debug\FF30Y250GB023.mdb")
    
            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()
        End Get
    End Property


    Para chamar a propriedade acima e popular o DataGrid, eu faço:

    frmAtualizarHorario.dgvDados.DataSource = Me.BuscaDadosPeloCodigo(Cod)

    dgvDados = DataGridView
    Cod = Código do empregado

    O resultado da busca:

    As células estão devidamente configuradas para que as letras tenham a cor preta.


    terça-feira, 4 de junho de 2013 12:46

Respostas