access字段总和VB

access字段总和VB

Set nConn = CreateObject("ADODB.Connection")
Set nRs = CreateObject("ADODB.Recordset")
stable = Text4.Value
nConn.Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & accesspath & " ")
SQL = "select * from " & stable & " where 1=2 " 'stable 是你的数据表
nRs.Open SQL, nConn, 3, 3

For i = 0 To 3
' Debug.Print nRs.Fields(i).Name, FieldTypeStr(nRs.Fields(i).Type), nRs.Fields(i).DefinedSize

next
.....这个还没看明白啊，我只要前4列的数据，你要的是全部，那就要遍历了
For i = 0 To nRs.rescordcount
你要的就是nRs.rescordcount.....
这些分别是字段名称、类型、类型对应数值！
俺最近也在整access vba ～悲催啊！～

假设table1表内有个字段number，字段类型是整形 那么对它求和：select sum(number) as num_sum from table1 ado的代码就是 recordset.open "select sum(number) from table1",connection msgbox "number字段之和：" & recordset.fields("num_sum")