请问vba用sql语句的时候如何用md5不让数据库密码以明文显示？

Question

一般excel vba引用数据库用这个语句吧：
strCn = "Provider=sqloledb;Server=服务器名称或IP地址;Database=数据库名称;Uid=用户登录名;Pwd=密码;"
数据库密码这里以明文显示的。我想用一段md5代替。请问该如何写上述程序？
麻烦以一段md5举例呗？谢谢！

Answer 1

你就是想要你的秘密 不在代码中显示出现是么？我有个方法

你用VB6.0新建一个Active DLL工程

然后在Class1中写入如下代码

Property Get Password() As String
    Password = "123456"'这里写入你要设置的密码
End Property

生成DLL后，在Excel中引用这个生成的DLL，然后你就可以在Excel中使用了，如下

Sub abc()
    Dim x As New Class1
    MsgBox x.Password
End Sub

这里的Password就是你刚才设置的密码，由于是封装在DLL中的，这里是看不到的

有什么不懂，继续追问把

追问

你好。为什么我这么弄提示错误呢？

追答

你有引用VB生成的DLL文件么？

追问

引用了啊。方便的话远程帮我看看？嘿嘿

追答

扣扣55540138