|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic.Net (Internet)
|
|
 |
Título da Dica: Montar um dropdownlist(combo) com os items(options) tendo o value diferente do text.
|
 |
|
|
|
Postada em 20/8/2004 por vilmarbr
'Montar um dropdownlist(combo) com os items(options) tendo o value diferente do text.
'Adapte conforme for a sua tabela e campos no BD.
'Retire os comentários acima e abaixo conforme necessário para a aplicação rodar.
Dim connString,strSQL as String
Dim objConexao as OleDbConnection
Dim objCommand as OleDbCommand
Dim objDataReader as OleDbDataReader
'connString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & 'Server.MapPath("Bancos.mdb")
'objConexao = New OleDbConnection(connString)
'objConexao.Open()
'>>Instrução SQL p/ montar o combo dos bancos.
strSQL = "Select BCCOD,BCDESCR from HT_DBGERAL_DBANCO order by BCCOD"
objCommand = New OleDbCommand(strSQL, objConexao) '»»Define a instrução SQL a ser executada.
objDataReader = objCommand.ExecuteReader() '»»Armazena o valor da consulta no objeto DataReader.
'>>INÍCIO: Montagem do combo cboBanco.
While objDataReader.Read = true
'>>Forma de se montar um dropdownlist(combo) com os items(options) tendo o value diferente do text:
cboBanco.Items.Add(New ListItem(objDataReader("BCCOD") & " - " & objDataReader("BCDESCR")))
cboBanco.Items(cboBanco.Items.Count - 1).Value = objDataReader("BCDESCR")
End While
'>>FIM: Montagem do combo cboBanco.
'>>INÍCIO: Rotina p/ fechar/tirar objetos da memória.
objDataReader.Close()
objConexao.Close()
objDataReader = Nothing
objCommand = Nothing
objConexao = Nothing
'>>FIM: Rotina p/ fechar/tirar objetos da memória.
<form id="frmGravar" enctype="application/x-www-form-urlencoded" runat="server">
<asp:dropdownlist ID="cboBanco" Font-Name="Verdana" Font-Size="8" AutoPostBack="false" runat="server"></asp:dropdownlist>
</form>
|
|
|
|
|
