Olá usuário , seja muito bem vindo ao nosso fórum !

Se esta visitando nosso fórum e de alguma forma nós te ajudamos com algum tutorial, download, espero que colabore com a gente se registrado no fórum que não leva mais que 1 minuto.

Outras formas de colaborar com o nosso fórum:

-> Se logando apos o registro.
-> Entrando diariamente.
-> Postando novos conteúdos no fórum como tutoriais, downloads, piadas, memes, notícias, vídeos, etc..
-> Leia nossas regras e participe de nossas promoções.

Até mais , aguardo seu registro e sua colaboração com o fórum.

Você não está conectado. Conecte-se ou registre-se

[Tutorial]VisualBasic - Carregando uma Combo com campos da Tabela

Ir em baixo  Mensagem [Página 1 de 1]

!skipper

avatar
RBFounder

RBFounder
Para carregar uma combo com os dados de um campo da tabela faça a seguinte sub:

Não esquecendo que devemos estar com um conexão "cnn" aberta e declarar no General Declarations do Form:
Código:
 Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset

CÓDIGO:
Código:
 Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset


Agora a sub, digamos que vamos preencher a combo COMBO_NOME com o NOME dos clientes da tabela CLIENTES

CÓDIGO:
Código:
 Private Sub preencher_combo()

'preenchendo o recordset com os nomes da tabela

With cmd
    .ActiveConnection = cnn
    .CommandType = adCmdText
    .CommandText = "select  NOME from CLIENTES"
    Set rs = .Execute
End With

'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!NOME) Then 'se o campo não tiver valor nulo, isto evita criar espaços em branco
    COMBO_NOME.AddItem rs!NOME 'adiciona o registro à combo
    End If
    rs.MoveNext 'move para o proximo registro
    Loop 
End With

End Su


Chame a sub para preencher a combo:

CÓDIGO:
Código:
 Private Sub Form_Load()
preencher_combo
End Sub

Ver perfil do usuário http://www.thunderzone.co.cc

Voltar ao Topo  Mensagem [Página 1 de 1]

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