Jump to content

Recommended Posts

Posted

Boa noite a todos, preciso que alguém me ajudar a resolver este problema, e já fiz o codigo para buscar dados entre duas datas, só que eu queria também colocar uma combobox ( uma lista de Clientes) para eu fazer uma busca de escolher o cliente e depois selecionar as duas datas que pretendo, alguém pode dizer como é que é feito, obrigado.

Imports System.Data.OleDb
Public Class FormRelatório

    Private Sub RelatórioReceita()
        Dim total As Integer
        Dim totalS As Integer
        Dim Faturar As Integer
        Try
            sqL = "SELECT Data, Cliente, Serviço, Faturar, Total FROM Item  WHERE IDReceita = IDReceita AND Data >= #" & dtpFrom.Text & "# AND Data <=#" & dtpTo.Text & "# Order By Data, Cliente"
            ConnDB()
            cmd = New OleDbCommand(sqL, conn)
            dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
            dgw.Rows.Clear()
            total = 0
            totalS = 0
            Faturar = 0
            Do While dr.Read = True
                dgw.Rows.Add(dr(0), dr(1), dr(2), dr(3), dr(4))
                total += dr(4)
                totalS += dr(4)
                Faturar += dr(3)
            Loop
            lblTotal.Text = FormatCurrency(total, "0,00€")
            'lblTotal.Text = Format(totalStocks, "#,##0")
            LblFaturar.Text = (Faturar)
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            cmd.Dispose()
            conn.Close()
        End Try
    End Sub
Posted

Na combobox.datasource colocas a ligação À bd ao campo com o nome dos clientes, depois quando fizeres a pesquisa na bd, usas o resultado da combobox para criar a sql que vai a bd buscar os dados entre datas para enviar só os resultados correspondentes  àquele(s) cliente(s).

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.