Carregar ListView do VB 2008 Express a 2 tabelas do Access 2007

• Pergunta

• 

  

  0

  Entrar para Votar

  Olá Pessoal, preciso de ajuda, tenho que carregar em um único ListView dados de 2 Tabelas distintas do Access 2007. Da Tabela Contas compõe-se dos campos: Código, Emissão, Vencimento, AdiadoPara, Cliente, Valor, Baixas, Saldo e Vendedor.
  Menos o Coluna Baixas que deverá buscar na Tabela ContasRecebidas, os Valores baixados referentes a cada Conta pelo critério do Código da conta. 
  
  Ficaria HIPER agradecido se alguém me ajudar!!!!
  
  Utilizo o seguinte código para carregar o ListView:
  
  Imports System.Data.OleDb
  Imports System
  Imports System.Windows.Forms
  Public Class Contas
  
  #Region " Declarations"
  'This is where we declare the variables
  Dim str As String
  Dim con As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _ & Application.StartupPath & "/CestaBasica.mdb;Persist Security Info=False;"
  Dim oledbcon As New OleDbConnection(con)
  Dim cmd As OleDbCommand
  Dim objRead As OleDbDataReader
  Dim lv As ListViewItem
  Dim ds As New DataSet
  Dim dr As DataRow
  Dim dt As New DataTable
  #End Region
  
  Private Sub Contas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  ListView1.Items.Clear()
  Try
  oledbcon.Open()
  str = "SELECT * FROM Contas ORDER BY cliente DESC"
  cmd = New OleDbCommand(str, oledbcon)
  objRead = cmd.ExecuteReader
  
  Dim adptr As New OleDbDataAdapter("SELECT * FROM Vendedores ORDER BY Nome", con)
  adptr.Fill(ds, "Nome")
  dt = ds.Tables(0)
  For Each Me.dr In dt.Rows
  ComboBox3.Items.Add(dr.Item("Nome"))
  Next
  
  While objRead.Read
  lv = Me.ListView1.Items.Add(objRead("Código").ToString)
  lv.SubItems.Add(objRead("Emissão").ToString)
  lv.SubItems.Add(objRead("Vencimento").ToString)
  lv.SubItems.Add(objRead("AdiadoPara").ToString)
  lv.SubItems.Add(objRead("Cliente").ToString)
  lv.SubItems.Add(FormatCurrency((objRead("Valor").T oString), 2))
  lv.SubItems.Add(FormatCurrency((objRead("Baixas"). ToString), 2))
  lv.SubItems.Add(FormatCurrency((objRead("valor") - (objRead("Baixas")).ToString), 2))
  lv.SubItems.Add(objRead("Vendedor").ToString)
  End While
  
  For i As Integer = 0 To ListView1.Items.Count - 1
  ListView1.Items(i).UseItemStyleForSubItems = False
  Next
  objRead.Close()
  Catch ex As Exception
  MessageBox.Show(ex.Message)
  Finally
  If ListView1.Items.Count = 0 Then
  
  Else
  ListView1.Items(0).Selected = True
  ListView1.Select()
  End If
  oledbcon.Close()
  End Try
  End Sub
  
  Desde já agradeço.

  sábado, 26 de abril de 2014 01:48

  Responder

  |

  Citação