请教该如何修改？

[hcyzs]

想实现根据gz199912.mdb中gzsj表中字段l1更新gz20001.mdb中gzsj表中字段l1的值，为何下段程序出错，请教该如何修改？
Dim myworkspace As Workspace, mydatabase1 As Database, mydatabase2 As Database, mytable1 As Recordset, mytable2 As Recordset
Private Sub Command1_Click()
d_mybasename1 = App.Path & "\gz199912.mdb"
d_mybasename2 = App.Path & "\gz20001.mdb"
Set myworkspace = DBEngine.Workspaces(0)
Set mydatabase1 = myworkspace.OpenDatabase(d_mybasename1)
Set mydatabase2 = myworkspace.OpenDatabase(d_mybasename2)
Set mytable1 = mydatabase1.OpenRecordset("gzsj", dbOpenDynaset)
Set mytable2 = mydatabase2.OpenRecordset("gzsj", dbOpenDynaset)
mydatabase2.Execute "update gzsj set l1=mytable1.l1 where name=mytable1.name" '运行至此，显示错误：实时错误 '3061',参数不足，期待是2。
mytable1.Close
mytable2.Close
mydatabase1.Close
mydatabase2.Close
End Sub

[gz]

丢参数了

[Firing_Sky]

在表名前面再加一个数据库名试试。

[Tyro]

只能用循环一条条的改，象你那样用一条语句改完恐怕办不到！

[jing]

name=mytable1.name类形有问题?
Try
"name= '" & IIF(ISNull(Cstr(mytable.name)),Cstr(mytable.name)),为空字符如何处理) &"'"

[ltp3]

试试
mydatabase2.Execute "update gzsj set l1='" & mytable1.l1 & "' where name='" & mytable1.name" & "'"
::如果l1或name不是字符串类型的去掉’