RegisterDatabase Method Example

This example uses the RegisterDatabase method to register a Microsoft SQL Server data source named Publishers in the Windows Registry.

Using the Windows ODBC Control Panel icon is the preferred way to create, modify, or delete data source names.

Sub RegisterDatabaseX()

   Dim dbsRegister As Database
   Dim strDescription As String
   Dim strAttributes As String
   Dim errLoop As Error

   ' Build keywords string.
   strDescription = InputBox( "Enter a description " & _
      "for the database to be registered.")
   strAttributes = "Database=pubs" & _
      vbCr & "Description=" & strDescription & _
      vbCr & "OemToAnsi=No" & _
      vbCr & "Server=Server1"

   ' Update Windows Registry.
   On Error GoTo Err_Register
   DBEngine.RegisterDatabase "Publishers", "SQL Server", _
      True, strAttributes
   On Error GoTo 0

   MsgBox "Use regedit.exe to view changes: " & _
      "HKEY_CURRENT_USER\" & _
      "Software\ODBC\ODBC.INI"

   Exit Sub

Err_Register:

   ' Notify user of any errors that result from
   ' the invalid data.
   If DBEngine.Errors.Count > 0 Then
      For Each errLoop In DBEngine.Errors
         MsgBox "Error number: " & errLoop.Number & _
            vbCr & errLoop.Description
      Next errLoop
   End If

   Resume Next

End Sub