求助：如何提取数据库中的字段值以及给数据库中的字段赋值

[lskynet]

例如：数据库中的 “实发工资”列＝“总工资”列－“保险”列。如何自动计算“实发工资”。（总工资和保险是人工输入到数据库中的。）

[rappercn]

select (总工资-保险) as 实发工资 from table_u_want where conditons_u_want

[qingming81]

提取数据库中的字段值以及给数据库中的字段赋值,最好还是使用ADODB的对象。

[lskynet]

如何将查询的结果，插入到指定的字段值那一列（如我想把结果插入到“实发工资”位于第四列）

[lskynet]

用ADODB对象怎么做呢？

[jack110007]

修改记录
.Recordset.Update
.Recordset.Fields(0) = .Recordset.Fields(1) + .Recordset.Fields(0)
.Refresh

[qingming81]

dim N as long '记录数
dim strSQL as string '数据库路径
dim conn as new ADODB.connection
dim rs as new ADODB.recordset

strSQL = app.path & "A.mdb"
strSQL = Replace(strSQL, "\\", "\")

With conn
If .State = 1 Then
.Close
End If
.CursorLocation = adUseClient
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strSQL
.Open
End With

With rs
.Open "SELECT Id, IDvalue FROM Table1 ORDER BY Id;", conn, adOpenStatic, adLockOptimistic
if .BOF and .EOF then
N=0 '记录数为0
exit sub
end if
.movefirst
.movelast
N=.recordcount '记录数大于0
End With

'如果你要统计字段IDValue的值
dim i as long
dim allValue as Double '如果是货币，应定义为Currency类型
rs.movefirst
for i=1 to N
allvalue =allvalue + .Fields("IDValue")
rs.movenext
next N

[chao778899]

rappercn(rapper)的就可以，可以把查询结果插入一个表中

[lskynet]

数据库中有“订货日期”字段值，如何查询在今天订货的记录和超过订货日期而没订货的记录