Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
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

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

×