VB 统计数据表某一列的总数

2025-12-05 10:05:54

推荐回答（2个）

回答1：

思路

conn连接db1.mdb，打开，
rs.open"select sum(设备单价) from 表名",conn,1,3

text12=rs("设备单价")

以上是简单思路

回答2：

首先工程->引用->Microsoft ActiveX Data Objects 2.8 Library
Dim conn As New ADODB.ConnectionDim rs As New ADODB.Recordset
Set conn = New ADODB.Connection
conn.Open "DBQ=" & App.Path & "\db1.mdb;DefaultDir=" & App.Path & ";Driver={Driver do Microsoft Access (*.mdb)};DriverId=25;FIL=MS Access;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;PWD=;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"
Set rs = New ADODB.Recordset
rs.Open "
select count(设备单价) from 设备台账", conn, adOpenStatic, adLockReadOnlyMsgBox "总数：" & rs(0)