Freigeben über


DBEngine.RegisterDatabase-Methode (DAO)

Gilt für: Access 2013, Office 2013

Gibt Verbindungsinformationen für eine ODBC-Datenquelle in die Windows-Registrierung ein. Der ODBC-Treiber benötigt Verbindungsinformationen, wenn die ODBC-Datenquelle während einer Sitzung geöffnet wird.

Syntax

Ausdruck . RegisterDatabase(Dsn, Driver, Silent, Attributes)

Ausdruck Eine Variable, die ein DBEngine-Objekt darstellt.

Parameter

Name

Erforderlich/optional

Datentyp

Beschreibung

Dsn

Erforderlich

String

der name, der in der OpenDatabase-Methode verwendet wird. Er verweist auf einen Block mit beschreibenden Informationen zur Datenquelle. Ist die Datenquelle beispielsweise eine ODBC-Remote-Datenquelle, könnte diese der Name des Servers sein.

Driver

Erforderlich

String

Der Name des ODBC-Treibers. Er entspricht nicht dem Namen der DLL-Datei des ODBC-Treibers.

Automatisch

Erforderlich

Boolean

True , wenn Sie die Dialogfelder des ODBC-Treibers, die zur Eingabe von treiberspezifischen Informationen auffordern, nicht anzeigen möchten. oder False , wenn Sie die Dialogfelder des ODBC-Treibers anzeigen möchten. Wenn silent auf True festgelegt ist, müssen Attribute alle erforderlichen treiberspezifischen Informationen enthalten, oder die Dialogfelder werden trotzdem angezeigt.

Attribute

Erforderlich

String

Eine Liste der Schlüsselwörter, die zur Windows-Registrierung hinzugefügt werden sollen. Die Schlüsselwörter sind in Zeichenfolgen enthalten, die durch Wagenrücklaufzeichen getrennt sind.

Hinweise

Ist die Datenbank beim Verwenden der RegisterDatabase-Methode bereits in der Windows-Registrierung registriert (Verbindungsinformationen wurden eingegeben), werden die Verbindungsinformationen aktualisiert.

Wenn die RegisterDatabase-Methode fehlschlägt, werden keine Änderungen in der Windows-Registrierung vorgenommen, und es tritt ein Fehler auf.

Weitere Informationen zu ODBC-Treibern wie SQL Server finden Sie in der vom Treiber bereitgestellten Hilfedatei.

Beispiel

In diesem Beispiel wird die RegisterDatabase-Methode verwendet, um eine Microsoft SQL Server-Datenquelle namens Publishers in der Windows-Registrierung zu erfassen.

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