+ Rispondi al messaggio
Pagina 2 di 3 primaprima 123 ultimoultimo
Visualizzazione dei risultati da 11 a 20 su 29

Valori totali errati

  1. #11
    L'avatar di freddy60
    freddy60 non  in linea Scolaretto
    Post
    227
    Like Inviati  
    0
    Like Ricevuti  
    0
    i conti 2 e 3 ce l'ho per tutto l'anno tranne quelli del mese corrente

  2. #12
    L'avatar di AntonioG
    AntonioG non  in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Post
    17,362
    Blogs
    5
    Like Inviati  
    5
    Like Ricevuti  
    31
    Dato che non sei chiaro, mi puoi fare un elenco dei dati che hai per il conto 2 ?
    ℹ️ Leggi di pi su AntonioG ...

  3. #13
    L'avatar di freddy60
    freddy60 non  in linea Scolaretto
    Post
    227
    Like Inviati  
    0
    Like Ricevuti  
    0
    scusa cosa intendi per elenco dei dati?

  4. #14
    L'avatar di AntonioG
    AntonioG non  in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Post
    17,362
    Blogs
    5
    Like Inviati  
    5
    Like Ricevuti  
    31
    Per idconto = 2

    data entrate uscite
    ... .... ...

    Basta che mostri il risultato di una SELECT * FROM Contabilita WHERE idconto=2
    ℹ️ Leggi di pi su AntonioG ...

  5. #15
    L'avatar di freddy60
    freddy60 non  in linea Scolaretto
    Post
    227
    Like Inviati  
    0
    Like Ricevuti  
    0
    Certo, sono identici al conto 1 "data entrate uscite"

  6. #16
    L'avatar di freddy60
    freddy60 non  in linea Scolaretto
    Post
    227
    Like Inviati  
    0
    Like Ricevuti  
    0
    Questa la select del conto 2

            Try
                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
    
            End Try
    

  7. #17
    L'avatar di AntonioG
    AntonioG non  in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Post
    17,362
    Blogs
    5
    Like Inviati  
    5
    Like Ricevuti  
    31
    Allora freddy ... capiamoci ... il codice deve funzionare per qualsiasi conto ... 1, 2, 3 o quello che ... Se i dati sono diversi io non lo so e tu continui a non mostrarli quindi non ci posso fare nulla.

    Se vuoi, fai uno zip del codice e dei dati e falli scaricare
    Ultima modifica di AntonioG; 06-12-2020 16:07 
    ℹ️ Leggi di pi su AntonioG ...

  8. #18
    L'avatar di freddy60
    freddy60 non  in linea Scolaretto
    Post
    227
    Like Inviati  
    0
    Like Ricevuti  
    0
    Questo tutto il codice dei 3 conti

     Try
                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
    
            End Try
    
            Try
                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
    
            End Try
    
            Try
                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
    
            End Try
    
            Try
    
    Ultima modifica di freddy60; 06-12-2020 16:18 

  9. #19
    L'avatar di freddy60
    freddy60 non  in linea Scolaretto
    Post
    227
    Like Inviati  
    0
    Like Ricevuti  
    0
    sul conto 1 funziona alla perfezione

  10. #20
    L'avatar di AntonioG
    AntonioG non  in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Post
    17,362
    Blogs
    5
    Like Inviati  
    5
    Like Ricevuti  
    31
    Freddy ... cos le discussioni diventano infinite, come al solito ...

    Ho capito qual il codice e ho capito che per il conto 1 funziona.

    Ti ho chiesto di mostrarmi esplicitamente i dati del db e non l'hai fatto (perch?)
    Ti ho detto di zippare il codice e i dati e farli scaricare (ovviamente devi fare il file zip e dare una url) e non lo hai fatto.

    Se continuiamo cos non resta che chiudere il thread.
    ℹ️ Leggi di pi su AntonioG ...

+ Rispondi al messaggio
Pagina 2 di 3 primaprima 123 ultimoultimo

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