16,554
社区成员
发帖
与我相关
我的任务
分享vb.net中select sum(列名) from 表名，赋值方法
利用select sum(列名) from 表名，查询数据并求和，怎么赋值给text控件
...全文
请发表友善的回复…
发表回复
良朋 2019-12-11
- 打赏
- 举报
TextBox1.Text = Trim(dr("a"))
这是神马东东？
这是神马东东？
VB业余爱好者 2019-12-11
- 打赏
- 举报
select sum(需求数量)as a
改成select sum(需求数量)as 'a'
改成select sum(需求数量)as 'a'
zja6 2019-12-11
- 打赏
- 举报
Dim strcmd As String
Dim y As Integer = DateTimePicker1.Value.Year
Dim m As Integer = DateTimePicker1.Value.Month
connstring = "Initial Catalog=jihua;Data Source=.;User ID=sa;Password=zj790214;"
Dim sqlcon As SqlConnection = New SqlConnection(connstring)
sqlcon.Open()
strcmd = "Select sum(需求数量)as a From dbo.sck Where DatePart(yyyy, [日期]) ='" & y & " ' and DatePart(m, [日期]) ='" & m & " '"
Dim sqlcmd As SqlCommand = New SqlCommand(strcmd, sqlcon)
Dim dr As SqlDataReader
dr = sqlcmd.ExecuteReader
If dr.Read() Then
TextBox1.Text = Trim(dr("a"))
Else
MsgBox("111")
End If
出错：其他信息: 从类型“DBNull”到类型“String”的转换无效。
ManBOyyy 2019-12-11
- 打赏
- 举报
VB
If Not IsDBNull(列名) Then
TextBox1.Text = Trim(列名)
else
TextBox1.Text =0
endif
If Not IsDBNull(列名) Then
TextBox1.Text = Trim(列名)
else
TextBox1.Text =0
endif
exception92 2019-12-10
- 打赏
- 举报
查询数据返回到变量。这个是基础，搜几篇sql语句文章。
