如何用ADO或DAO汇总ACCESS数据库在线等！

qvbiiss 2003-08-23 03:13:30

如：我有一个名为temp的ACCESS数据库,存里有一个表名为temp
有三个字段pl,int add
pl int add
----------------
苹果 3 15
----------------
香蕉 4 16
----------------
雪梨 10 30
----------------
苹果 5 25
----------------
雪梨 5 15
----------------
苹果 2 10
----------------
我要做出汇总出来的结果：
并生成另一个表名为temp1的新表

pl int add
----------------
苹果 10 50
----------------
香蕉 4 16
----------------
雪梨 15 45

最好用ADO或DAO
其它方法都可以只要能做到就OK

...全文

114 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

imagex 2003-10-09

打赏
举报

select pl,COUNT(int),COUNT(add) from temp GROUP BY pl

neo40 2003-08-23

打赏
举报

这回正确了

Dim conn As New ADODB.Connection
ss.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\temp.mdb;"
ss.Open
ss.Execute "select pl,sum(int),sum(add) into " + App.Path + "\savedb.tablename from temp group by pl"
ss.Close
Set ss = Nothing

'前提是这个temp.mdb和savedb.mdb已经存在,而tablename这个表是不存在的，就是你要从新建立的那个表,也可以保存到同一个数据库里

'ss.Execute "select pl,sum(int),sum(add) into " + App.Path + "\temp.newtbl from temp group by pl"

'终于可以接分了，哈哈

qvbiiss 2003-08-23

打赏
举报

解决马上给分!!

qvbiiss 2003-08-23

打赏
举报

我的意思是把汇总出来的结果生成一个表呀?????????

qvbiiss 2003-08-23

打赏
举报

DAO又如何呢???

amongwang 2003-08-23

打赏
举报

应该只按字段P1分组成行了！将group by 子句中的int,add去掉！

select pl,sum(int),sum(add) from temp group by pl

neo40 2003-08-23

打赏
举报

哦，我错了，你要求和是不是，那楼上的对，哈哈

select pl,sum(int),sum(add) from temp group by pl,int,add

hzybc 2003-08-23

打赏
举报

rs.open "select pl,sum(int),sum(add) from temp group by pl,int,add",cn,3,3

neo40 2003-08-23

打赏
举报

来了

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String

sql = "select pl,COUNT(int),COUNT(add) from temp GROUP BY pl"
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\temp.mdb;Persist Security Info=False"
conn.Open
rs.Open sql, conn, adOpenKeyset, adLockOptimistic

Set DataGrid1.DataSource = rs

qvbiiss 2003-08-23