老师,这个数据源设置怎么不起作用,还是连接到前面的数据源了?以前的云服务器的IP。谢谢!
Dim ipFile As String = e.ProjectPath & "qqip.txt"
If e.Name = "dcq" Then
If Filesys.FileExists(ipFile) Then
Dim ip As String = FileSys.ReadAllText(ipFile)
ip = ip.Trim()
e.ConnectionString = e.ConnectionString.Replace("127.0.0.1", ip)
End If
End If
[此贴子已经被作者于2023/9/8 17:25:41编辑过]
调试
Dim ipFile As String = e.ProjectPath & "qqip.txt"
msgbox(e.Name)
If e.Name = "dcq" Then
If Filesys.FileExists(ipFile) Then
Dim ip As String = FileSys.ReadAllText(ipFile)
ip = ip.Trim()
msgbox(ip )
e.ConnectionString = e.ConnectionString.Replace("127.0.0.1", ip)
msgbox(e.ConnectionString)
End If
End If
最后显示的是以前的连接,不是文本里面的连接。用Ctrl键显示的是新连接,但是无法联通
[此贴子已经被作者于2023/9/8 18:06:41编辑过]
老师,用下面方法可以,不知为何。
[此贴子已经被作者于2023/9/8 21:28:29编辑过]
msgbox(e.ConnectionString) 没有更改之前的连接字符串发上来看看
e.ConnectionString = e.ConnectionString.Replace("127.0.0.1", ip)
老师,现在只显示数据源名称,IP等后面的都不显示了。直接就登录了前面的连接。我到家里的电脑上再试一下告诉你
老师,用我上面的方式也不行了,我现在把数据源改成云服务器的以后,用127.0.0.1代替,还是直接上的云服务器。好像只认数据源的设置

此主题相关图片如下:微信图片_20230911160809.png

[此贴子已经被作者于2023/9/11 16:25:54编辑过]
如果这些内容都不能见人的,请去联系客服看看。看不到具体的内容,无法做支持
老师,这个是我服务器的密码和IP地址啊。不是别人都能看到吗?