怎么用update更新select语句的结果集

[hoheart]

简单点，就下面这个语句：
update 主力数据 set 股票代码=(select 代码 from 中国股市股本结构 where 中国股市股本结构.股票名称=主力数据.股票名称)

我想用“中国股市股本结构”表里的“股票代码”更新“主力数据”里的“股票代码”，但两表的“股票名称”要对应。

[饮水需思源]

update 主力数据 set 主力数据.股票代码=中国股市股本结构.股票代码
from 中国股市股本结构,主力数据
where 中国股市股本结构.股票名称=主力数据.股票名称

[changechange]

关于此主题请参考：
两个表用Where子句关联，然后更新为何出错？(操作必须使用一个可更新的查询)《...
http://access911.net/index.asp?u1=a&u2=77FAB61E14DC

[wwwwb]

update 主力数据 a ,中国股市股本结构 b set a.股票代码=b.代码
where b.股票名称=a.股票名称

[mzlibo]

Private Sub command1_Click()

On Error GoTo errMsg
Dim strSql As String
Set db = CurrentDb()
strSql = "Select * From Test"
Set rsChild = db.OpenRecordset(strSql)

If rsChild.RecordCount <> 0 Then
rsChild.MoveFirst
Do While Not rsChild.EOF
With rsChild
MsgBox .Fields("comments").Value
.Edit
.Fields("comments").Value = "comments"
.Update
MsgBox .Fields("comments").Value
End With
rsChild.MoveNext
Loop
End If
rsChild.Close
Set rsChild = Nothing
db.Close
Set db = Nothing
Exit Sub
errMsg:
On Error Resume Next
rsChild.Close
Set rsChild = Nothing
db.Close
Set db = Nothing
MsgBox "错误：" & Err.Description
Exit Sub

End Sub

[changechange]

关于此主题请参考：
两个表用Where子句关联，然后更新为何出错？(操作必须使用一个可更新的查询)《...
http://access911.net/index.asp?u1=a&u2=77FAB61E14DC