select sum(字段) from tablename

解决方案 »

  1.   

    此示例使用订单表计算对于送货至英国订单的合计销售额。
    此示例调用 EnumFields 过程,且可以在 SELECT 语句示例中找到该过程。Sub SumX() Dim dbs  As Database, rst  As Recordset ' 在您的计算机中修改此行使其正确指到 Northwind 的路径。
    Set dbs = OpenDatabase("Northwind.mdb") ' 计算送货至英国订单的合计销售额。
    Set rst = dbs.OpenRecordset("SELECT" _
    & " Sum(UnitPrice*Quantity)" _
    & " AS [Total UK Sales] FROM Orders" _
    & " INNER JOIN [Order Details] ON" _
    & " Orders.OrderID = [Order Details].OrderID" _
    & " WHERE (ShipCountry = '英国');")'移居记录集。
    rst.MoveLast ' 调用 EnumFields 来打印记录集记录集的内容,
    ' 通过 Recordset 对象和需要的字段宽度。
    EnumFields rst, 15

    dbs.CloseEnd Sub
      

  2.   

    select sum(字段) as aaa from tablename 
    MsgBox aaa
      

  3.   

     to controls(泰山):
    仍在用DAO吗?
      

  4.   

    jameslhb(jameslhb):
    我什么都用.