Foxtable(狐表)用户栏目专家坐堂 → sql变化后怎么做用户感觉不到


  共有2789人关注过本帖树形打印复制链接

主题:sql变化后怎么做用户感觉不到

帅哥哟,离线,有人找我吗?
aidimeng
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:742 积分:7255 威望:0 精华:0 注册:2015/9/14 14:26:00
sql变化后怎么做用户感觉不到  发帖心情 Post By:2021/4/29 8:48:00 [只看该作者]

近期公司要求sql密码要定时更换,怎么处理 在改变sql密码后 不影响用户使用啊

把数据库地址和用户密码加密后放到配置文件中,在BeforeConnectOuterDataSource事件读取配置文件,解密后动态设置数据源
这样的方法怎么实现啊
[此贴子已经被作者于2021/4/29 8:54:32编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107811 积分:548406 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:742 积分:7255 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2021/4/29 9:11:00 [只看该作者]

谢谢 我试试啊

 回到顶部