如何使用VB.NET和SQL计算每日销售额

原代码仅能查询单个指定日期（当前日期）的销售额，无法生成完整的每日销售额汇总报表。以下是调整后的实现方案：

核心改动说明 #

• 用GROUP BY [BDate]按日期分组，实现每日销售额聚合
• 用ISNULL(SUM(Amount), 0)处理无销售额的日期，避免返回NULL
• 使用Using语句自动释放数据库连接和命令资源，避免资源泄漏
• 支持可选的日期范围筛选，方便生成指定时间段的报表

完整代码示例 #

' 生成所有日期的每日销售额报表
Dim query = "SELECT [BDate], ISNULL(SUM(Amount), 0) AS sales FROM BillTbl GROUP BY [BDate] ORDER BY [BDate]"

' 如需筛选特定日期范围，替换为以下查询：
' Dim query = "SELECT [BDate], ISNULL(SUM(Amount), 0) AS sales FROM BillTbl WHERE [BDate] BETWEEN @StartDate AND @EndDate GROUP BY [BDate] ORDER BY [BDate]"

Using conkey As New SqlConnection(con)
    Using cmd As New SqlCommand(query, conkey)
        ' 如果用日期范围筛选，添加参数（示例为2024年全年）：
        ' cmd.Parameters.AddWithValue("@StartDate", New DateTime(2024, 1, 1))
        ' cmd.Parameters.AddWithValue("@EndDate", DateTime.Now)

        conkey.Open()
        Dim reader As SqlDataReader = cmd.ExecuteReader()
        
        ' 遍历结果集，可绑定到DataGridView、ListView等控件展示报表
        While reader.Read()
            Dim saleDate As DateTime = Convert.ToDateTime(reader("BDate"))
            Dim dailySales As Double = Convert.ToDouble(reader("sales"))
            ' 示例：输出到控制台，实际项目中可替换为控件赋值逻辑
            Console.WriteLine($"日期：{saleDate:yyyy-MM-dd}，销售额：{dailySales:C}")
        End While
    End Using
End Using

原代码的问题点 #

1. 仅能查询单天销售额，无法生成全量每日报表
2. 未处理无销售记录日期的SUM(Amount)返回NULL的情况
3. 手动调用Close()存在风险，若代码抛出异常可能导致数据库连接未释放

内容的提问来源于stack exchange，提问作者vibrant Kiito