TRAZER DADOS DO BD MYSQL NO COMBO

RICKSOUSA 14/10/2009 19:52:51
#325344
eu fiz um sisteminha de cadastro de produtos, com 7 campos

codigoproduto = label que aparece o codigo 1,2,3 e etc...
produto = textbox nome do produto, memoria kingston ddrII etc...
categoria = textbox é a categoria do produto exemplo: quando eu for cadastrar um produto eu coloco a categoria
memoria, processador, hd e etc... mais eu gostaria que não repetisse na hora que eu clicasse no combo caso eu cadastrar dois tipos de memorias, memoria kingston e memoria samsung.

no access eu fazia assim:

Dim Tabela_CatgCombo As Recordset
Set Tabela_CatgCombo = banco.OpenRecordset([Ô]select DISTINCT CATEGORIA FROM CADPRODUTOS ORDER BY CADPRODUTOS.CATEGORIA[Ô], dbOpenDynaset)

eu tentei fazer assim com o mysql

Set Tabela_CatgCombo = New ADODB.Recordset

Tabela_CategCombo.Open [Ô]select DISTINCT CATEGORIA FROM PRODUTO ORDER BY PRODUTO.CATEGORIA[Ô], cnn, adOpenKeyset, adLockOptimistic

e no general eu coloquei

Public Tabela_CategCombo As New ADODB.Recordset

mais esta acontecendo um erro: segue a imagem....

como faço para solucionar esse problema, no access funcionava perfeitamente....
DANIKULL 14/10/2009 20:19:57
#325347 Resposta escolhida
RICKSOUSA, boa noite.

Este erro está acontecendo pelo fato do objeto ja estar aberto, tente inverter a forma da instruação sa seguinte forma:

Declare a variável assim:

Public Tabela_CatgCombo As ADODB.Recordset


Faça sua consulta da seguinte forma:

If Tabela_CatgCombo<> Nothing Then
    Tabela_CatgCombo.close
End If

Set Tabela_CatgCombo = New ADODB.Recordset
    With Tabela_CatgCombo
        .CursorType = adOpenStatic
        .CursorLocation = adUseClient
        .LockType = adLockPessimistic
        .Source = [Ô]select DISTINCT CATEGORIA FROM PRODUTO ORDER BY PRODUTO.CATEGORIA[Ô]
        .ActiveConnection = cnn
        .Open
    End With



Faça ai e veja se vai funcionar, OK????
Qualquer coisa você grita help ai novamente.
TECLA 14/10/2009 20:37:51
#325351
Experimenta acrescentar a linha abaixo, ANTES de abrir o RECORDSET.
If Tabela_CategCombo.State = adStateOpen Then Tabela_CategCombo.Close
RICKSOUSA 15/10/2009 09:38:12
#325369
valeu galera, a dica dos dois funcionou se desse para pontuar os dois....

muito obrigado pela ajuda de vcs!!!
Tópico encerrado , respostas não são mais permitidas
Voltar