• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

MarcioPro

[VB6] DataGrid

3 mensagens neste tópico

Olá a todos este é o meu primeiro post aqui. Sou brasileiro e moro em São Paulo.

Estou com o seguinte problema, não estou conseguindo  carregar dados em um  datagrid via código, o datagrig fica em branco e nem o nome dos campos da tabela aparece no cabeçalho das colunas, desde já agradeço alguma dica ou solução do problema. Estou usando VB6 com Access 2000.

Segue abaixo o código. O datagrid tem que ser atualizado no evento click da combobox.

Obrigado.

Option Explicit
Dim rs As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
  

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Olá a todos, consegui solucionar o problema, estava na hora da abertura do banco de dados. Eu inseri o seguinte código antes da abertura da variavel CN:

cn.CursorLocation = adUseClient

E o dataGrid começou a mostrar e atualizar os dados normalmente. :P

Obrigado.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora