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

Scarlett_88

原帖由 sgrshh29 于 2009-8-18 10:16 发表
一般做法，在vb中创建一个ado,连接到access数据库.定义一个sql字符串,用ado执行这个字符串,就可以得到你要的结果了.剩下的问题就是如何把这个结果显示出来让自己可以看到这个结果.
从你的描述中,看不出你究竟想要做 ...

在你的基础上来一个Excel输出的

Scarlett_88

再简化一下：

Dim cnn As Object
Dim rst As Object
Dim xls As New Excel.Application

Private Sub Command1_Click()
Dim strsql As String
Dim n As Integer
strsql = "select 店名, sum(加工费) AS 加工费 from 加工统计 group by 店名"
rst.Open strsql, cnn, 3, 3
xls.Workbooks.Open App.Path & "\统计结果.XLS"
xls.Visible = True
xls.Sheets(1).Cells(1, 1) = "店名"
xls.Sheets(1).Cells(1, 2) = "金额合计"
xls.Sheets(1).Cells(2, 1).CopyFromRecordset rst
End Sub

Private Sub Form_Load()
Set cnn = CreateObject("adodb.connection")
Set rst = CreateObject("adodb.recordset")
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\加工统计_be.mdb"

End Sub

Private Sub Form_Unload(Cancel As Integer)
rst.Close
Set xls = Nothing
Set rst = Nothing
Set cnn = Nothing
End Sub

Scarlett_88

用一句
xls.Sheets(1).Range("A1:B1") = Application.Transpose(Array("店名", "金额合计"))
来代替
xls.Sheets(1).Cells(1, 1) = "店名"
xls.Sheets(1).Cells(1, 2) = "金额合计"

monkeywyq

学习一下，感谢分享。

monkeywyq

新手来学习一下，多谢分享。