how to select avg() up to mdb

u332744 · 发表于 2012-1-18 16:58

Dim ach  As Integer
Set conn = New ADODB.Connection
With conn
         .Provider = "Microsoft.JET.OLEDB.4.0"
      .Open "c:\yyiblio.mdb"
End With

Set rst = New ADODB.Recordset
Set rst1 = New ADODB.Recordset
With rst
      .ActiveConnection = conn
   .Open "select avg(phy) as ach  from tableaa"

MsgBox ach '这里提示ach为0

咱家是猫 · 发表于 2012-1-18 20:35

MsgBox rst("ach")

u332744 · 发表于 2012-1-19 16:48

咱家是猫发表于 2012-1-18 20:35
MsgBox rst("ach")

谢谢,如果要把平均值插入数据库最后一行怎么弄?

zhangjimfu · 发表于 2012-1-19 17:18

u332744 发表于 2012-1-19 16:48
谢谢,如果要把平均值插入数据库最后一行怎么弄?

docmd.runsql "Insert into tbl(col) values(" & rst("ach") & ")"

zhangjimfu · 发表于 2012-1-19 17:19

单记录追加查询：

INSERT INTO target [(field1[, field2[, ...]])] VALUES (value1[, value2[, ...])

		自动登录	找回密码
密码			免费注册

[求助] how to select avg() up to mdb