CARREGAR EM LISTVIEW

EVERSON.PASETTO 10/01/2015 21:38:18
#443707

eu tinha um codigo no vb 6.0
Agora quero usar um mesmo no vb 2013

Como carregar as pesauisas encontradas em uma listvew
Meu codigo era assim no vb 6.0

Num form eu tinha isso..

Public Function fCarregaPagamentos() As Boolean

Dim strSQL As String
Dim intformato(13) As Integer

Dim Li As ListItem
Dim Soma As Currency

txtSQL.Text = [Ô][Ô]
[ô]Call LimpaCampos

If txtUsuario.Text <> [Ô][Ô] Then
strSQL = strSQL & [Ô] usuario like [ô]%[Ô] & txtUsuario.Text & [Ô]%[ô] and [Ô]
strSQLAux = strSQLAux & [Ô] usuario like [ô]%[Ô] & txtUsuario.Text & [Ô]%[ô] and [Ô]
End If

If strSQL <> [Ô][Ô] Then
strSQL = [Ô] where [Ô] & Left(strSQL, Len(strSQL) - 4)
End If

If strSQLAux <> [Ô][Ô] Then
strSQLAux = [Ô] where [Ô] & Left(strSQLAux, Len(strSQLAux) - 4)
End If

[ô]Permite que o botão cmdPesquizar fique True caso a ComboBox do Estado estiver com algo selecionado
cmdPesquizar.Enabled = True

txtInicial.Text = txtDataInicial.Text
txtFinal.Text = txtDataFinal.Text

txtDataInicial = Format(txtDataInicial, [Ô]mm/dd/yyyy[Ô])
txtDataFinal = Format(txtDataFinal, [Ô]mm/dd/yyyy[Ô])

If txtRelatorio.Text = [Ô]Compromisso[Ô] Then
strSQL = [Ô]select conta_NomeConta,conta_valor,[Ô] & _
[Ô]conta_Vencimento, conta_Usuario, conta_NomeUser,Conta_NomeConta from Compromisso [Ô] & _
[Ô]where (Conta_Usuario like [ô]%[Ô] & txtUsuario.Text & [Ô]%[ô] and Conta_Vencimento Between #[Ô] & txtDataInicial & [Ô]# And #[Ô] & txtDataFinal & [Ô]#)[Ô]

strSQLAux = [Ô]select conta_NomeConta,conta_valor,[Ô] & _
[Ô]conta_Vencimento, conta_Usuario, conta_NomeUser,Conta_NomeConta from Compromisso [Ô] & _
[Ô]where (Conta_Usuario like [ô]%[Ô] & txtUsuario.Text & [Ô]%[ô] and Conta_Vencimento Between #[Ô] & txtDataInicial & [Ô]# And #[Ô] & txtDataFinal & [Ô]#)order by conta_Vencimento[Ô]

txtSQL.Text = strSQLAux
End If

If txtRelatorio.Text = [Ô]Historico[Ô] Then
strSQL = [Ô]select conta_NomeConta,conta_valor,[Ô] & _
[Ô]conta_Vencimento, conta_Usuario, conta_NomeUser,Conta_NomeConta from Historico [Ô] & _
[Ô]where (Conta_Usuario like [ô]%[Ô] & txtUsuario.Text & [Ô]%[ô] and Conta_Vencimento Between #[Ô] & txtDataInicial & [Ô]# And #[Ô] & txtDataFinal & [Ô]#)[Ô]

End If

[ô]intformato(0) = Tipo_Formato.E_TIP_CPF_CNPJ

Call sCarregarListview(LsvConta, strSQL, intformato)
[ô]Call scarregalistaclientes(strsql)

[ô]Inicio da rotina que soma todos os valores da coluna Valor
If LsvConta.ListItems.Count > 0 Then

For Each Li In LsvConta.ListItems

If Li.Checked Then
Soma = Soma + Li.SubItems(1)
End If
Next

txtValorTotal.Text = Format(Soma, [Ô]currency[Ô])
Call fColorir
Call sRotina
Call fSeleciona

End If
[ô]Fim da rotina que soma todos os valores da coluna Valor
End Function


E em um módulo tinha este codigo

Public Sub sCarregarListview(objListview As ListView, strSQL As String, arFormatacao() As Integer, Optional intChave As Integer = -1)
Dim strValor As String
Dim Rs As New ADODB.Recordset
Dim lst As ListItem
Dim x As Integer
Dim strCampo As String
On Error GoTo TrataErro


objListview.ListItems.Clear

Rs.CursorType = adOpenForwardOnly
Rs.LockType = adLockReadOnly

Set Rs = cnnBanco.Execute(strSQL)


While Not Rs.EOF

For x = 0 To Rs.Fields.Count - 1
strValor = [Ô][Ô] & Rs(x)

If Not IsEmpty(arFormatacao) Then

If x <= UBound(arFormatacao()) Then

Select Case arFormatacao(x)
Case Tipo_Formato.E_TIP_DATA
If Len(Trim(strValor)) > 0 And IsDate(strValor) Then
strValor = Format(strValor, [Ô]dd/mm/yyyy[Ô])
Else
strValor = [Ô] [Ô]
End If
Case Tipo_Formato.E_TIP_DATAABREVIADA
If Len(Trim(strValor)) > 0 And IsDate(strValor) Then
strValor = StrConv(Format(strValor, [Ô]mmm/yyyy[Ô]), vbProperCase)
Else
strValor = [Ô] [Ô]
End If
Case Tipo_Formato.E_TIP_CNPJ
If Len(Trim(strValor)) > 0 And IsNumeric(strValor) Then
strValor = Format([Ô][Ô] & Rs(x), [Ô]00\.000\.000\/0000\-00[Ô])
Else
strValor = [Ô] [Ô]
End If
Case Tipo_Formato.E_TIP_CPF
If Len(Trim(strValor)) > 0 And IsNumeric(strValor) Then
strValor = Format([Ô][Ô] & Rs(x), [Ô]000\.000\.000\-00[Ô])
Else
strValor = [Ô] [Ô]
End If
Case Tipo_Formato.E_TIP_CPF_CNPJ
If Len(Trim(strValor)) > 0 And IsNumeric(strValor) Then
If Len(Trim(strValor)) <= 11 Then
strValor = Format([Ô][Ô] & strValor, [Ô]000\.000\.000\-00[Ô])
Else
strValor = Format([Ô][Ô] & strValor, [Ô]00\.000\.000\/0000\-00[Ô])
End If
Else
strValor = [Ô] [Ô]
End If
Case Tipo_Formato.E_TIP_MOEDA
If Len(Trim(strValor)) > 0 And IsNumeric(strValor) Then
strValor = Format(strValor, [Ô]#,##0.00[Ô])
Else
strValor = Format(0, [Ô]0.00[Ô])
End If
Case Tipo_Formato.E_TIP_NUMERICO, Tipo_Formato.E_TIP_SOMENTE_NUMERO
If Len(Trim(strValor)) > 0 And IsNumeric(strValor) Then
strValor = strValor = Format(strValor, [Ô]#,##0[Ô])
Else
strValor = Format(0, [Ô]0[Ô])
End If
Case Tipo_Formato.E_TIP_CPF
If Len(Trim(strValor)) > 0 And IsNumeric(strValor) Then
strValor = Format([Ô][Ô] & Rs(x), [Ô]00\.000\-000[Ô])
Else
strValor = [Ô] [Ô]
End If
Case Tipo_Formato.E_TIP_TELEFONE
If Len(Trim(strValor)) > 0 And IsNumeric(strValor) Then
strValor = Format([Ô][Ô] & Rs(x), [Ô]###0-0000[Ô])
Else
strValor = [Ô] [Ô]
End If
End Select
Else
strValor = [Ô][Ô] & Rs(x)
End If
Else
strValor = [Ô][Ô] & Rs(x)
End If
If strValor = [Ô][Ô] Then strValor = [Ô] [Ô]
If x = 0 Then
Set lst = objListview.ListItems.Add(, , strValor)
If intChave <> -1 Then
If IsNumeric(Rs(intChave)) Then
lst.Key = [Ô]_[Ô] & Rs(intChave)
Else
lst.Key = Rs(intChave)
End If
End If
Else
lst.SubItems(x) = strValor
End If

Next

Rs.MoveNext
Wend

Rs.Close
Set Rs = Nothing
Exit Sub

TrataErro:
Call sTrataErro(Err.Number, Err.Description, [Ô]CarregaNovaListVienw[Ô])
Exit Sub
Resume 0

End Sub


Como faço algo semelhante no VB.NET ou VB 2013