Montar um dropdownlist(combo) com os items(options) tendo o value diferente do text.

‘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>

usando o objeto dataReader

Imports System.Data
Imports System.Data.SqlClientPartial Class conexao_dataReader
Inherits System.Web.UI.Page

Sub Page_load()
‘cria atring de conexao
Dim strConnection As String = “User id=sa;password=sa;”
strConnection += “database=loja;server=localhost; connect timeout=30;”
‘mostra a string usando label
data_src.Text = strConnection
‘cria a consulta sql em string
Dim strSQL As String = “SELECT id, sdescricao, sdetalhes from tbProduto”
‘cria string para depois exibir os dados.
Dim strResultHolder As String
‘cria objeto de conexao(e faz referencia a string de conexao criada acima)
Dim objConnection As New SqlConnection(strConnection)
‘cria o objeto de comando SQL ado.net
Dim objCommand As New SqlCommand(strSQL, objConnection)
‘cria uma instancia para ler o objeto.
Dim objDataReader As SqlDataReader

Try ‘testa a conexao

objConnection.Open() ‘abre a conexao
con_open.Text = “conexao estabelecida com exito.”
objDataReader = objCommand.ExecuteReader() ‘efetua a ligacao com o banco X comando.

strResultHolder = “”
Do While objDataReader.Read() = True
strResultHolder += objDataReader(“id”) & ” ; “
strResultHolder += objDataReader(“sdescricao”) & ” ; “
strResultHolder += objDataReader(“sDetalhes”) & “<br>”
Loop

div_resultado.InnerHtml = strResultHolder
objDataReader.Close()
objConnection.Close()
con_close.Text = “conexao fechada…”

Catch ex As Exception
con_open.Text = “falha na conexao!!!”
con_open.Text = ex.ToString()
End Try

End Sub
End Class