Come eliminare DSN ODBC su VBnet

May 23

Come eliminare DSN ODBC su VBnet


Eliminazione di un nome di origine dati ODBC (DSN) utilizzando Visual Basic.NET (VB.NET) può rendere l'applicazione più robusto, non richiedendo all'utente di eliminare il DSN manualmente. È possibile utilizzare il "SQLConfigDataSource" per aggiungere, modificare o eliminare un DSN. Un DSN è un nome simbolico che rappresenta la connessione ODBC a un'origine dati. Memorizza i dettagli della connessione, ad esempio un nome di database, directory o driver del database quando si effettua il collegamento con il ODBC. Rimuovere un DSN forma computer dell'utente quando non è più necessario il DSN.

istruzione

1 Avviare Microsoft Visual Studio, fare clic su "New Project" dal riquadro sinistro dello schermo del computer, quindi espandere "Visual Basic" sotto "Modelli installati." Fai clic su "Windows" e fare doppio clic su "Applicazione Console" dal centro della finestra per creare un nuovo progetto di console.

2 Copiare e incollare il seguente codice sopra "Sub Main" per dichiarare la funzione "SQLConfigDataSource" e altre variabili che si utilizzeranno per eliminare il 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 Copiare e incollare il seguente codice per rimuovere il DSN:

Dim result As Integer

Autista Dim As String

Attributi Dim come stringa

Driver = "SQL Server"

Attributi = "server = & lt; nome server>" & Chr (0)

Attributi = Attributi & "DESCRIZIONE = & lt; Descrizione DSN>" & Chr (0)

Attributi = Attributi & "DSN = & lt; nome DSN>" & Chr (0)

Attributi = Attributi & "DATABASE = & lt; il nome del database>" & Chr (0)

risultato = SQLConfigDataSource (vbAPINull, ODBC_REMOVE_SYS_DSN, Autista, attributi)

Se il risultato & lt;> 0 Then

MsgBox ( "DSN CANCELLATO!")

Altro

MsgBox ( "eliminazione DSN non riuscita")

Finisci se

4 Modificare gli attributi nel passaggio precedente e digitare il nome del server, descrizione DSN, il nome DSN e il nome del database. Premere F5 per eseguire il programma ed eliminare il DSN.