DBEngine.RegisterDatabase, méthode (DAO)

S’applique à : Access 2013, Office 2013

Entre les informations de connexion pour une source de données ODBC dans le Registre Windows. Le pilote ODBC a besoin des informations de connexion lorsque la source de données ODBC est ouverte au cours d’une session.

Syntaxe

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

expression Variable représentant un objet DBEngine.

Paramètres

Nom	Obligatoire/facultatif	Type de données	Description
Dsn	Obligatoire	String	nom utilisé dans la méthode OpenDatabase . Il désigne un bloc d’informations descriptives se rapportant à la source de données. Par exemple, si la source de données est une base de données distante ODBC, il peut s’agir du nom du serveur.
Driver	Obligatoire	String	Nom du pilote ODBC. Il ne s'agit pas du fichier DLL du pilote ODBC.
Silencieux	Obligatoire	Boolean	True si vous ne souhaitez pas afficher les boîtes de dialogue du pilote ODBC, qui invitent à saisir des informations spécifiques au pilote, ou False si vous souhaitez les afficher. Si silent a la valeur True, les attributs doivent contenir toutes les informations nécessaires spécifiques au pilote ou les boîtes de dialogue s’affichent quand même.
Attributs	Obligatoire	String	Liste de mots clés à ajouter au registre Windows. Les mots clés se trouvent dans une chaîne délimitée par des retours chariot.

Remarques

Si la base de données est déjà enregistrée (les informations de connexion sont déjà entrées) dans le registre Windows lorsque vous utilisez la méthode RegisterDatabase, les informations de connexion sont mises à jour.

Si la méthode RegisterDatabase échoue pour une raison ou une autre, aucune modification n'est apportée au registre Windows, et une erreur se produit.

Pour plus d'informations sur les pilotes ODBC comme SQL Server, reportez-vous au fichier d'aide fourni avec le pilote.

Exemple

Cet exemple utilise la méthode RegisterDatabase pour enregistrer une source de données Microsoft SQL Server appelée Éditeurs dans le registre 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