怎么实现以下情况:
表1
xm cj
hys 20
hgs 30
hys 20
hys 50
hgs 30
用一条sql语句得到:xm cj
hys 110
hgs 60
合计 170
表1
xm cj
hys 20
hgs 30
hys 20
hys 50
hgs 30
用一条sql语句得到:xm cj
hys 110
hgs 60
合计 170
解决方案 »
- VB6.0如何将文本框中的字符串转换成数字
- 程序打包的时候,怎么确定哪些DLL或OCX是目标系统中有的,哪些是需要安装的?
- !速结贴:大家如何将窗体定位于屏幕中间呢?
- 哪里能下到VB5.0呀,有急用!
- 如何用foobar 2000 SDK 实现音频合并 及 读取音频信息(如时间长度)?
- 如何实现对Excl表格进行数据库导入、导出操作?我用的SQLServer
- access数据库添加字段时如何给这个字段赋上初始值!在线等待!
- r_ain来令分
- vb可以有动画光标,彩色光标吗?
- 我想实现一个IP地址编辑器,请问我该如何去做?
- 请教如何调用pb的dll文件中的函数,最后10分:(
- 在VB中如何对ACCESS数据库中的日期型字段进行操作
"select xm,sum(cj) as cj from 表1 group by xm union select '' as xm ,sum(cj) as cj from 表1"
set cj=
case
when xm="hys"
then sum(xm)
when xm="hgs"
then sum(xm)
end'没装SQL你试下
'工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)
Private Sub Form_Load()
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;User Id=admin;Password=;"
rs.Open "select xm,sum(cj) as cj from 表1 group by xm union select '' as xm ,sum(cj) as cj from 表1", cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub