BUG: RegisterDatabase Fails After ODBC Version 2.x Installed

WORKAROUND

Step-by-Step Example

1. In Visual Basic, create a new module with the following declarations:

      Option Explicit
      Const ODBC_ADD_DSN = 1        ' Add a new data source.
      Const ODBC_CONFIG_DSN = 2     ' Configure (edit) existing data source.
      Const ODBC_REMOVE_DSN = 3     ' Remove existing data source.
   
      ' Enter the following three lines as one, single line:
   
      Declare Function SQLConfigDataSource Lib "odbcinst.dll"
         (ByVal hwnd as Integer, ByVal fRefresh as Integer,
         ByVal szDriver as String, ByVal szAttributes as String) As Integer
   
   						

2. Create the following procedure.

      ' Enter the following two lines as one, single line of code:
      Sub RegisterODBCDatabase (dsn As String, driver As String,
         silent As Integer, attributes As String)
   
         Dim ret As Integer
         On Error GoTo errorhandler
   
         RegisterDatabase dsn, driver, silent, attributes
      Exit Sub
   
   errorhandler:
   
      If Err = 3146 Then    ' ODBC Call Failed.
         Dim temp As String
         Dim spot As Integer
   
         While InStr(attributes, Chr(13))     ' Replace Carriage returns
            spot = InStr(attributes, Chr(13)) ' with nulls.
            Mid(attributes, spot, 1) = Chr(0)
         Wend
         attributes = attributes & Chr(0) & Chr(0) ' End of attribute section.
         temp = "DSN=" & dsn & Chr(0) & attributes
   
         ret = SQLConfigDataSource(0, ODBC_ADD_DSN, driver, temp)
   
         ' ret is equal to 1 on success and 0 if there is an error.
         If ret <> 1 Then
            MsgBox "SQLConfigDataSource call failed"
         Else
            MsgBox " SQLConfigDataSource call succeeded!"
         End If
      End If
      Exit Sub
      End Sub
   
   						

3. To test this procedure, press the F8 key to single step. Then activate the Debug window from the Window menu. Type the following, and press the ENTER key:
   
   RegisterODBCDatabase "Pubs", "SqlServer", "True, Att$