这个问题已经上网请教很久了,至今未能解决, 本人愿给250分以求得解答!
hcyzs 2000-01-22 09:53:00 想实现根据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