第1个回答 推荐于2017-10-08
用查询就可以了.
建一个查询,选择那个表,双击AA,BB,这两个字段就进入了查询列表的前两列,在第三列输入 CC:[AA]*[BB] ,运行这个查询,就看到了你想要的结果.本回答被提问者采纳
第2个回答 2019-07-17
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
第3个回答 2018-03-29
ACCESS2010版增加数据类型“计算”,使用起来很方便。
第4个回答 2006-11-20
不能 可以通过查询完成 查询中可以像你这样操作
你把这个表全弄到查询中就可以了