Come eliminare ODBC DSN su VBnet

Eliminazione di un nome di origine dati ODBC ( DSN ) utilizzando Visual Basic.NET ( VB.NET ) può rendere l'applicazione più robusta , non richiedendo all'utente di eliminare il DSN manualmente . È possibile utilizzare la " SQLConfigDataSource " per aggiungere , modificare o eliminare un DSN . Un DSN è un nome simbolico che rappresenta la connessione ODBC a un'origine dati . Esso memorizza i dettagli di connessione , come un nome di database , directory , o il driver di database quando si effettua il collegamento con il provider ODBC. Rimuovere un modulo DSN computer dell'utente quando il DSN non è più necessaria . Cose che ti serviranno
Microsoft Visual Studio
Mostra più istruzioni
1

lancio di Microsoft Visual Studio , fare clic su " Nuovo Progetto" dal riquadro sinistro dello schermo del computer , quindi espandere " Visual Basic " " Modelli installati . " qui sotto Fare clic su "Windows" e fare doppio clic su " Applicazione console " dal centro della finestra per creare un nuovo progetto console .
2

Copia e incolla il seguente codice sopra " Sub Main " di dichiarare il " SQLConfigDataSource "Funzione e altre variabili che si intende utilizzare per eliminare il DSN :

private Declare Function SQLConfigDataSource Lib " Odbccp32.dll "_

( hwndParent ByVal As Integer , ByVal ByValfRequest As Integer , ByVal lpszDriver come stringa, lpszAttributes ByVal come stringa) come Integer

privato Const vbAPINull As Integer = 0

privato Const ODBC_REMOVE_SYS_DSN = 3
3

Copia e incolla il codice riportato di seguito per rimuovere il DSN :

Dim risultato As Integer Dim

driver come String

Dim Attributi As String

driver = " SQL Server "
Attributi

= "server = Attributes = Attributi & "DESCRIZIONE = " & Chr ( 0 ) per

Attributes = Attributi & " DSN = " & Chr ( 0 ) per

Attributes = Attributi & " DATABASE = risultato = SQLConfigDataSource ( vbAPINull , ODBC_REMOVE_SYS_DSN , Driver , attributi ) per

risultato < > 0 Then

MsgBox (" DSN cancellato! " ) per

Else

MsgBox ( "eliminazione DSN non riuscito" ) per

End If
4

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

• Come scrivere codice per una tangente in VB.NET 
• Come ruotare un'immagine con Classe Matrix in Vb.Net