如何使用VB对Access分类汇总后返回结果！谢谢！

乱堂步

RT

请问如何使用VB对Access数据库中的各项进行分类汇总~然后再生成一个新的数据库显示结果或直接在原数据库文件中生成一条？~

例如：apple     1
          orange   2
          orange   2
          apple      3
          orange    2

变成   apple    4
            orange  6



谢谢！

sgrshh29

select 品名, sum(数量) as 品种数量 from 表 group by 品名;

乱堂步

我也知道是
strSQL ="select sum(数量)  from 表 group by 品名

然后把他放在Command1_Click()中

但是如何把分类汇总的结果储存起来生成新的文件或新的记录呢~？

谢谢

sgrshh29

生成一个新的表(汇总表)

select 品名, sum(数量) as 品种数量 into 汇总表 from 表 group by 品名;

乱堂步

首先谢谢LS的帮忙~

我这里用的是Access97的文件~

Private Sub Command1_Click()
            'insert into database
        Dim strSQL As String
        Dim strSQL1 As Long

        Dim strErr As String
        Dim iRet As String
        
Dim rs As New ADODB.Recordset


            iRet = SQL_Connect1(App.Path & "WorkTime.mdb", strErr)
            iRet = SQL_Open1(strErr)


strSQL = "select   Sum(Time)  from Data group by Task"

End Sub

这里和原数据库的连接已经建立好了~你这里汇总表的文件连接在哪里进行定义呢？~
新增一个表是新增一个文件吗？~应该怎么写呢~谢谢~

sgrshh29

你在哪里操作,是在这个Access97文件中?还是在其它位置操作这个Access97数据库?

乱堂步

用VB操作Access数据库~

sgrshh29

一般做法，在vb中创建一个ado,连接到access数据库.定义一个sql字符串,用ado执行这个字符串,就可以得到你要的结果了.剩下的问题就是如何把这个结果显示出来让自己可以看到这个结果.
从你的描述中,看不出你究竟想要做什么.你是要得到那个结果显示在vb中?还是要把那个结果生成新的表?还是生成什么其它文件(比如txt、word、excel等)?
下面的实例给出一个将查询结果直接打印到vb的窗体上,文件下载后解压后，vb和mdb需在同一个目录下。
QK.rar (7.15 KB, 下载次数: 147)

2009-8-18 14:33 上传

点击文件名下载附件

[ 本帖最后由 sgrshh29 于 2009-8-18 14:33 编辑 ]

nowarmy

谢谢sgrshh29 ！急需要这方面的学习资料。

zss427607

急需要这方面的学习资料。