NAO CONSIGO CARREGAR A COMBOBOX

PCORREA 04/03/2013 15:12:29
#419877
Por favor,

Estou fazendo um projeto de uma biblioteca que encontrei em uma apostila na web.
E não estou conseguindo carregar as combobox, será que alguém poderia me ajudar??? Eis o código:

Public Sub ComboCategorias(NomeCombo As ComboBox)
Dim cnnComando As New ADODB.Command
Dim rsTemp As New ADODB.Recordset
Dim i As Integer
On Error GoTo erroComboCategoria

With cnnComando
.ActiveConnection = cnnBiblio
.CommandType = adCmdStoredProc
.CommandText = [Ô]CategoriasEmOrdemAlfabetica[Ô]
Set rsTemp = .Execute
End With

With rsTemp
If Not (.EOF And .BOF) Then
.MoveFirst
i = 0
While Not .EOF
NomeCombo.AddItem !Descricao, i
NomeCombo.ItemData(i) = !Codigo
.MoveNext
i = i + 1
Wend
End If
End With

saida:
Set cnnComando = Nothing
Set rsTemp = Nothing
Exit Sub


erroComboCategoria:
With Err
If .Number <> 0 Then
MsgBox [Ô]Não foi possível fazer a leitura da tabela Categorias:[Ô], vbApplicationModal + vbOKOnly + vbInformation, [Ô]Erro ao carregar o ComboBox[Ô]
.Number = 0
GoTo saida
End If
End With
End Sub

Essa programação está em um módulo.
LLAIA 04/03/2013 15:25:14
#419882 Resposta escolhida
E o erro cara?
PCORREA 04/03/2013 15:48:12
#419886
Run-timer error 3265
O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.

Ele aponta para a linha:

NomeCombo.AddItem !Descricao, i
FILMAN 04/03/2013 21:27:40
#419902
qual o banco de dados você esta utilizando?

A sua absorvição esta adiquirindo de uma procedure você tem essa procedure?

tente mudar o código colocando dessa maneira:
trocar esse
    With cnnComando
        .ActiveConnection = cnnBiblio
        .CommandType = adCmdStoredProc
        .CommandText = [Ô]CategoriasEmOrdemAlfabetica[Ô]
        Set rsTemp = .Execute
    End With


por esse
    With cnnComando
        .ActiveConnection = cnnBiblio
        .CommandType = adCmdText
        .CommandText = [Ô]SELECT * FROM [txt-color=#0000f0]SuaTabelaAqui[/txt-color][Ô]
        Set rsTemp = .Execute
    End With


Espero ter ajudado
PCORREA 05/03/2013 07:57:42
#419915
Estou usando o access 07.

Tentei esse código mas não deu certo.

Essa programação está em um módulo, ela é informada no formulário da combo como um parâmetro:

ComboCategorias cboCategoria
Tópico encerrado , respostas não são mais permitidas
Voltar