|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic.Net (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Montar uma combo usando select e dataadapter
|
 |
|
|
|
Postada em 7/3/2004 por Rochª
Monta uma combo (de cidades) a partir de um select (datatable), pode ser alterado para montar com filtros, alterando o select.
Aqui ela executa a montagem no seu formulario da combo.
With ComboBox1
.DisplayMember = "NOME" ' Campo que sera mostrado na combo
.ValueMember = "COD" ' Campo indice (codigo)
.DataSource = MontaCidade.DefaultView
End With
'Rotina para montar a combo
Public Function MontaCidade() As DataTable
cnn.Open()
Dim DA As New SqlDataAdapter("SELECT COD, NOME FROM CIDADES", cnn)
Dim DT As New DataTable
DA.Fill(DT)
cnn.Close()
Return DT
End Function
|
|
|
|
|
