Access统计帐号数(已解决)

xymc

1

<div class="blockcode"><blockquote>#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_UseX64=n
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ListViewConstants.au3>
#include <Access.au3>
#include <GuiListView.au3>
#include <Array.au3>
#Include <File.au3>

$mdb_data_path = @ScriptDir & "\mydata.mdb"
$mdb_data_pwd="";数据库密码
$adTable = "帐号列表";数据库表名称
$t='*'

tongji()

Func tongji()
          $addfld = ObjCreate("ADODB.Connection")
            $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &$mdb_data_path& ";Jet Oledb:Database Password=" & $mdb_data_pwd)
         $RS =ObjCreate("ADODB.Recordset")
          $RS.ActiveConnection = $addfld
                        $RS.Open ("SELECT 游戏大区, count(游戏帐号) AS 账号数 FROM 帐号列表 GROUP BY 游戏大区")
                        Local $id = 0
                        Local $aItems[1][2];创建一个二维数组,大小为1，后面增加数据时用ReDim调整大小
           while Not $RS.eof And Not $RS.bof
           if @error =1 Then ExitLoop
                   
                   ReDim $aItems[$id+1][2];调整一个已经存在的数组的大小
                          ; MsgBox(0,"ID",$id)
                                $aItems[$id][0] = $RS.Fields (0).value;列1数据-大区
                                $aItems[$id][1] = $RS.Fields (1).value;列2数据-数量
                                ;MsgBox(0,$RS.Fields (0).value,$RS.Fields (1).value)
                                $id = $id+1
             $rs.movenext
             WEnd
               $rs.close
              $addfld.Close
                          _ArrayDisplay($aItems, "显示统计结果");显示数组        
EndFunc

在数据库里面写的统计没问题，不知道怎么转换到AU3代码里面
请教下各位大神？
以下是acc查询语句
SELECT 游戏大区, count(游戏帐号) AS 账号数
FROM 帐号列表
GROUP BY 游戏大区;

语句
$RS.Open ("SELECT 游戏大区, count(游戏帐号) AS 账号数 FROM 帐号列表 GROUP BY 游戏大区")

haijie1223

水木子版主好象有写这方面的例子，自己搜一下。