DUVIDAS COM RELACAO ADODB CARREGAR COMBO ADO

MASTER2020 03/08/2007 18:29:54
#229416
pessoal estou montando um sisteminha pequeno ..tenho uma duvida tenho no modulo um conexao

Public Cnn As New ADODB.Connection
Public rst As New ADODB.Recordset

no form
esta

Public Sub conecta()
Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sistema.mdb"
    rst.CursorLocation = adUseClient
    
    rst.Open "Select * From tblpeca", Cnn, adOpenKeyset, adLockOptimistic, adCmdText
End Sub


esta funcionando perfeitamente

agora minha duvida e
quero colocar um combo pra listar um conjunto de dados q pertence a outra tabela

e agora

tenho q acrescetar no modulo um novo recorde set
so

tipo assim

Public Cnn As New ADODB.Connection
Public rst As New ADODB.Recordset
'acrescento

Public rst1 As New ADODB.Recordset 'pra abrir o recordeset do combo

e isso sera ..estou com duvidas
USUARIO.EXCLUIDOS 03/08/2007 18:45:03
#229417 Resposta escolhida
Isso mesmo,vc vai criar um outra variavel de conexão, vc pode fazer isso dentro de uma função , assim 

Private Sub CARREGAR_COMBO()
Dim rs_carregar As New ADODB.Recordset
rs_carregar.CursorLocation = adUseClient
rs_carregar.Open "Select * from PRODUTOS ORDER BY NOME", cn, adOpenStatic, adLockPessimistic

If rs_carregar.RecordCount <> 0 Then
    rs_carregar.MoveFirst
    Do While rs_carregar.EOF = False
    Combo.AddItem rs_carregar!NOME
    rs_carregar.MoveNext
    Loop
End If
rs_carregar.Close
End Sub


dai é so vc colocar no load do form para chamar a função ...
MASTER2020 03/08/2007 18:49:40
#229418
certo mas no modulo nao mexo Josimar
crio esta funcao coloco no form load e isso..
USUARIO.EXCLUIDOS 03/08/2007 19:02:06
#229421
No modulo vc não precisa mexer ... é so criar a função em um formulario qualquer e no load do formulario vc chamar a função, na propria função vc ja esta criando um variavel de conexõa, ex:

Private Sub Form_Load()
CARREGAR_COMBO
End Sub
MASTER2020 03/08/2007 19:04:07
#229422
certo fiz isso deu um erro runtime 3001
mas acho q no sql.....j aretorno
MASTER2020 03/08/2007 19:06:25
#229423
engracado isso ..
minha tblcat
campos codcat
nomecat

daerro
rs_carregar.Open "Select * from tblcat ", cn, adOpenStatic, adLockPessimistic

poque sera
USUARIO.EXCLUIDOS 03/08/2007 19:12:03
#229424
Aqui ... no lugar de cn vc coloca é o nome da sua conexão viu, no seu casso Cnn, dai fica assim

Dim rs_carregar As New ADODB.Recordset
rs_carregar.CursorLocation = adUseClient 'não deixe de colocar isso
rs_carregar.Open "Select * from tblcat ", Cnn, adOpenStatic, adLockPessimistic
MASTER2020 03/08/2007 19:22:54
#229425
Josimar era isso msm mudeio nome da conexao acabou o problema vou encerrar o topico te pontuar ok muito obrigado...
Tópico encerrado , respostas não são mais permitidas
Voltar