Πώς να Διαγραφή ODBC DSN για vbnet

Διαγραφή ODBC όνομα προέλευσης δεδομένων ( DSN ) χρησιμοποιώντας το Visual Basic.NET ( VB.NET ) μπορεί να κάνετε την αίτησή σας πιο ισχυρή , με το να μην απαιτείται από το χρήστη να διαγράψετε το DSN με το χέρι . Μπορείτε να χρησιμοποιήσετε το " SQLConfigDataSource " για να προσθέσετε , να τροποποιήσετε ή να διαγράψετε ένα DSN . Μια DSN είναι ένα συμβολικό όνομα που αντιπροσωπεύει τη σύνδεση ODBC σε μια πηγή δεδομένων . Αποθηκεύει τις λεπτομέρειες σύνδεσης , όπως το όνομα της βάσης δεδομένων , καταλόγου , ή το πρόγραμμα οδήγησης της βάσης δεδομένων όταν κάνετε τη σύνδεση με το ODBC . Αφαιρέστε ένα DSN μορφή υπολογιστή του χρήστη όταν το DSN δεν είναι πλέον απαραίτητη . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Studio
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

την εφαρμογή Microsoft Visual Studio , κάντε κλικ στο " New Project" από το αριστερό τμήμα του παραθύρου της οθόνης του υπολογιστή σας , στη συνέχεια, επεκτείνουν " Visual Basic " κάτω " εγκατεστημένα πρότυπα . " Κάντε κλικ στο "Windows" και κάντε διπλό κλικ στο " Εφαρμογή κονσόλας " από το κέντρο του παραθύρου για να δημιουργήσετε ένα νέο έργο της κονσόλας . 2

αντιγραφή και επικόλληση του παρακάτω κώδικα πάνω από το " Sub Main " για να κηρύξει την " SQLConfigDataSource " λειτουργία και άλλες μεταβλητές που θα χρησιμοποιήσετε για να διαγράψετε το DSN :

Private Declare Function SQLConfigDataSource Lib " ODBCCP32.DLL " _

( ByVal hwndParent As Integer , ByVal ByValfRequest As Integer , ByVal lpszDriver Όπως String , ByVal lpszAttributes Όπως String ) As Integer

Private Const vbAPINull As Integer = 0

Private Const ODBC_REMOVE_SYS_DSN = , 3 φωτογραφίες 3

Αντιγραφή και επικόλληση τον ακόλουθο κώδικα για να αφαιρέσετε το DSN :

Dim αποτέλεσμα As Integer

Dim Driver Όπως Χαρακτηριστικά String

Dim Όπως String

Driver = " SQL Server"

Χαρακτηριστικά = " SERVER = " & Chr ( 0 )

Χαρακτηριστικά = Χαρακτηριστικά & " ΠΕΡΙΓΡΑΦΗ = " & Chr ( 0 )

Χαρακτηριστικά = Χαρακτηριστικά & " DSN = " & Chr ( 0 )

Χαρακτηριστικά = Χαρακτηριστικά & " DATABASE = " & Chr ( 0 )

αποτέλεσμα = SQLConfigDataSource ( vbAPINull , ODBC_REMOVE_SYS_DSN , οδηγού, Χαρακτηριστικά )

Αν το αποτέλεσμα <> 0 τότε

MsgBox ( " DSN διαγραφεί! " )

υπόλοιπα

MsgBox ( " διαγραφή DSN Failed" )

End If
Η

4 Επεξεργαστείτε τα χαρακτηριστικά στο προηγούμενο βήμα και πληκτρολογήστε το όνομα του διακομιστή σας , την περιγραφή DSN , το όνομα του DSN , και το όνομα της βάσης δεδομένων . Πατήστε F5 για να εκτελέσετε το πρόγραμμα και να διαγράψετε το DSN .
Η
εικόνων