Olá,
estou listando um MDB dentro de uma list view
em determinado campo ( ex: estatus ) o valor é 0
quero que quando o valor for um, ao invés de listá-lo em no listview
quero armazenar em uma label
Sub LerPedidos()
TempoTotal = 0
Dim Reader As OleDbDataReader
Dim command As New OleDbCommand("SELECT * FROM pedidos Order by NumeroPedido", con)
con.Open()
Try
ListViewPedidos.Columns.Clear()
ListViewPedidos.Items.Clear()
Reader = command.ExecuteReader
Dim i As Integer = 0
Do While (i < Reader.FieldCount)
Dim ColumnHeader As ColumnHeader = New ColumnHeader
ColumnHeader.Text = Reader.GetName(i)
ListViewPedidos.Columns.Add(ColumnHeader)
i = (i + 1)
Loop
ListViewPedidos.AllowColumnReorder = True
Dim ListViewItemPedidos As ListViewItem
While Reader.Read
ListViewItemPedidos = New ListViewItem
ListViewItemPedidos.Text = Reader.GetValue(0).ToString
' preencher o listview com itens
Dim i1 As Integer = 1
Do While (i1 < Reader.FieldCount)
ListViewItemPedidos.SubItems.Add(Reader.GetValue(i1).ToString)
i1 = (i1 + 1)
Loop
ListViewPedidos.Items.Add(ListViewItemPedidos)
End While
Reader.Close()
Catch ex As Exception
Finally
con.Close()
End Try
End Sub
como ficaria este comando desta forma especificando que o campo que quero seja por exemplo o campo da coluna 7?
Obrigado.
Bruno Gaiola Domus & Lepton Des. Software
