Cómo eliminar ODBC DSN en VBnet

Eliminación de un nombre de origen de datos ODBC (DSN ) utilizando Visual Basic.NET ( VB.NET ) puede hacer que su aplicación sea más robusto , al no requerir que el usuario elimine el DSN manualmente. Usted puede utilizar el " SQLConfigDataSource " para añadir , modificar o borrar un DSN. Un DSN es un nombre simbólico que representa la conexión ODBC a una fuente de datos. Almacena los datos de conexión , como el nombre de base de datos, directorios, o el controlador de base de datos al realizar la conexión con el ODBC. Quitar un formulario DSN el ordenador del usuario cuando ya no se necesita el DSN. Cosas que necesitará
Microsoft Visual Studio
Ver Más instrucciones
1

lanzamiento Microsoft Visual Studio , haga clic en "Nuevo proyecto " en el panel izquierdo de la pantalla del ordenador , a continuación, ampliar " Plantillas instaladas . " abajo " Visual Basic" Haga clic en "Windows " y haga doble clic en " Aplicación de consola " en el centro de la ventana para crear un nuevo proyecto de consola .
2

Copia y pega el siguiente código anterior " Sub Main " para declarar la " SQLConfigDataSource "Función y otras variables que va a utilizar para eliminar el DSN:

Private función declare SQLConfigDataSource Lib" ODBCCP32.DLL "_

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

Private Const vbAPINull As Integer = 0

Private Const ODBC_REMOVE_SYS_DSN = 3
3

Copiar y pegar el siguiente código para eliminar el DSN:

resultado Dim As
controlador Dim

Integer como secuencia

Atributos Dim As String

Driver = "SQL Server"

Atributos = "server =

Atributos Atributos = & " DESCRIPTION = " & Chr ( 0 )
< p> Atributos Atributos y = " DSN =

= Atributos Atributos y " BASE DE DATOS = " & Chr ( 0 )

resultado = SQLConfigDataSource ( vbAPINull , ODBC_REMOVE_SYS_DSN , Conductor, atributos )

si el resultado < > 0 Entonces

MsgBox ( " DSN eliminado!" )

demás

MsgBox ( " No se pudo eliminar DSN " )

End If
4

Editar los atributos en el paso anterior y escriba el nombre del servidor , Descripción de DSN , el nombre del DSN, y el nombre de base de datos. Presione F5 para ejecutar el programa y eliminar el DSN.