使用vb语言从数据库中的一个表的指定位置(行或列)获取数据写入另一个表的指定位置,代码如何编写?谨致诚谢!

Question

已看到阁下编写的代码,十分的感谢,十分敬仰阁下渊博的知识和乐于助人的品德.
如果阁下能为代码写下详细的注释,我就能更好的理解和学习.再次表示感谢!

Answer 1

比如有两个位置：表A的（2,1）,表B的（2,1）,代码如下：
Dim db As Database
Dim rst1, rst2 As Recordset
Dim sql1, sql2 As String
Dim a As Single
'以上是声明变量
Set db = CurrentDb
sql1 = "select * from 表A"
Set rst1 = db.OpenRecordset(sql1)
'打开记录集rst1
rst1.Move 2
'指针移到第3行
a = rst1.Fields(1)
'给变量赋值
sql2 = "select * from 表B"
Set rst2 = db.OpenRecordset(sql2)
rst2.Move 2
'打开另一记录集并移动指针到指定位置
rst2.Edit
rst2.Fields(1) = a
rst2.Update
'更改字段值

Answer 2

ASFSDFGFDG