如何自动添加、删除ODBC（SQL）

最新推荐文章于 2025-01-12 23:34:25 发布

原创最新推荐文章于 2025-01-12 23:34:25 发布 · 1.9k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#sql #string #sql server #integer #class

技术、IT 专栏收录该内容

96 篇文章

订阅专栏

本文介绍了一个使用Visual Basic编写的ODBC数据源名称(DSN)创建与删除的示例程序。通过调用SQLConfigDataSource函数实现系统级DSN的增删操作，并详细展示了配置SQL Server类型的DSN所需的参数设置。

Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL"(Byval hwndParent As Long,Byval fRequest As Long,Byval lpszDriver As String,Byval lpszAttributes As String) As Long

Private Const ODBC_ADD_DSN = 1
Private Const ODBC_CONFIG_DSN = 2
Private Const ODBC_REMOVE_DSN = 3
Private Const ODBC_ADD_SYS_DSN = 4
Private Const ODBC_REMOVE_SYS_DSN = 6
Private Const lhyApi = 0&

Class ODBC_Class

   Sub new()

    End Sub

    Public Function CreateDSN (sDSN As String,serverName As String ,dbName As String) As Integer
        On Error Resume Next

        Dim nRet As Long
        Dim sDriver As String
        Dim sAttributes As String

        sDriver = "SQL server"

        sAttributes = "DSN=" & sDSN & Chr(0)
        sAttributes = sAttributes & "Server=" & serverName & Chr(0)
        sAttributes = sAttributes & "Database=" & dbName & Chr(0)

        nRet = SQLConfigDataSource(lhyApi,ODBC_ADD_SYS_DSN,sDriver,sAttributes)

        If nRet <> 1 Then
            CreateDSN = False
        Else
            CreateDSN = True
        End If


    End Function

    Public Function DeleteDSN(sDSN As String) As Integer
        On Error Resume Next

        Dim nRet As String
        Dim sDriver As String
        Dim sAttributes As String

        sDriver = "SQL server"
        sAttributes = "DSN=" & sDSN & Chr(0)

        nRet = SQLConfigDataSource(lhyApi , ODBC_REMOVE_SYS_DSN,sDriver,sAttributes)

        If nRet <> 1 Then
            DeleteDSN = False
        Else
            DeleteDSN = True
        End If
    End Function

End Class