none
Carregar ListView do VB 2008 Express a 2 tabelas do Access 2007 RRS feed

  • Pergunta

  • 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