Create ODBC DSNs Dynamically

Create ODBC DSNs Dynamically

You can use Visual Basic to create ODBC Data Sources Names (DSNs) dynamically for MS SQL Server. Simply place this line in a module:

 Declare Function SQLConfigDataSource Lib "odbccp32.dll" (ByVal hwndParent AsLong, ByVal fRequest As Integer, ByVal lpszDriver As String, ByVallpszAttributes As String) As LongFunction PrepareDSN(ByVal strServerName As String, ByVal strDBName As String,ByVal strDSN As String, ByVal strDBUser As String, ByVal strDBUserPassword AsString) As BooleanOn Error GoTo error_hdl    Dim boolError As Boolean    Dim strDSNString As String    PrepareDSN = False    strDSNString = Space(MAX_BUFFER_SIZE)    strDSNString = ""    strDSNString = strDSNString & "DSN=" & strDSN & Chr(0)    strDSNString = strDSNString & "DESCRIPTION=" & "DSN Created Dynamically On " & CStr(Now) & Chr(0)    strDSNString = strDSNString & "Server=" & strServerName & Chr(0)    strDSNString = strDSNString & "DATABASE=" & strDBName & Chr(0)    strDSNString = strDSNString & Chr(0)   If Not CBool(SQLConfigDataSource(0, _                        ODBC_ADD_DSN, _                        ODBCDriverDescription, _                        strDSNString)) Then        boolError = True        Msgbox("Error in PrepareDSN::SQLConfigDataSource")   End If    If boolError Then        Exit Function    End If    PrepareDSN = True    Exit Functionerror_hdl:    msgbox "PrepareDSN_ErrHandler::" & Err.DescriptionEnd Function
See also  How to Avoid Money Transfer Scams  

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist