我有几台服务器正在复制。我们希望确保人们在主服务器上使用该应用程序,并且在某些情况下仅使用第二服务器。
我在数据库脚本的PostOpen事件中添加了一些代码,以检查应用程序打开的服务器。如果他们不在正确的服务器上,则会出现一个提示,告诉他们他们是在错误的服务器上,并询问他们是否要继续。
我想做的是,如果他们选择“否”,而不是继续使用第二台服务器,我想关闭此数据库并打开主服务器上的数据库。
我尝试使用UI工作区OpenDatabase,但这并没有真正起作用。它可能无法完成,但我想我会问,以防万一有办法做到这一点。
由于 CLEM
答案 0 :(得分:1)
我有以下代码在我的应用程序中运行(剥离)以实现您想要做的事情:
strServer = "YourMasterServer"
strFilePath = Source.Database.Filepath
Call Source.Close()
Call ws.Opendatabase( strServer, strFilePath)
代码位于数据库的PostOpen-事件中。