Question

access数据库如何更新查询到的字段值？

我有两个表a和b，a中有myid和其他n个字段，设字段名称为n1，n2.。。。b中有两个字段，风别为zdname和value，zdname下保存的是a表中myid=1时的部分字段名称（不定），value下是zdname对应的值，我如何更新a中字段名称在b中的值为value值
例如：
表a myid n1 n2 n3 n4...
1
表b zdname value
n2 1
n3 3
n10 4
如何更新a为
表a myid n1 n2 n3 n4 ... n10...
1 1 3 4

Answer 1

access数据库如何更新查询到的字段值的解决方法如下：
你这个如果考虑在Access的 查询里边 独立是是实现的话 应该比较困难吧
如果换是Ms Sql的话，可以利用存储过程+游标 循环B表 ，然后利用动态Sql语句 更新A表中个个字段!
一般情况下，就是写一段程序来解决你的问题：
基本思路如下：
先读取B表循环出来，
每读取出B表一条记录，
就动态构造一条sql 语句 更新A表，
比如用asp的话:
循环到zdName='n3'时候，就在程序中构造Sql
while not rs.eof
stringSQL="update a set "&rs.fields("zdName").value&" = ' " & rs.fields("value").value &" ' "
conn.execute(StringSQL)
rs.move next
loop

Answer 2

你这个如果考虑在Access的 查询里边 独立是是实现的话 应该比较困难吧
如果换是Ms Sql的话，可以利用存储过程+游标 循环B表 ，然后利用动态Sql语句 更新A表中个个字段!

再给个解决方案，就是利用程序，包括asp,或者asp.net,jsp,php等等吧

给你个思路:
先读取B表循环出来，
每读取出B表一条记录，
就动态构造一条sql 语句 更新A表，
比如用asp的话:
循环到zdName='n3'时候，就在程序中构造Sql
while not rs.eof
stringSQL="update a set "&rs.fields("zdName").value&" = ' " & rs.fields("value").value &" ' "
conn.execute(StringSQL)
rs.move next
loop

希望对你有所帮助

Answer 3

大概如下，你可以试试，关键是fileds是可以使用变量的
Dim ss As String
Dim aa As Integer
Dim db As Database
Dim rs As Recordset, rst As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("表b")
Set rst = db.OpenRecordset("表a")
rs.MoveFirst

Do While Not rs.EOF
ss = rs.Fields("zdname")
aa = rs.Fields("value")
rst.Fields(ss) = aa
rs.MoveNext
Loop
rs.Close
rst.Close
db.Close