Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
jackbcc

Erro ao carregar o combobox

Recommended Posts

Estou usando a apostila do vb6 e nele consta um projeto de Biblioteca, agora travei na parte do fomulário do cadastro de livros, foi criado um combobox referente as tabelas editora e categoria mas não estou conseguindo puxar, segue o código e o erro:

 

object variable or with block variable not set 


 

Public Sub ComboEditoras(NomeCombo As ComboBox)
    Dim cnnComando As ADODB.Command
    Dim rstemp As New ADODB.Recordset
    Dim i As Integer
    On Error GoTo errComboEditoras
    'executa a consulta EditorasEmOrdemAlfabética:
    With cnnComando
        .ActiveConnection = cnnBiblio
        .CommandType = adCmdStoredProc
        .CommandText = "EditorasEmOrdemAlfabetica"
        Set rstemp = .Execute
    End With
    With rstemp
        'verifica se existe alguma editora cadastrada:
        If Not (.EOF And .BOF) Then
            'se existe,então posiciona o apontador no primeiro registro do rs:
            .MoveFirst
            'inicializa a variável i que será ussada como índice para a propriedade ItemData:
            i = 0
            While Not .EOF
                'adiciona um item á combo com o nome da editora:
                NomeCombo.AddItem !Descricao, i
                'grava na propriedade ItemData desse código as editoras:
                NomeCombo.ItemData(i) = !Codigo
                'vai para o próximo registro do rs:
                .MoveNext
                'incrementa i:
                i = i + 1
            Wend
        End If
   End With
Saida:
        Set cnnComando = Nothing
        Set rstemp = Nothing
        Exit Sub
        
errComboEditoras:
        With Err
            If .Number <> 0 Then
            MsgBox "Não foi possível a leitura da tabela Editoras:" & .Description, vbExclamation + vbOKOnly + vbApplicationModal, "Erro ao carregar o ComboBox"
                'MsgBox "Não foi possível a leitura da tabela Editoras:", vbInformation + vbOKOnly + vbApplicationModal, "Erro ao carregar o ComboBox"
            .Number = 0
            GoTo Saida
            End If
        End With
End Sub

Public Sub ComboCategorias(NomeCombo As ComboBox)
    Dim cnnComando As ADODB.Command
    Dim rstemp As New ADODB.Recordset
    Dim i As Integer
    On Error GoTo errComboCategorias
    'executa a consulta CategoriasEmOrdemAlfabética:
    With cnnComando
        .ActiveConnection = cnnBiblio
        .CommandType = adCmdStoredProc
        .CommandText = "CategoriasEmOrdemAlfabetica"
        Set rstemp = .Execute
    End With
    With rstemp
        'verifica se existe alguma categoria cadastrada:
        If Not (.EOF And .BOF) Then
            'se existe,então posiciona o apontador no primeiro registro do rs:
            .MoveFirst
            'inicializa a variável i que será ussada como índice para a propriedade ItemData:
            i = 0
            While Not .EOF
                'adiciona um item á combo com o nome da editora:
                NomeCombo.AddItem !Descricao, i
                'grava na propriedade ItemData desse código as editoras:
                NomeCombo.ItemData(i) = !Codigo
                'vai para o próximo registro do rs:
                .MoveNext
                'incrementa +1:
                i = i + 1
            Wend
        End If
   End With
Saida:
        Set cnnComando = Nothing
        Set rstemp = Nothing
        Exit Sub
        
errComboCategorias:
        With Err
            If .Number <> 0 Then
            MsgBox "Não foi possível a leitura da tabela Categorias:" & .Description, vbExclamation + vbOKOnly + vbApplicationModal, "Erro ao carregar o ComboBox"
               ' MsgBox "Não foi possível a leitura da tabela Categorias:", vbInformation + vbOKOnly + vbApplicationModal, "Erro ao carregar o ComboBox"
            .Number = 0
            GoTo Saida
            End If
        End With
End Sub

 

Editado por dif
Inserir o código dentro da tag CODE <>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×