Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Visual Studio , kliknite na tlačidlo " Nový projekt " v ľavej časti okna obrazovky vášho počítača , potom rozšíriť " Visual Basic " pod " Nainštalované šablóny . " Kliknite na " Windows " a dvakrát kliknite na " Console Application " od stredu okna na vytvorenie nového projektu konzoly .
2
Skopírujte a vložte nasledujúci kód vyššie " Sub Main " vyhlásiť " SQLConfigDataSource " funkcie a ďalšie premenné , ktoré sa používajú na odstránenie 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
Kopírovanie a vkladanie nasledujúci kód odstrániť vaše DSN :
Dim výsledok As Integer
Dim ovládači As String Dim
Atribúty As String
driver = " SQL Server "
Atribúty = " SERVER = Atribúty = atribúty a " DESCRIPTION = Atribúty = atribúty a " DSN = Atribúty = Atribúty & " database = < názov " & Chr ( 0 ) výsledok = SQLConfigDataSource ( vbAPINull , ODBC_REMOVE_SYS_DSN , Driver , atribúty ) Ak výsledok < > 0 Then MsgBox ( " DSN odstránený ! " ) Else MsgBox ( " odstránenie DSN Failed " ) End If upravte atribúty v predchádzajúcom kroku a zadajte názov servera , DSN popis , názov DSN , a názov databázy . Stlačením klávesu F5 spustiť program a zmazať DSN .
4