如何得到数据库中数据的最大值、最小值、平均值.txt

VB技巧问答10000例 VB技巧问答10000例

求 统 计 量 可 以 使 用 SQL的 Max、 Min、 Avg等 函 数 。 你 可 以 使 用 Val将 文 本 转 换 位 数 字 。 如 
     
    Dim dbs As Database, rst As Recordset 
     
    Set dbs = OpenDatabase("mydb.mdb") 
    Set rst = dbs.OpenRecordset("SELECT " _ 
     & "Min(Val(Freight)) AS [Low Freight], " _ 
     & "Max(Val(Freight))AS [High Freight] " _ 
     & "FROM Orders WHERE ShipCountry = 'UK';") 
    这 样 rst.Fields("Low Freight")就 是 最 小 值 ， 而 rst.Fields("High Freight")就 是 最 大 值 。 
<END>