如何使用vb.net和sql计算日销售额开发者社区

相关文章推荐

深情的围巾 · 紫琅湖帆船体验中心通过中帆协认证 - 部门动态· 1 月前 ·

鬼畜的香烟 · 超级公务员！漫画_哔哩哔哩_bilibili· 7 月前 ·

稳重的葫芦 · 比亚迪和理想无法与之竞争，坦克500 ...· 1 年前 ·

很酷的生姜 · 第40话深夜探望 - 我爹地人设崩了 - ...· 1 年前 ·

知识渊博的冰棍 · 新BMW iX3据说非常不错？_懂车帝· 1 年前 ·

腾讯云

开发者社区

文档意见反馈控制台

首页 TVP

最新优惠活动

文章/答案/技术大牛

发布

   Dim query = "SELECT SUM(Amount)as sales FROM BillTbl where [BDate] = ? "
        Dim conkey As New SqlConnection(con)
        Dim cmd = New SqlCommand(query, conkey)
        cmd.Parameters.AddWithValue("@BDate", Now.ToString("MM/dd/yyyy"))
        conkey.Open()
        Dim total As Double = Convert.ToDouble(cmd.ExecuteScalar())
        check.Text = total.ToString
        conkey.Close()

Dim query = "SELECT SUM(Amount)as sales FROM BillTbl where [BDate] = cast(current_timestamp as Date)"
Using conkey As New SqlConnection(con), _
      cmd As New SqlCommand(query, con)
    conkey.Open()
    Dim total As Decimal = Convert.ToDecimal(cmd.ExecuteScalar())
End Using

Dim query = "SELECT SUM(Amount)as sales FROM BillTbl where [BDate] = @BDate"
Using conkey As New SqlConnection(con), _
      cmd As New SqlCommand(query, con)

推荐文章

深情的围巾 · 紫琅湖帆船体验中心通过中帆协认证 - 部门动态

1 月前

鬼畜的香烟 · 超级公务员！漫画_哔哩哔哩_bilibili

7 月前

稳重的葫芦 · 比亚迪和理想无法与之竞争，坦克500 Hi4-T上市售33.5万元_搜狐汽车_搜狐网

1 年前

很酷的生姜 · 第40话深夜探望 - 我爹地人设崩了 - 包子漫画

1 年前

知识渊博的冰棍 · 新BMW iX3据说非常不错？_懂车帝

1 年前

回答 2

Stack Overflow用户