Question

VB怎样计算access数据库里的表里的一列数字之和？

有一个command 有一个text access数据库在工程所在文件夹内 数据库叫AFC 代码怎么写
数据库表里的那一列叫票价，能写出来的话在追加20分

Answer 1

在部件中选择ADODC控件添加到窗体上，或者在工程菜单中引用ADO对象都可以
下面开始写代码(我以ADO对象为例)：
dim con as new adodb.connection '声明一个数据连接对象变量，用于打开数据库
dim rs as new adodb.recordset '声明一个数据集对象变量，用于打开数据表
private sub form_load() '在窗体加载事件中，打开数据连接对象
con.open "Provider=Microsoft.Jet.OLEDB.4.0;data source=AFC.mdb;persist security info=false"
text1.text=""
end sub
Private Sub command1_Click() '单击查询按钮事件,完成计算数据列的和
if rs.state<>adstateclosed then rs.close
rs.open "select 票价 from 数据表名",con,1,3
if rs.eof=false and rs.bof=false then
rs.movefirst
while not rs.eof
if text1.text="" then
text1.text=rs.fields("票价")
else
text1.text=cdbl(text1.text)+rs.fields("票价")
end if
rs.movenext
wend
end if
end sub
试试吧，全是手写的，所以格式需要你自己校正

追问

关于text1.text=cdbl(text1.text)+rs.fields("票价")
一运行软件就说类型不匹配是怎么回事？

追答

cdbl(text1.text)这个是将文本框内容转换成双精度类型，只是我这么写，具体你的数据是什么类型，还得转化成你实际的类型