加解密参考：
把整个链接字符串都加密，比如链接字符串：Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Data Source=192.168.0.1
假设加密后结果为：bNFPCDmkA1IQHcTXtyYnyygUFF+hw5Mn9rrWpLmbmNZuEE8XPaUh6izkEkPuc+u+2YI755jt6U1LicN7mK+RAFnl6mybTc/1pRqoQd9WUeTbrFCQJ6yCtiLV+5iJ1iK+TqPiUv0tpjwMZRbTpeRndKu4YEQqpDZrtz4Gu0CuVooQ72CFK0zwXp0r+Vv5+IHiGBJRnD5CFicQ/wpnkbL7Is4wVzsQ/roFWKJUSLwPM8V0+nGDMNmZw+1FhkInGsET
把上面加密字符串保存到ip.txt
BeforeConnectOuterDataSource事件
Dim ipFile As String = e.ProjectPath & "ip.txt"
If e.Name = "销售数据" Then
If Filesys.FileExists(ipFile) Then
Dim cs As String = DecryptText(FileSys.ReadAllText(ipFile),"abc","123")
e.ConnectionString = cs
End If
End If
加好友 
发短信
Post By：2021/4/29 9:04:00 [显示全部帖子]
