Slik sletter ODBC DSN på VBnet

Slette en ODBC-datakildenavn (DSN) ved hjelp av Visual Basic.NET (VB.NET) kan gjøre programmet mer robust, ved ikke å kreve at brukeren slette DSN manuelt. Du kan bruke "SQLConfigDataSource" for å legge til, endre eller slette en DSN. En DSN er et symbolsk navn som representerer ODBC tilkobling til en datakilde. Den lagrer tilkoblingsopplysningene som et databasenavn, katalog, eller databasedriveren ved tilkobling til ODBC. Fjern en DSN danne brukerens datamaskin når DSN er ikke lenger nødvendig.

Bruksanvisning

1 Start Microsoft Visual Studio, klikk på "New Project" fra ruten til venstre på skjermen, og deretter utvide "Visual Basic" under "Installerte maler." Klikk på "Windows" og dobbeltklikk på "Console Application" fra midten av vinduet for å opprette en ny konsoll prosjekt.

2 Kopier og lim inn følgende kode over "Sub Main" å erklære "SQLConfigDataSource" -funksjonen og andre variabler du vil bruke til å slette 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 Kopier og lim inn følgende kode for å fjerne DSN:

Dim result As Integer

Dim Driver As String

Dim attributter As String

Driver = "SQL Server"

Attributter = "SERVER = & lt; servernavn>" & Chr (0)

Attributter = Attributter & "DESCRIPTION = & lt; DSN description>" & Chr (0)

Attributter = Attributter & "DSN = & lt; DSN navn>" & Chr (0)

Attributter = Attributter & "DATABASE = & lt; databasenavn>" & Chr (0)

Resultatet = SQLConfigDataSource (vbAPINull, ODBC_REMOVE_SYS_DSN, Driver, attributter)

Hvis resultatet & lt;> 0 Then

MsgBox ( "DSN SLETTET!")

Ellers

MsgBox ( "slette DSN mislyktes")

Slutt om

4 Rediger attributtene i forrige trinn, og skriv inn navnet på serveren din, DSN beskrivelse, DSN navn, og databasenavn. Trykk F5 for å kjøre programmet og slette DSN.