Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


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

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

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

 

 

 

 

 


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

 

 

Sitemap