+ Rispondi al messaggio
Pagina 3 di 3 primaprima 123
Visualizzazione dei risultati da 21 a 29 su 29

Valori totali errati

  1. #21
    L'avatar di freddy60
    freddy60 non è in linea Scolaretto
    Post
    227
    Like Inviati  
    0
    Like Ricevuti  
    0
    ho capito cosa vuoi dire ma il db contiene tutte le operazioni dell'anno che sono personali,

    come posso fare altrimenti?

  2. #22
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Post
    17,396
    Blogs
    5
    Like Inviati  
    5
    Like Ricevuti  
    32
    Fatti una copia del file dei dati ed elimina tutti i dati personali lasciando soltanto poche registrazioni fittizie di esempio e ne riparliamo.
    Il problema è nei dati.

    Intanto, dato che gli errori sono mascherati dalle Try prova ad inserire tra la Catch e la End Try una MessageBox del tipo

    MessageBox.Show(ex.Message)

    per vedere se hai errori durante l'esecuzione (cosa che dovresti fare tu, se solo avessi aperto e studiato una volta un libro come avevi promesso di fare ...)
    ℹ️ Leggi di più su AntonioG ...

  3. #23
    L'avatar di freddy60
    freddy60 non è in linea Scolaretto
    Post
    227
    Like Inviati  
    0
    Like Ricevuti  
    0
    Ho catpito farò come dici tu,
    però mi serve un di tempo

  4. #24
    L'avatar di gibra
    gibra non è in linea Very Important Person
    Post
    6,206
    Like Inviati  
    18
    Like Ricevuti  
    10
    @freddy60
    stai usando il forum come se fosse una chat!
    Non si sa a chi rispondi e a cosa ti riferisci, per cui le tue risposte sono inutili e non comprensibili.

    Lascio la palla ad AntonioG.
    ℹ️ Leggi di più su gibra ...

  5. #25
    L'avatar di freddy60
    freddy60 non è in linea Scolaretto
    Post
    227
    Like Inviati  
    0
    Like Ricevuti  
    0
    Ho risolto così

    Posto il codice:

     'Personale ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
            Try 'qui calcolo il sado delle entrate
                Dim cmd As SqlCommand
                Dim conn As New SqlConnection("Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=|DataDirectory|\My Project\BudgetFamiliare.mdf;Integrated Security=True")
                Dim Sql As String = “SELECT sum(entrate) As Totale FROM contabilita WHERE idconto=1 AND MONTH(data) = MONTH(GETDATE()) AND YEAR(data) = YEAR(GETDATE())"
    
                cmd = New SqlCommand(Sql, conn)
                conn.Open()
    
                Dim DR As SqlDataReader
                DR = cmd.ExecuteReader
    
                DR.Read()
    
                If IsDBNull(DR("Totale")) Then
                    Label25.Text = "0,00 €"
                Else
                    Label25.Text = String.Format("{0:c2}", DR("Totale")).ToString
                End If
    
                cmd.Dispose()
                conn.Close()
    
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
    
            Try 'qui calcolo il sado delle uscite
                Dim cmd As SqlCommand
                Dim conn As New SqlConnection("Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=|DataDirectory|\My Project\BudgetFamiliare.mdf;Integrated Security=True")
                Dim Sql As String = “SELECT sum(uscite) As Totale FROM contabilita WHERE idconto=1 AND MONTH(data) = MONTH(GETDATE()) AND YEAR(data) = YEAR(GETDATE())"
    
                cmd = New SqlCommand(Sql, conn)
                conn.Open()
    
                Dim DR As SqlDataReader
                DR = cmd.ExecuteReader
    
                DR.Read()
    
                If IsDBNull(DR("Totale")) Then
                    Label26.Text = "0,00 €"
                Else
                    Label26.Text = String.Format("{0:c2}", DR("Totale")).ToString
                End If
    
                cmd.Dispose()
                conn.Close()
    
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
    
            Try 'qui calcolo il sado delle entrate e delle uscite
                Dim cmd As SqlCommand
                Dim conn As New SqlConnection("Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=|DataDirectory|\My Project\BudgetFamiliare.mdf;Integrated Security=True")
                Dim Sql As String = “SELECT SUM(entrate) As TotaleE, SUM(uscite) As TotaleU FROM contabilita WHERE idconto=1 AND MONTH(data) = MONTH(GETDATE()) AND YEAR(data) = YEAR(GETDATE())"
    
                cmd = New SqlCommand(Sql, conn)
                conn.Open()
    
                Dim DR As SqlDataReader
                DR = cmd.ExecuteReader
    
                DR.Read()
    
                Dim TotE As Decimal = IIf(IsDBNull(DR("TotaleE")), 0, DR("TotaleE"))
                Dim TotU As Decimal = IIf(IsDBNull(DR("TotaleU")), 0, DR("TotaleU"))
    
                Label9.Text = String.Format("{0:c2}", TotE - TotU).ToString()
                Label9.ForeColor = IIf(TotE - TotU < 0, Color.Red, Color.Green)
    
                cmd.Dispose()
                conn.Close()
    
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
    
            'Fine Personale ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
    
            'Ceramica srl:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
    
            Try 'qui calcolo il sado delle entrate
                Dim cmd As SqlCommand
                Dim conn As New SqlConnection("Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=|DataDirectory|\My Project\BudgetFamiliare.mdf;Integrated Security=True")
                Dim Sql As String = “SELECT sum(entrate) As Totale FROM contabilita WHERE idconto=2 AND MONTH(data) = MONTH(GETDATE()) AND YEAR(data) = YEAR(GETDATE())"
    
                cmd = New SqlCommand(Sql, conn)
                conn.Open()
    
                Dim DR As SqlDataReader
                DR = cmd.ExecuteReader
    
                DR.Read()
    
                If IsDBNull(DR("Totale")) Then
                    Label28.Text = "0,00 €"
                Else
                    Label28.Text = String.Format("{0:c2}", DR("Totale")).ToString
                End If
    
                cmd.Dispose()
                conn.Close()
    
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
    
            Try 'qui calcolo il sado delle uscite
                Dim cmd As SqlCommand
                Dim conn As New SqlConnection("Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=|DataDirectory|\My Project\BudgetFamiliare.mdf;Integrated Security=True")
                Dim Sql As String = “SELECT sum(uscite) As Totale FROM contabilita WHERE idconto=2 AND MONTH(data) = MONTH(GETDATE()) AND YEAR(data) = YEAR(GETDATE())"
    
                cmd = New SqlCommand(Sql, conn)
                conn.Open()
    
                Dim DR As SqlDataReader
                DR = cmd.ExecuteReader
    
                DR.Read()
    
                If IsDBNull(DR("Totale")) Then
                    Label27.Text = "0,00 €"
                Else
                    Label27.Text = String.Format("{0:c2}", DR("Totale")).ToString
                End If
    
                cmd.Dispose()
                conn.Close()
    
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
    
            Try 'qui calcolo il sado delle entrate e delle uscite
                Dim cmd As SqlCommand
                Dim conn As New SqlConnection("Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=|DataDirectory|\My Project\BudgetFamiliare.mdf;Integrated Security=True")
                Dim Sql As String = “SELECT SUM(entrate) As TotaleE, SUM(uscite) As TotaleU FROM contabilita WHERE idconto=2 AND MONTH(data) = MONTH(GETDATE()) AND YEAR(data) = YEAR(GETDATE())"
    
                cmd = New SqlCommand(Sql, conn)
                conn.Open()
    
                Dim DR As SqlDataReader
                DR = cmd.ExecuteReader
    
                DR.Read()
    
                Dim TotE As Decimal = IIf(IsDBNull(DR("TotaleE")), 0, DR("TotaleE"))
                Dim TotU As Decimal = IIf(IsDBNull(DR("TotaleU")), 0, DR("TotaleU"))
    
                Label13.Text = String.Format("{0:c2}", TotE - TotU).ToString()
                Label13.ForeColor = IIf(TotE - TotU < 0, Color.Red, Color.Green)
    
                cmd.Dispose()
                conn.Close()
    
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
    
            'Fine Ceramica SRL:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
    
            'Ceramica Corinaldesi:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
    
            Try 'qui calcolo il sado delle entrate
                Dim cmd As SqlCommand
                Dim conn As New SqlConnection("Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=|DataDirectory|\My Project\BudgetFamiliare.mdf;Integrated Security=True")
                Dim Sql As String = “SELECT sum(entrate) As Totale FROM contabilita WHERE idconto=3 AND MONTH(data) = MONTH(GETDATE()) AND YEAR(data) = YEAR(GETDATE())"
    
                cmd = New SqlCommand(Sql, conn)
                conn.Open()
    
                Dim DR As SqlDataReader
                DR = cmd.ExecuteReader
    
                DR.Read()
    
                If IsDBNull(DR("Totale")) Then
                    Label23.Text = "0,00 €"
                Else
                    Label23.Text = String.Format("{0:c2}", DR("Totale")).ToString
                End If
    
                cmd.Dispose()
                conn.Close()
    
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
    
            Try 'qui calcolo il sado delle uscite
                Dim cmd As SqlCommand
                Dim conn As New SqlConnection("Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=|DataDirectory|\My Project\BudgetFamiliare.mdf;Integrated Security=True")
                Dim Sql As String = “SELECT sum(uscite) As Totale FROM contabilita WHERE idconto=3 AND MONTH(data) = MONTH(GETDATE()) AND YEAR(data) = YEAR(GETDATE())"
    
                cmd = New SqlCommand(Sql, conn)
                conn.Open()
    
                Dim DR As SqlDataReader
                DR = cmd.ExecuteReader
    
                DR.Read()
    
                If IsDBNull(DR("Totale")) Then
                    Label22.Text = "0,00 €"
                Else
                    Label22.Text = String.Format("{0:c2}", DR("Totale")).ToString
                End If
    
                cmd.Dispose()
                conn.Close()
    
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
    
            Try 'qui calcolo il sado delle entrate e delle uscite
                Dim cmd As SqlCommand
                Dim conn As New SqlConnection("Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=|DataDirectory|\My Project\BudgetFamiliare.mdf;Integrated Security=True")
                Dim Sql As String = “SELECT SUM(entrate) As TotaleE, SUM(uscite) As TotaleU FROM contabilita WHERE idconto=3 AND MONTH(data) = MONTH(GETDATE()) AND YEAR(data) = YEAR(GETDATE())"
    
                cmd = New SqlCommand(Sql, conn)
                conn.Open()
    
                Dim DR As SqlDataReader
                DR = cmd.ExecuteReader
    
                DR.Read()
    
                Dim TotE As Decimal = IIf(IsDBNull(DR("TotaleE")), 0, DR("TotaleE"))
                Dim TotU As Decimal = IIf(IsDBNull(DR("TotaleU")), 0, DR("TotaleU"))
    
                Label14.Text = String.Format("{0:c2}", TotE - TotU).ToString()
                Label14.ForeColor = IIf(TotE - TotU < 0, Color.Red, Color.Green)
    
                cmd.Dispose()
                conn.Close()
    
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
    
            'Fine Ceramica Corinaldesi:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
    
            'Saldo Netto:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
    
            Try 'qui calcolo il saldo netto dei tre conti
                Dim cmd As SqlCommand
                Dim conn As New SqlConnection("Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=|DataDirectory|\My Project\BudgetFamiliare.mdf;Integrated Security=True")
                Dim Sql As String = “SELECT SUM(entrate) As TotaleE, SUM(uscite) As TotaleU FROM contabilita WHERE MONTH(data) = MONTH(GETDATE()) AND YEAR(data) = YEAR(GETDATE())"
    
                cmd = New SqlCommand(Sql, conn)
                conn.Open()
    
                Dim DR As SqlDataReader
                DR = cmd.ExecuteReader
    
                DR.Read()
    
                Dim TotE As Decimal = IIf(IsDBNull(DR("TotaleE")), 0, DR("TotaleE"))
                Dim TotU As Decimal = IIf(IsDBNull(DR("TotaleU")), 0, DR("TotaleU"))
    
                Label17.Text = String.Format("{0:c2}", TotE - TotU).ToString()
                Label17.ForeColor = IIf(TotE - TotU < 0, Color.Red, Color.Green)
    
                cmd.Dispose()
                conn.Close()
    
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
    
            'Fine saldo netto::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
    

  6. #26
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Post
    17,396
    Blogs
    5
    Like Inviati  
    5
    Like Ricevuti  
    32
    Quello che scrivi non ha senso ... non è diverso da quello che già ti avevi fatto scrivere e che dicevi che non funzionava. È lo stesso codice!

    Fra l'altro lo hai INUTILMENTE ripetuto più volte senza motivo.
    ℹ️ Leggi di più su AntonioG ...

  7. #27
    L'avatar di freddy60
    freddy60 non è in linea Scolaretto
    Post
    227
    Like Inviati  
    0
    Like Ricevuti  
    0
    Si è quello che mi avevi postato tu, ma io avevo fatto confusione nello scrivere perciò non funzionava.

    Se l'ho ripetuto più volte l'ho fatto perchè per il momento non so fare diversamnte.

    Grazie comunque per la disponibilità.

  8. #28
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Post
    17,396
    Blogs
    5
    Like Inviati  
    5
    Like Ricevuti  
    32
    Quale confusione avevi fatto?

    Insomma ... abbiamo perso un pomeriggio ...

    Dopo 5 anni di partecipazione dovresti cominciare a leggere qualcosa e cominciare a cavartela da solo con questi problemini di base.
    E dovresti cominciare a scrivere codice in maniera migliore, non fare copia incolla continuo con codice chilometrico per la maggior parte inutile.

    Le ceramiche mi piacciono, ma la prossima volta non arriveremo ad una trentina di post ...
    Ultima modifica di AntonioG; 06-12-2020 21:15 
    ℹ️ Leggi di più su AntonioG ...

  9. #29
    L'avatar di SirJo
    SirJo non è in linea Scolaretto
    Post
    50
    Like Inviati  
    5
    Like Ricevuti  
    2
    io non ho perso il pomeriggio
    semplicemente quando vedo messaggi di freddy .......... skip

+ Rispondi al messaggio
Pagina 3 di 3 primaprima 123

Potrebbero interessarti anche ...

  1. Funzione cerca.vert restituisce valori errati
    Da shadi nel forum Microsoft Excel
    Risposte: 2
    Ultimo Post: 07-03-2016, 11:07
  2. Casella combinata, valori totali?
    Da lolliman nel forum Microsoft Access
    Risposte: 9
    Ultimo Post: 25-01-2016, 18:45
  3. Risposte: 0
    Ultimo Post: 13-06-2012, 01:11
  4. [Access] Colori Report errati nella stampa
    Da wonderland nel forum Microsoft Access
    Risposte: 3
    Ultimo Post: 19-06-2007, 14:56
  5. Riferimenti ultimo messaggio forse errati
    Da Cteniza nel forum Comunicazioni
    Risposte: 2
    Ultimo Post: 18-09-2005, 01:31