Radera en ODBC namn datakälla ( 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 radera 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 den ODBC-anslutning till en datakälla . Den lagrar anslutningsinformation , t.ex. en databas namn , katalog eller databas föraren när du gör anslutningen till ODBC . Ta bort en DSN formulär användarens dator när DSN inte längre behövs . Saker du behöver
Microsoft Visual Studio
Visa fler instruktioner
1
Launch Microsoft Visual Studio , klicka på " Nytt projekt " från den vänstra rutan på din datorskärm , då expandera " 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 ovanför " Sub Main" att förklara " SQLConfigDataSource " funktion och andra variabler som du använder för att ta bort 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
Kopiera och klistra in följande kod för att ta bort din DSN :
Dim resultat As Integer
Dim Driver As String
Dim attribut As String
Driver = " SQL Server "
attribut = " server = " & Chr ( 0 ) katalog Attributes = Attribut & " DESCRIPTION = " & Chr ( 0 ) katalog Egenskaper = Attribut & " DSN = " & Chr ( 0 ) katalog Attributes = Attribut & " DATABASE = " & Chr ( 0 ) katalog resultatet = SQLConfigDataSource ( vbAPINull , ODBC_REMOVE_SYS_DSN , Driver , attribut ) katalog p Om resultatet < > 0 Then
MsgBox ( " DSN borttagen! " ) katalog
Else
MsgBox ( " bort DSN Failed " ) katalog
End If
4
Redigera attributen i föregående steg och skriv namnet på din server , DSN beskrivning , DSN namn , och databas namn . Tryck på F5 för att köra programmet och radera din DSN .
