[求助]项目发布后的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

新增加的用户设置为默认用户：http://www.foxtable.com/webhelp/scr/1796.htm

添加一个空白数据库，连接不到其它数据源的时候就连接这个空白数据库

无法连接数据源时

在打开项目的时候，如果无法连接到某个数据源，会出现一个数据源设置窗口，允许临时修改数据源的设置。

必须注意的是：

1、这种设置默认是临时的，启动项目后，需要重新打开外部数据源管理窗口，重新设置数据源。
2、如果希望保存这种设置，可以在设置窗口选中选项“保存设置”，这样下次打开项目之后，会按照新的设置连接数据源，无需重复设置。
3、只有开发者和管理员，才有这种临时设置的权限，其他用户打开项目的时候，如果某个数据源无法连接，将直接退出。
4、如果不希望管理员有这种临时修改数据源的权限，可以在项目属性设置中，将“允许设置数据源”属性设置为False(否)。

第3点说的是某个数据源无法连接，将直接退出，而实际上发布后并未直接退出，仍然弹出了要设置数据源的报错窗口。

－－－怎么连这个提示要设置数据源的报错窗口都没有，就直接退出？

[此贴子已经被作者于2018/4/9 23:48:00编辑过]

以下是引用chnfo在2018/4/9 23:28:00的发言：

第3点说的是某个数据源无法连接，将直接退出，而实际上发布后并未直接退出，仍然弹出了要设置数据源的报错窗口。

－－－怎么连这个提示要设置数据源的报错窗口都没有，就直接退出？

[此贴子已经被作者于2018/4/9 23:48:00编辑过]

在beforeOpenProject事件，写代码测试连接数据库，如果连不上，就退出咯

http://www.foxtable.com/webhelp/scr/1944.htm

BeforeOpenProject事件：

Dim s As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & FileSys.GetParentPath(e.File) & "\abc.accdb;Persist Security Info=False;Jet OLEDB:Database Password=123456"

If Connections.TryConnect(s) = False Then

e.HideSplashForm = True

MessageBox.Show("打开项目前检查,数据源无法连通!请检查数据库或者网络,再打开本程序.")

Syscmd.Project.Exit()

Return

End If

BeforeConnectOuterDataSource事件：

If e.name = "XYZ" Then
e.C & e.ProjectPath & "abc.accdb;Persist Security Info=False;Jet OLEDB:Database Password=123456"
End If

发布之后，在publish文件夹下双击发布后的程序，运行正常。
退出后，把publish\project文件夹下的abc.accdb改名称为“aaa.accdb"，再去
在publish文件夹下双击发布后的程序，响应结果是：
1、弹出提示窗口：
打开项目前检查,数据源无法连通!请检查数据库或者网络,再打开本程序
2、点击弹窗中的“确定”按钮，又继续弹出设置数据源的报错窗口

为什么第2步仍然会出来呢？连接不成功，就强制退出了呀。

Syscmd.Project.Exit()

改成

e.Cancel = true

主题：[求助]项目发布后的问题