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地址是192.168.11.116,数据库的名称是 "数据库",
但是修改后程序在本地机不能使用,提示外部数据源不能连接,需要手动选择连接,请问问题所在。
还有一个问题e.ConnectionString = e.ConnectionString.Replace("119.119.120.120",ip),这一段代码的Ip地址需要修改吗?谢谢