POPULANDO COMBO COM RESULTADO SQL

USUARIO.EXCLUIDOS 23/04/2007 11:53:38
#213333
Como popular um combo com diversos registros retornados por uma pesquisa SQL?

Fiz assim e dá erro

  Dim cmd As New SqlCeCommand("SELECT * FROM contato", Conn)
            Dim DR As SqlCeDataReader = cmd.ExecuteReader()


            If DR.Read Then

                inventario.ComboBox1.Items.Add(DR.Item("registro").ToString)
                DR.NextResult()
            End If

USUARIO.EXCLUIDOS 23/04/2007 17:02:45
#213410
while not DR.Read

inventario.ComboBox1.Items.Add(DR.Item("registro").ToString)
DR.NextResult()
wend
USUARIO.EXCLUIDOS 23/04/2007 17:05:35
#213412
desculpe, tire o not e o nextresult.

while DR.Read
inventario.ComboBox1.Items.Add(DR.Item("registro").ToString)
wend
JPC666 23/04/2007 17:31:57
#213421
Dessa maneira vc utiliza umas coisinhas a mais mas dá pra colocar o valor da chave junto do registro, sem que ele apareça...


'no caso utilizei SQLClient pra conectar no banco, mas trocar pelo seu
   Dim da As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(comSql, conexao)

        Dim ds As New DataSet

        da.Fill(ds)

        With ComboBox1
            .DataSource = ds.Tables(0)
            .DisplayMember = "Nome"
            .ValueMember = "cod_usuario"
        End With

Tópico encerrado , respostas não são mais permitidas
Voltar