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

乱堂步 · 发表于 2009-8-17 15:02

RT

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

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

变成 apple 4
         orange  6

谢谢！

sgrshh29 · 发表于 2009-8-17 15:39

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

乱堂步 · 发表于 2009-8-17 15:52

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

然后把他放在Command1_Click()中

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

谢谢

sgrshh29 · 发表于 2009-8-17 16:15

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

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

乱堂步 · 发表于 2009-8-17 16:26

首先谢谢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 · 发表于 2009-8-17 16:33

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

乱堂步 · 发表于 2009-8-17 17:41

用VB操作Access数据库~

sgrshh29 · 发表于 2009-8-18 10:16

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

QK.rar (7.15 KB, 下载次数: 147)

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

nowarmy · 发表于 2009-9-18 08:11

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

zss427607 · 发表于 2009-9-18 12:36

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

		自动登录	找回密码
密码			免费注册

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

回复 6楼 sgrshh29 的帖子