Pontos
Moedas
Posts
Like
Warning![[Tutorial]VisualBasic - Carregando uma Combo com campos da Tabela Left_bar_bleue](https://2img.net/i/fa/i/left_bar_bleue.jpg)
![[Tutorial]VisualBasic - Carregando uma Combo com campos da Tabela Right_bar_bleue](https://2img.net/i/fa/i/right_bar_bleue.jpg)
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:
Agora a sub, digamos que vamos preencher a combo COMBO_NOME com o NOME dos clientes da tabela CLIENTES
CÓDIGO:
Chame a sub para preencher a combo:
CÓDIGO:
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
