| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 求助 连接数据源的IP地址 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111768) |
| -- 作者：jackyfashion -- 发布时间：2017/12/28 22:39:00 -- 求助 连接数据源的IP地址 老师: 您 好! 我在项目BeforeConnectOuterDataSource事件写如下代码: Dim ipFile
As
String =
e.ProjectPath &
"ip.txt" If e.Name = "销售数据" Then If Filesys.FileExists(ipFile) Then Dim ip As String = FileSys.ReadAllText(ipFile) e.ConnectionString = e.ConnectionString.Replace("119.119.120.120",ip) End If End If 我在项目文件目录下创建一个ip.txt的文本文件, 服务器改了IP地址, 不会自动获取在项目文件目录下创建的ip.txt的文本文件的IP地址, 请老师指教! 谢谢!!! |
| -- 作者：有点甜 -- 发布时间：2017/12/28 22:44:00 -- 其中，红色的ip是你原来数据源的ip地址，你服务器ip地址修改后，你要修改ip.txt文件，把ip修改成对应的ip地址。
e.ConnectionString = e.ConnectionString.Replace("119.119.120.120",ip) |
| -- 作者：jackyfashion -- 发布时间：2017/12/28 22:57:00 -- 老师: 您 好! 红色的IP地址没改,只是修改ip.txt文件的IP地址跟现在服务器的IP地址是对应的,就是不起作用,不知那里出问题? 我的IP.txt文件是在D:\\Publish\\Project\\ip.txt 请老师指教! 谢谢!!!
[此贴子已经被作者于2017/12/28 23:00:42编辑过]
|
| -- 作者：有点甜 -- 发布时间：2017/12/28 23:15:00 -- 加入msgbox看弹出什么
Dim ipFile As String = e.ProjectPath & "ip.txt" msgbox(ipfile) msgbox(e.ConnectionString) msgbox(e.ConnectionString) |
| -- 作者：jackyfashion -- 发布时间：2017/12/28 23:21:00 -- 谢谢老师!!! |
| -- 作者：jackyfashion -- 发布时间：2017/12/28 23:39:00 -- 老师: 您好! msgbox(ipfile) D:\\Publish\\Project\\ip.txt msgbox(e.ConnectionString)显示的e.ConnectionString: Provider=SQLOLEDB;Password=ABCDEEFG;Persist Security Info=True;User ID=kp-001;Initial Catalog=ebufdata;Data Source=192.168.1.122,1433 这是原来的,不是现在的IP地址. 请老师指教! 谢谢! [此贴子已经被作者于2017/12/28 23:43:02编辑过]
|
| -- 作者：jackyfashion -- 发布时间：2017/12/29 0:10:00 -- 谢谢老师!!! 可以了 谢谢!!!
[此贴子已经被作者于2017/12/29 0:09:58编辑过]
|