Ta bort ODBC DSN på VBnet

Ta bort en ODBC-datakälla namn (DSN) med hjälp av Visual Basic.NET (VB.NET) kan göra din ansökan mer robust, genom att inte kräva att användaren bort DSN manuellt. Du kan använda "SQLConfigDataSource" för att lägga till, ändra eller ta bort en DSN. En DSN är ett symboliskt namn som representerar ODBC-anslutning till en datakälla. Den lagrar information anslutnings såsom ett databasnamn, katalog eller databas förare när du gör anslutningen till ODBC. Ta en DSN bildar användarens dator när inte längre behövs DSN.

Instruktioner

1 Starta Microsoft Visual Studio, klicka på "New Project" från den vänstra delen av skärmen, expandera sedan "Visual Basic" under "Installerade mallar." Klicka på "Windows" och dubbelklicka på "Console Application" från mitten av fönstret för att skapa en ny konsol projekt.

2 Kopiera och klistra in följande kod över "Sub Main" att förklara "SQLConfigDataSource" funktion och andra variabler som du kommer att använda för att ta bort DSN:

Privat Declare Function SQLConfigDataSource Lib "Odbccp32.dll" _

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

Privat Const vbAPINull As Integer = 0

Privat Const ODBC_REMOVE_SYS_DSN = 3

3 Kopiera och klistra in följande kod för att ta bort DSN:

Dim result As Integer

Dim Driver As String

Dim attribut As String

Driver = "SQL Server"

Attribut = "SERVER = & lt; servernamn>" & Chr (0)

Attribut = Egenskaper & "DESCRIPTION = & lt; DSN beskrivning>" & Chr (0)

Attribut = Egenskaper & "DSN = & lt; DSN namn>" & Chr (0)

Attribut = Egenskaper & "DATABASE = & lt; databasnamn>" & Chr (0)

resultat = SQLConfigDataSource (vbAPINull, ODBC_REMOVE_SYS_DSN, Driver, attribut)

Om resultatet & lt;> 0 Then

MsgBox ( "DSN bort!")

Annan

MsgBox ( "radera DSN misslyckades")

End If

4 Redigera attributen i det föregående steget och skriva namnet på servern, DSN beskrivning, DSN namn och databasnamn. Tryck på F5 för att köra programmet och ta bort DSN.