AJUDA COM O LISTVIEW

ELMO01 08/06/2011 14:40:29
#376185
Boa tarde,

Em meu programa tenho vários ListView, só que o primeiro registro de cada banco de dados não aparece. Abaixo um exemplo como faço para preencher o ListView.

Sub Lista_Dados_Mercadorias()
Dim NewListas As New ListViewItem
Dim dr_Forne As MySqlDataReader
Dim Con_Forne As New MySqlConnection(StrMercad)
Dim Cmd_Forne As New MySqlCommand(Str_Merca, Con_Forne)
Con_Forne.Open()
dr_Forne = Cmd_Forne.ExecuteReader
If dr_Forne.Read Then
ListView1.Items.Clear()
ListView1.View = View.Details
ListView1.FullRowSelect = True
ListView1.SmallImageList = ImageList1
While dr_Forne.Read
If dr_Forne.Item([Ô]Status_Merca[Ô]).ToString = [Ô]V[Ô] Then
NewListas = ListView1.Items.Add(dr_Forne.Item([Ô]Matricula_Merca[Ô]).ToString, 0)
NewListas.SubItems.Add(dr_Forne.Item([Ô]Descricao_Merca[Ô]).ToString)
End If
End While
End If
dr_Forne.Close()
End Sub

Como faço para que me apareça o primeiro registro do meu banco de dados MySql??

Obrigado,
KERPLUNK 08/06/2011 14:52:26
#376188 Resposta escolhida
ao invés disso:
If dr_Forne.Read Then

use isso:
If dr_Forne.HasRows then
ELMO01 08/06/2011 15:11:51
#376190
Kerplunk - funcionou - muito obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar