为表中的所有字段编程 [英] Programming for all fields in a table
问题描述
亲爱的朋友们
我是一名经验丰富的程序员，但我碰巧拥有MS Access，其中
使用了我不知道的语言。
我想对桌子上的所有记录执行操作，比如这个
对于recordnumber = 1到NumberOfElements（Tabel）
PerformCalculation（recordnumber.fieldname）
怎么做？
-
Feico
Dear friends
I am an experienced programmer, but I happen to have MS Access, which
uses a language unknown to me.
I want to perform an operation on all record on a table, like this
For recordnumber=1 to NumberOfElements(Tabel)
PerformCalculation(recordnumber.fieldname)
How is it done?
--
Feico
推荐答案
一个查询。
我敢肯定你可以通过打开一个记录集来做到这一点，
，但你也可以做一些事情，比如把车开到
商店而不是开车。可能，也许，但我肯定不会b / b
推荐它。
A query.
I''m sure you could do it by opening a recordset and doing it that way,
but you could also probably do something like push your car to the
store instead of driving it. Possible, maybe, but I sure wouldn''t
recommend it.
Feico写道：
亲爱的朋友
我是一名经验丰富的程序员，但我碰巧有MS Access，它使用了我不知道的语言。
我想表演对表格上的所有记录进行操作，如下所示
对于recordnumber = 1到NumberOfElements（Tabel）
PerformCalculation（recordnumber.fieldname）
如何完成？
Dear friends
I am an experienced programmer, but I happen to have MS Access, which
uses a language unknown to me.
I want to perform an operation on all record on a table, like this
For recordnumber=1 to NumberOfElements(Tabel)
PerformCalculation(recordnumber.fieldname)
How is it done?
取决于。查询和记录集处理的组合可能效果最好
dim db as database，rs as recordset，i as integer
set db = currentdb（）
set rs = db.openrecordset（" SELECT TOP 1 * FROM TABLE;"）
for i = 0 to rs.fields.count - 1
db.execute（" UPDATE TABLE SET ["& rs（i）&"] = ..... WHERE ....;"）
next我是
rs.close
db.close
msgbox已完成
或更少高效...
dim db as database，rs as recordset，i as integer
set db = currentdb（）
set rs = db.openrecordset（" SELECT * FROM TABLE;"）
do to rs.eof
for i = 0 to rs.fields.count - 1
rs.Edit
rs（i）= PerformCalculation
rs.update
next
rs.movenext
loop
rs.close
db.close
msgbox"已完成& ;
Depends. A combination of queries and recordset processing might work best
dim db as database, rs as recordset, i as integer
set db = currentdb()
set rs = db.openrecordset("SELECT TOP 1 * FROM TABLE;")
for i = 0 to rs.fields.count - 1
db.execute("UPDATE TABLE SET [" & rs(i) & "] = ..... WHERE....;")
next i
rs.close
db.close
msgbox "Finished"
or less efficiently...
dim db as database, rs as recordset, i as integer
set db = currentdb()
set rs = db.openrecordset("SELECT * FROM TABLE;")
do until rs.eof
for i = 0 to rs.fields.count - 1
rs.Edit
rs(i) = PerformCalculation
rs.update
next i
rs.movenext
loop
rs.close
db.close
msgbox "Finished"
On Sun，2005年10月16日20:05:45 -0400，DFS < nospam@dfs_.com>写道：
comp.databases.ms-access：
On Sun, 16 Oct 2005 20:05:45 -0400, "DFS" <nospam@dfs_.com> wrote in
comp.databases.ms-access:
dim db as database，rs as recordset，i as integer
dim db as database, rs as recordset, i as integer
不幸的是，db作为数据库被拒绝。
-
Feico
Unfortunately, db as database is rejected.
--
Feico
这篇关于为表中的所有字段编程的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
