Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
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