外部表情况下启动时让用户选择数据源之再思考！--已成型 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

经测试 CreateObject("ADOX.Catalog") 语法在BeforeOpenProject里可用，具体MSSQL方式未测

思路，

1，在服务器端单独建立一个数据源如：ErpConfig，建表config

此表用于存放客户端启动时所用资料如可选数据库（测试，正式）

2，在BeforeOpenProject里结合全局代码生成的窗体的采用CreateObject("ADOX.Catalog") 语法调取数据，让用户选择，

选择后在本地生成文本文件如（dataconfig.txt） .

3,在 BeforeConnectOuterDataSource事件里调用dataconfig.txt 链接不同数据源

此方法最好单做一个服务端管理程序，用于管理ErpConfig数据，便于用户访问。

以上是思路，正在尝试制作中，诸位如觉得可行，可给个范例给小弟参考下，小弟语法不熟，制作很慢。

[此贴子已经被作者于2013-12-28 9:10:42编辑过]

二合一？切换数据源后用户权限可能就不同步了

完工80%

下载信息 [文件大小：下载次数： ]
点击浏览该文件:启动时切换数据源2.foxdb

我的设计思路大体没变，语法做了调整

BeforeOpenProject
'先读取外部数据库配置文件,数据库可切换的前提是这个配置文件DBconfig.mdb的位置名称不能变

'Dim con As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\启动项目之数据源切换\DBconfig.mdb;Persist Security Info=False")
'Dim cmd As New System.Data.OleDb.OleDbCommand("Select * FROM 设置", con)
'Dim DataReader As System.Data.OleDb.OleDbDataReader '定义DataReader对象
'Dim FieldCount As Integer
'con.Open()
'DataReader = cmd.ExecuteReader '执行SQL语句,返回给DataReader对象
'FieldCount = DataReader.FieldCount
'While DataReader.Read
'MessageBox.Show(DataReader("用户可选数据库"))
'End While
'con.Close()

1，采用.net语法在BeforeOpenProject里先连接数据库

2，把用户选择的数据源放入全局变量，以供调用

3，在全局代码里定义选择窗体（感谢逛逛老师提供学习案例）

有需求的朋友的可看5楼示例。重点代码都在里面。成品就不再传了。

[此贴子已经被作者于2013-12-28 9:19:41编辑过]

主题：外部表情况下启动时让用户选择数据源之再思考！--已成型