以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  sql变化后怎么做用户感觉不到  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=164191)
--  作者：aidimeng
--  发布时间：2021/4/29 8:48:00
--  sql变化后怎么做用户感觉不到
近期公司要求sql密码要定时更换，怎么处理 在改变sql密码后 不影响用户使用啊

把数据库地址和用户密码加密后放到配置文件中，在BeforeConnectOuterDataSource事件读取配置文件，解密后动态设置数据源
这样的方法怎么实现啊
[此贴子已经被作者于2021/4/29 8:54:32编辑过]
--  作者：有点蓝
--  发布时间：2021/4/29 9:04:00
--  
加解密参考：
EncryptText将字符串加密成另一个字符串
DecryptText将加密后的字符串解密


把整个链接字符串都加密，比如链接字符串：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
--  作者：aidimeng
--  发布时间：2021/4/29 9:11:00
--  
谢谢 我试试啊