以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  发布前无法更改数据源默认设置的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54771)

--  作者:zpx_2012
--  发布时间:2014/8/4 14:21:00
--  发布前无法更改数据源默认设置的问题

自己的电脑上同时安装了sql2005和sql2008R2,如下图所示

 


图片点击可在新窗口打开查看此主题相关图片如下:360截图20140804134605482.jpg
图片点击可在新窗口打开查看

平时在自己的电脑上开发或测试时不同版本的SQL数据库,数据源IP那里就设置成192.168.0.108\\sql2005或者192.168.0.108\\sql2008即可。

但发布项目前必须将数据源那里的IP改为192.168.1.4(客户服务器的内部IP)这样用户安装项目或更新后就可以直接访问了。

 

问题是,当将将数据源那里的IP改为192.168.1.4时却无法设置成功了,电脑IP已改为192.168.1.4,但因为自己电脑上的sql路径必须在ip后面要加\\sql2005或\\sql2008路径才能访问,这种情况要怎么办?(除了用IP.txt文件来替换外)

 

谢谢!


--  作者:Bin
--  发布时间:2014/8/4 14:25:00
--  
在生成的连接字符串里再添加路径呗.
--  作者:zpx_2012
--  发布时间:2014/8/4 14:50:00
--  

在BeforeConnectOuterDataSource像下面这样拼凑吗?
If e.name = "EI" Then
    e.C & e.ProjectPath & "数据文件1.mdb;Persist Security Info=False"
End If

但我已经用了下面的代码,我是想内部网络用默认的,然后外网用户再用ip.txt内的ip地址替换.
.....
Dim ipFile As String = e.ProjectPath & "ip.txt"
If Filesys.FileExists(ipFile) Then
    Dim ip As String = FileSys.ReadAllText(ipFile)
    e.ConnectionString = e.ConnectionString.Replace("192.168.1.4",ip)
Else
    MessageBox.Show("请检查系统安装目录下IP.txt文件内的IP地址是否正确!","提示")
    Syscmd.Project.Exit(False) \'退出系统
End If
......


--  作者:有点甜
--  发布时间:2014/8/4 16:10:00
--  

 BeforeConnectOuterDataSource 事件,代码,头部

 

e.ConnectionString = e.ConnectionString.Replace("192.168.0.108\\sql2005", "192.168.1.4")