Question

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

数据库是db1.mdb 表名是 设备台账 列名是设备单价，点击commmond1 显示在text12中

Answer 1

思路

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

text12=rs("设备单价")

以上是简单思路

Answer 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)