关于动态创建dsn时不能设置用户名和密码的解决方法

最新推荐文章于 2022-08-14 10:22:53 发布

恋曲1989

最新推荐文章于 2022-08-14 10:22:53 发布

阅读量639

点赞数

本文链接：https://blog.csdn.net/hyhemail1989/article/details/4133741

版权

在创建SQL Server的DSN时，若不设置用户名和密码会导致连接失败。通过在代码中添加' Trusted_Connection=ture'，可以实现信任连接，成功创建并连接DSN。以下为涉及的VBA代码示例：（代码内容省略）

摘要由CSDN通过智能技术生成

利用下面的代码创建SQL SERVER的DSN，不设用户名和密码就可以创建成功，但不能连接成功。使用后有报错
    Private Const ODBC_ADDDSN = 1
Private Const ODBC_CONFIGDSN = 2
Private Const vbapinull As Long = 0&
Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" _
          (ByVal hwndParent As Long, ByVal fRequest As Long, _
          ByVal lpszDriver As String, ByVal lpszAttributes As String) _
          As Long

Public Sub createdsn(sdsn As String)
Dim nret As Long
Dim sdriver As String
Dim sattributes As String
sdriver = "sql server"
sattributes = "server=(local)" & Chr$(0)
sattributes = sattributes & "DSN=" & sdsn & Chr$(0)
sattributes = sattributes & "database=student" & Chr$(0)
nret = SQLConfigDataSource(vbapinull, ODBC_ADDDSN, _
sdriver, sa