USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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>
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página