Access inicio | | | | | |
Olá,
Seja Bem Vindo ao Blog.

Conecte-se ou registre-se e utilize gratuitamente este equipamento, temos exemplos referente a criação de banco de dados e desenvolvimento de softwares e programas utilizando o Microsoft Access.


Administração do Blog AccessDoProgramador.

Carregando a combobox usando ADO num Front-End desvinculado

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

20022012

Mensagem 

Carregando a combobox usando ADO num Front-End desvinculado






Seção de origem no blog: Desvinculos


Carregando a combobox usando ADO num Front-End desvinculado acessando dados de um Back-End com senha.

A função:
Código:

Private Sub preencher_combo()
'Fonte: http://scriptbrasil.com.br/forum/index.php?showtopic=115993

Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim cnn As New ADODB.Connection

cnn.Open "Provider=MSDataShape;Data Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\banco\BackEnd.mdb; Jet OLEDB:Database Password=123456"


'preenchendo o recordset com os nomes da tabela
With cmd
    .ActiveConnection = cnn
    .CommandType = adCmdText
    .CommandText = "select Pais from Paises ORDER BY Pais"
    Set rs = .Execute
End With


Me.cboDesvinculada.RowSourceType = "Value List"

'jogando os nomes do recordset na combo
With rs
     Do While Not rs.EOF  'enquanto não chegar ao final dos registros
     If Not IsNull(rs!Pais) Then 'se o campo não tiver valor nulo, isto evita criar espaços em branco
     cboDesvinculada.AddItem rs!Pais 'adiciona o registro à combo
     End If
     rs.MoveNext 'move para o proximo registro
     Loop
End With

End Sub

No evento ao carregar do formulário coloque:
Código:

Private Sub Form_Load()
preencher_combo
End Sub

Faça download do exemplo:
Download

study


avatar
Dilson
Facilitador
Facilitador

Brasil


http://www.dadosweb.com

Voltar ao Topo Ir em baixo

- Tópicos similares
Compartilhar este artigo em: diggdeliciousredditstumbleuponslashdotyahoogooglelive

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum