ACCESS数据库中如何自动计算某一个字段的值?

2024-11-22 21:51:47
推荐回答(5个)
回答(1):

方法有很多种:这里说两种:
第一种: 通过建立查询实现
1.建立一个表。例如下表
表名:收支表
两个字段 (均为货币型)收入 支出
2.基于这个表建立一个查询
a.在查询设计框里,在这两个字段的后面一栏增加表达式:
结余:=[收支]-[支出]
b.当建立这个表达式的时候你可以利用表达式“生成器”,——按鼠标右键可以获得。
c.也可以利用查询向导来做这件事情。
第二种:通过建立窗体来实现
有如下表:学生成绩表字段学生姓名 性别 数学 语文 英语 政治 总分数 平均分数
1.基于上面的二维表。建立一个窗体(可利用窗体向导来自动生成)
2.窗体生成后。
a.计算总成绩
选中[政治]这个文本框,然后按鼠标右键,选择[属性],在[属性]对话框里,选择:“更新后”,然后选择“事件过程”,输入如下语句:
总分数.value=数学.value+语文.value+英语.value+政治.value
b.计算平均分数
平均分数.value=(数学.value+语文.value+英语.value+政治.value)/4
你也可以利用AVG()函数来计算这个值。
其实:EXCEL中的很多功能ACCESS几乎都能实现,且比EXCEL更省时,更方便。可以将ACCESS里的数据(表、查询等)直接生成EXCEL表格。

回答(2):

用查询就可以了.
建一个查询,选择那个表,双击AA,BB,这两个字段就进入了查询列表的前两列,在第三列输入 CC:[AA]*[BB] ,运行这个查询,就看到了你想要的结果.

回答(3):

public
function
transactsql(byval
sql
asstring)
as
adodb.recordset
dim
cont
as
adodb.connection
dim
rs
as
adodb.recordset
dim
strconnection
as
string
dim
strarray()
as
string
set
cont
=
new
adodb.connection
'创建连接
set
rs
=
new
adodb.recordset
on
error
goto
transactsql_error
strconnection
=
"provider
=microsoft.jet.oledb.4.0;
data
source="
&
app.path
&"\cd1.mdb;"
strconnection
=
strconnection
&"persist
security
info=false;"
strarray
=
split(sql)
'split()
返回一个下标从零开始的一维数组
cont.open
strconnection
'打开连接
if
strcomp(ucase$(strarray(0)),"select",
vbtextcompare)
=
0
then
rs.open
trim$(sql),
cont,
adopenkeyset,adlockoptimistic
set
transactsql
=
rs
iflag
=
1
else
cont.execute
sql
iflag
=
1
end
if
transactsql_exit:
set
rs
=
nothing
set
cont
=
nothing
exit
function
transactsql_error:
msgbox
"查询错误:"
&err.description
iflag
=
2
resume
transactsql_exit
end
function
上面这个是一个数据库的动态链接,这块代码在模块里放着.
dim
rs
as
new
adodb.recordset
dim
sql
as
string
sql
=
"select
*
from
lendcx"'lendcx是表名
set
rs
=
transactsql(sql)
rs.addnew
'添加新纪录
rs.fields(0)
=
trim(combo3.text)
rs.fields(1)
=
trim(combo1.text)
rs.fields(2)
=
trim(dtpicker1.value)
rs.fields(3)
=
trim(combo2.text)
rs.fields(4)
=
trim(text2.text)
rs.fields(5)
=
trim(text3.text)
rs.update
rs.close

回答(4):

ACCESS2010版增加数据类型“计算”,使用起来很方便。

回答(5):

不能 可以通过查询完成 查询中可以像你这样操作
你把这个表全弄到查询中就可以了