以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  sql数据源设置问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=130280)
--  作者：yuweijie
--  发布时间：2019/1/17 19:13:00
--  sql数据源设置问题
程序发布后没有设置数据源这个功能组了，都要在开发者视图下设置，移植极不方便，有没有什么办法可以在发布视图下设置，或者用代码加窗口设置也行。
--  作者：有点甜
--  发布时间：2019/1/17 19:16:00
--  

参考

 

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

 
--  作者：yuweijie
--  发布时间：2019/1/18 9:01:00
--  
不是这个，我是要用代码实现外部数据库接连。
--  作者：有点甜
--  发布时间：2019/1/18 9:03:00
--  

临时添加数据源，参考

 

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

 
--  作者：yuweijie
--  发布时间：2019/1/18 9:51:00
--  
比方说把一个发布的程序正式发布运行，sql服务器的用户名密码又不能告诉开发人员，不好在开发模式直接设置，应该要怎么弄？
--  作者：有点甜
--  发布时间：2019/1/18 10:01:00
--  
以下是引用yuweijie在2019/1/18 9:51:00的发言：
比方说把一个发布的程序正式发布运行，sql服务器的用户名密码又不能告诉开发人员，不好在开发模式直接设置，应该要怎么弄？

 

1、管理员身份，也可以设置数据源的。

 

2、你也可以用txt的方式配置啊，如 http://www.foxtable.com/webhelp/scr/0682.htm

 
--  作者：yuweijie
--  发布时间：2019/1/18 10:47:00
--  
那我这样改：
1。然后把原有项目中的外部工作表全部删除，删除数据源

2.在BeforeConnectOuterDataSource事件中加入：
Dim ipFile As String = e.ProjectPath & "dataset.txt"
    If Filesys.FileExists(ipFile) Then
        Dim ip As String = FileSys.ReadAllText(ipFile)
        e.ConnectionString = ip
End If


3.然后在txt文件中加入
Provider=SQLOLEDB.1;Password=abc123;Persist Security Info=True;User ID=sa;Initial Catalog=sqlabc;Data Source=192.168.1.2"

这样可以吗？
[此贴子已经被作者于2019/1/18 10:47:50编辑过]
--  作者：有点甜
--  发布时间：2019/1/18 10:55:00
--  

1、不需要删除表删除数据源。

 

2、3、设置正确，请自行测试。
--  作者：yuweijie
--  发布时间：2019/1/18 11:46:00
--  
2.3设置后就打不开程序了，双击一闪就关闭没反应了
--  作者：有点甜
--  发布时间：2019/1/18 11:52:00
--  
以下是引用yuweijie在2019/1/18 11:46:00的发言：
2.3设置后就打不开程序了，双击一闪就关闭没反应了

 

加入msgbox，看弹出什么，定位出错位置。