这是我试图将dbOpenForwardOnly更改为dbOpenDynaset的代码的一部分
设置select_delay = db。OpenRecordset("Select delay from MapOnDemand where No_Map = " &CInt(没有),_dbOpenForwardOnly)
它没有工作。我将感激任何帮助。
在代码中,绝对可以。对于非常大的表,我们经常这样做。
首先,你应该在链接表管理器中链接你的表。您也可以在代码中链接它们,但是我使用的代码有点笨拙。所以,除非它是一个通用的数据库,将只作为一个shell,我建议使用链接表管理器连接表。
然后,使用问题中的代码,你可以这样做:
Dim db as Database
Dim rec as Recordset
Dim sSQL as String
Set db = CurrentDB
Set sSQL = "Select delay from MapOnDemand where No_Map = " & CInt(no) & "")
Set rec = db.OpenRecordset(sSQL, dbOpenDynaset, dbSeeChanges)
您也可以将sSQL设置为一个Update查询,它将正常工作。
另外,不要忘记,如果No_Map是一个字符串,它将需要用单引号括起来,因此您将用:
替换该行。Set sSQL = "Select delay from MapOnDemand where No_Map = '" & CInt(no) & "'")