Comment supprimer ODBC DSN sur VBNET

Comment supprimer ODBC DSN sur VBNET


La suppression d'un nom de source de données ODBC (DSN) en utilisant Visual Basic.NET (VB.NET) peut rendre votre application plus robuste, en ne demandant pas à l'utilisateur de supprimer le DSN manuellement. Vous pouvez utiliser le "SQLConfigDataSource" pour ajouter, modifier ou supprimer un DSN. Une source de données est un nom symbolique qui représente la connexion ODBC à une source de données. Il stocke les informations de connexion, comme un nom de base de données, un répertoire ou pilote de base de données lors de la connexion à l'ODBC. Suppression d'un DSN forment l'ordinateur de l'utilisateur lorsque le DSN ne sont plus nécessaires.

Instructions

1 Lancez Microsoft Visual Studio, cliquez sur "Nouveau Projet" dans le volet gauche de l'écran de votre ordinateur, puis développez "Visual Basic" ci-dessous "Modèles installés." Cliquez sur "Windows" et double-cliquez sur "Application console" dans le centre de la fenêtre pour créer un nouveau projet de console.

2 Copiez et collez le code suivant ci-dessus "Sub Main" de déclarer la fonction "SQLConfigDataSource" et d'autres variables que vous allez utiliser pour supprimer le DSN:

Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" _

(ByVal hwndParent As Integer, ByVal ByValfRequest As Integer, ByVal lpszDriver As String, ByVal lpszAttributes As String) As Integer

Private Const vbAPINull As Integer = 0

Private Const ODBC_REMOVE_SYS_DSN = 3

3 Copiez et collez le code suivant pour supprimer votre DSN:

Dim result As Integer

Pilote Dim As String

Attributs Dim As String

Driver = "SQL Server"

Attributs = "SERVER = & lt; nom de serveur>" & Chr (0)

Attributs = Attributs et "DESCRIPTION = & lt; Description DSN>" & Chr (0)

Attributs = Attributs et "DSN = & lt; nom DSN>" & Chr (0)

Attributs = Attributs et "DATABASE = & lt; database name>" & Chr (0)

résultat = SQLConfigDataSource (vbAPINull, ODBC_REMOVE_SYS_DSN, Pilote, Attributs)

Si le résultat & lt;> 0 Then

MsgBox ( "DSN DELETED!")

Autre

MsgBox ( "suppression de DSN a échoué")

Fin si

4 Modifiez les attributs dans l'étape précédente et tapez le nom de votre serveur, description DSN, le nom DSN, et le nom de base de données. Appuyez sur F5 pour exécuter le programme et supprimer votre DSN.