combobox com datareader vb.net!??!?!

[Esquima]

Boa tarde sou iniciante em vb.net, tou a carregar um combobox com um datareader e dentro da minha base de dados tenho 2 campos com designaçao e id.. consigo apanhar a descriçao mas nao o id

Dim sSql AsString
Dim oDRproj As OleDbDataReader
sSql = "SELECT designacao,cod_projecto FROM Projecto"
oDRproj = abreConexao(sSql)
oDRproj.Read()
ComboBox1.Items.Add(oDRproj("descricao"))
oDRproj.close()

 

[TecnicoDeCoisas]

Oi,

vê se assim ja faz o ke keres:

  [SIZE=2][COLOR=#0000ff]Dim[/COLOR][/SIZE][SIZE=2] sSql [/SIZE][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]String
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Dim[/COLOR][/SIZE][SIZE=2] oDRproj [/SIZE][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=2] OleDbDataReader[/SIZE]
  [SIZE=2][SIZE=2]sSql = "SELECT designacao,cod_projecto FROM Projecto"
[SIZE=2]oDRproj = abreConexao(sSql)
'Se tiveres mais que 1 registo tens de usar um while por exemplo
While oDRproj.Read()
[SIZE=2][COLOR=#008000]ComboBox1.Items.Add(oDRproj("descricao").ToString() & " - " & [/COLOR][/SIZE][/SIZE][/SIZE][/SIZE][SIZE=2][SIZE=2][SIZE=2][SIZE=2][COLOR=#008000]oDRproj("[/COLOR][/SIZE][/SIZE][/SIZE][/SIZE][SIZE=2][SIZE=2]cod_projecto[/SIZE][/SIZE][SIZE=2][SIZE=2][SIZE=2][SIZE=2][COLOR=#008000]").ToString()[/COLOR][/SIZE][/SIZE][/SIZE][/SIZE][SIZE=2][SIZE=2][SIZE=2][SIZE=2][COLOR=#008000])
[COLOR=White]En[COLOR=#008000]d While[/COLOR][/COLOR]
oDRproj.close()[/COLOR][/SIZE][/SIZE][/SIZE][/SIZE]

Uma sugestão, pq não usas um dataset em vez de um datareader? se calhar era mais facil, mas em termos de performance e rapidez o DataReader supera o DataSet.

.eof
TT