Compartir a través de

Método DBEngine.RegisterDatabase (DAO)

Se aplica a: Access 2013, Office 2013

Proporciona información de conexión para un origen de datos ODBC en el Registro de Windows. El controlador ODBC necesita información de conexión cuando se abre el origen de datos ODBC durante una sesión.

Sintaxis

expresión . RegisterDatabase(Dsn, Driver, Silent, Attributes)

expression Variable que representa un objeto DBEngine.

Parameters

Nombre

Obligatorio/opcional

Tipo de datos

Descripción

Dsn

Obligatorio

String

el nombre usado en el método OpenDatabase . Se refiere a un bloque de información descriptiva sobre el origen de datos. Por ejemplo, si el origen de datos es una base de datos remota ODBC, podría ser el nombre del servidor.

Driver

Obligatorio

String

Nombre del controlador ODBC. Éste no es el nombre del archivo DLL del controlador ODBC.

Silencioso

Obligatorio

Boolean

True si no desea mostrar los cuadros de diálogo del controlador ODBC que solicitan información específica del controlador o False si desea mostrar los cuadros de diálogo del controlador ODBC. Si silent es True, los atributos deben contener toda la información específica del controlador necesaria o los cuadros de diálogo se muestran de todos modos.

Atributos

Obligatorio

String

Lista de palabras clave que se deben agregar al Registro de Windows. Las palabras clave están en una cadena delimitada por retornos de carro.

Comentarios

Si la base de datos ya está registrada (ya se ha proporcionado la información de conexión) en el Registro de Windows cuando utiliza el método RegisterDatabase, la información de conexión está actualizada.

Si el método RegisterDatabase provoca un error por algún motivo, no se han realizado cambios en el Registro de Windows y se produce un error.

Para obtener más información sobre los controladores ODBC como SQL Server, vea el archivo de Ayuda suministrado con el controlador.

Ejemplo

En este ejemplo se utiliza el método RegisterDatabase para registrar un origen de datos Microsoft SQL llamado Publishers en el Registro de Windows.

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
  • Last updated on