请帮忙啊！

Question

表结构：
id    所属市   商业分类   建筑面积    营业面积  年营业额
1     北京       农贸       100        100         100
2     南京       农贸       100        100         100
3     北京       农贸       100        100         100
4     上海       农贸       100        100         100
5     北京       农贸       100        100         100
6     南京       农贸       100        100         100
以上是一张表1.dbf
处理后放入另一张表2.dbf：
id    所属市   商业分类   总建筑面积    总营业面积  总年营业额
1      北京     农贸         300         300           300
2      南京     农贸         200         200           200
3      上海     农贸         100         100           100
请问以上得统计如何实现啊？
急等！谢谢现在就是单独的两张表，一个叫1.dbf，另一个2.dbf！
我只想从1表中得到想要得统计数据，返回到2中
我用了：
dim cn as new ado.connection
cn.connectionstring="......dbf"
其中的soucedb=文件夹位置
cn.excute insert into 2(所属市,商业分类,总建筑面积,总营业面积,总年营业额)
select 所属市,商业分类,sum(建筑面积),sum(营业面积),sum(年营业额)
from 1
group by 所属市,商业分类
运行后，怎么2表中没有结果啊！

Answer 1

cn.Execute "insert into [2](所属市,商业分类,总建筑面积,总营业面积,总年营业额)
select 所属市,商业分类,sum(建筑面积),sum(营业面积),sum(年营业额)
from [1] group by 所属市,商业分类"^_^

Answer 2

cn.CursorLocation = adUseClient
cn.excute("insert into [2](所属市,商业分类,总建筑面积,总营业面积,总年营业额)
select 所属市,商业分类,sum(建筑面积),sum(营业面积),sum(年营业额)
from [1] group by 所属市,商业分类")

Answer 3

//excute有这个保留字？不用括号也行的。^_^

Answer 4

Dim dbserver, dbname, dbid, dbpwd, conndb, conndbstr
   dbname = App.Path & "\data.mdb"   '数据库路径
   conndbstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbname & ";Jet OLEDB:Database Password=13027215384;"
   Set conn = CreateObject("ADOdb.connection")
   Set rs = CreateObject("adodb.recordset")
   conn.Open conndbstr
   SQL = "select * from * where *"
   Set rs = conn.Execute(SQL)

Answer 5

SQL语句中使用SUM关键字求和。

Answer 6

我现在操作就是两张表，没有库！
我用了你们的方法，在先打开
dim cn as new ado.connection
cn.connectionstring="......dbf"
然后cn.excute “你们说的语句”
可是还没有结果

Answer 7

如果你的程序中有
on error resume next或者on error goto XX等語名，請先將其注釋，看看有沒有錯誤發生，然後再....
cn.excute insert into [2](所属市,商业分类,总建筑面积,总营业面积,总年营业额)
(select 所属市,商业分类,sum(建筑面积),sum(营业面积),sum(年营业额)
from [1]
group by 所属市,商业分类)
.....