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