DataGrid VB6 x Access

[MarcioPro 0]

Olá a todos este é meu primeiro post aqui.

 

Estou utilizando o vb6 com access 2000 e não estou conseguindo carregar dados em um datagrid via código, ele fica em branco, e não aparece nem o titulo dos campos nas colunas.

 

Desde já agradeço, quem poder me dar uma dica para o problema.

 

 

 

Private Sub cboFuncionario_Click()

 

rs.Find "NomeFuncionario ='" & cboFuncionario.Text & "'", , adSearchForward, 1

Set rs2 = New ADODB.Recordset

rs2.Open "SELECT * FROM Atraso WHERE CodFuncionario = " & rs!CodFuncionario & " ORDER BY DataAtraso", cn, adOpenKeyset, adLockOptimistic

Set datAtraso.DataSource = rs

datAtraso.Refresh

 

 

End Sub

 

Private Sub Form_Load()

 

Me.Left = (frmFicabos.ScaleWidth - Me.Width) / 2 'Centralizará o formulário porque este é um formulário mdi child

Me.Top = (frmFicabos.ScaleHeight - Me.Height) / 2

 

Set rs = New ADODB.Recordset

rs.Open "SELECT CodFuncionario, NomeFuncionario FROM FuncionarioPessoal ORDER BY NomeFuncionario", cn, adOpenKeyset, adLockOptimistic

 

 

PreencheCboFuncionario

cboFuncionario.ListIndex = 0

 

 

End Sub

 

Private Sub PreencheCboFuncionario()

Dim i As Integer

 

cboFuncionario.Clear

For i = 1 To rs.RecordCount

rs.AbsolutePosition = i

cboFuncionario.AddItem rs!NomeFuncionario

Next

 

 

End Sub

[Macêdo 0]

Para preencher o datagrid basta após chamar o recordset colocar o codigo

 

Set Me.DataGrid1.DataSource = rs

 

veja o exemplo como preencho um datagrid

 

With cmd

.ActiveConnection = cnn

.CommandType = adCmdText

.CommandText = "select * from tabela"

Set rs = .Execute

 

Set Me.DataGrid1.DataSource = rs

 

End With

[MarcioPro 0]

Muito obrigado pela ajuda, mas eu consegui resolver. O problema estava na abertura do banco de dados.

 

Eu fiz o seguinte coloquei a seguinte linha antes da abertura da variavel CN

 

 

cn.CursorLocation = adUseClient

 

 

 

 

Mas muito obrigado e agradeço de coração a ajuda.

 

Valeu.