Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic, Enterprise
Expertise: Intermediate
May 27, 1999



Building the Right Environment to Support AI, Machine Learning and Deep Learning

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 As
Long, ByVal fRequest As Integer, ByVal lpszDriver As String, ByVal
lpszAttributes As String) As Long

Function PrepareDSN(ByVal strServerName As String, ByVal strDBName As String,
ByVal strDSN As String, ByVal strDBUser As String, ByVal strDBUserPassword As
String) As Boolean
On 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 Function

    msgbox "PrepareDSN_ErrHandler::" & Err.Description
End Function
KulBhushan Sharma
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date