Πώς να δημιουργήσετε ένα DSN Χρησιμοποιώντας ένα κώδικα API

Μια DSN είναι ένα σύνολο οδηγιών που χρησιμοποιείται για τη σύνδεση με εξωτερικές βάσεις δεδομένων . DSNs περιέχουν δομές δεδομένων που περιγράφουν τη σύνδεση με τη βάση δεδομένων , όπως το όνομα της βάσης δεδομένων , τη θέση , το όνομα χρήστη και τον κωδικό πρόσβασης για τη σύνδεση με τη βάση δεδομένων . Οι διαχειριστές συστήματος μπορούν να δημιουργήσουν τα DSN χρησιμοποιώντας το εργαλείο ODBC Διαχειριστής στον πίνακα ελέγχου των Windows . Οι προγραμματιστές μπορούν να δημιουργήσουν δομές δεδομένων DSN χρησιμοποιώντας μια γλώσσα προγραμματισμού όπως η Visual Basic και το API των Windows . Δημιουργία DSNs χρησιμοποιώντας VB και το API των Windows απαιτεί κάποια γνώση αυτών των εννοιών , αλλά αφού έχετε αποκτήσει αυτή τη γνώση , απαιτεί απλά μερικά βήματα και γραμμές κώδικα . Οδηγίες
Η 1

Ανοίξτε Visual Basic 6 . 2

Επιλέξτε "Standard EXE " από τη νέα λίστα των έργων . Αυτό θα τοποθετήσει ένα κύριο έντυπο VB στην οθόνη , καθώς και να εμφανίσετε το VB εργαλειοθήκη .
Εικόνων 3

Επιλέξτε " κουμπί" από το Vlaams Belang εργαλειοθήκη και αφήστε το πάνω κύριο έντυπο VB σας . Αυτό θα τοποθετήσει ένα κουμπί εντολής σε φόρμα σας .
Η 4

Πήγαινε στην κορυφή γραμμή μενού , κάντε κλικ στο " Project" και , στη συνέχεια, κάντε κλικ στην επιλογή " Προσθήκη Module . " Αυτό θα προσθέσει μια τυπική λειτουργική μονάδα κώδικα στο έργο VB6 σας
5

Πληκτρολογήστε ή αντιγράψτε και επικολλήστε τον παρακάτω κώδικα : . Σταθερή Δήλωση

Option Explicit

»

Private Const ODBC_ADD_DSN = 1 'Προσθήκη προέλευσης δεδομένων

Private Const ODBC_CONFIG_DSN = 2 ' Configure ( edit ) πηγή δεδομένων

Private Const ODBC_REMOVE_DSN = 3 'Αφαίρεση πηγή δεδομένων

Private Const vbAPINull Όπως Long = 0 & ' NULL δείκτη

« Λειτουργία κηρύξει

# Εάν WIN32 τότε

Private Declare Function SQLConfigDataSource Lib " ODBCCP32.DLL " _

( ByVal hwndParent Όπως Long , ByVal fRequest Όπως Long , _

ByVal lpszDriver Όπως String , ByVal lpszAttributes Όπως String ) _

Όπως Long

# Else

Private Declare Function SQLConfigDataSource Lib " ODBCINST.DLL " _

( ByVal hwndParent As Integer , ByVal fRequest As Integer , ByVal _

lpszDriver Όπως String , ByVal lpszAttributes Όπως String ) Όπως Integer

# End If

6

επιστροφή στο κύριο έντυπο VB σας και κάντε διπλό κλικ στο κουμπί εντολής . Αυτό θα ανοίξει κάντε κλικ στο κουμπί διαδικασία συμβάντος κουμπιού εντολής
Η 7

Πληκτρολογήστε ή αντιγράψτε και επικολλήστε το ακόλουθο τμήμα κώδικα στο μεταξύ Private Sub Command_button1 και End Sub : .

# Εάν WIN32 Τότε

Dim intRet Όπως Long

# Else

Dim intRet As Integer

# End If

Dim strDriver As String

Dim strAttributes Όπως String

« Ρυθμίστε τον οδηγό για τον SQL Server , επειδή είναι η πιο κοινή .

strDriver = " SQL Server "

« Ορίστε τα χαρακτηριστικά που οριοθετείται από null .

» , ανατρέξτε στην τεκμηρίωση του προγράμματος οδήγησης για μια πλήρη

« λίστα των υποστηριζόμενων χαρακτηριστικών .

strAttributes = " SERVER = SomeServer " & Chr $ ( 0 )

strAttributes = strAttributes & " ΠΕΡΙΓΡΑΦΗ = Temp DSN " & Chr $ ( 0 )

strAttributes = strAttributes & " DSN = DSN_TEMP " & Chr $ ( 0 )

strAttributes = strAttributes & " ΒΑΣΗ ΔΕΔΟΜΕΝΩΝ = παμπ " & Chr $ ( 0 )

« Να δείξουμε διαλόγου , χρησιμοποιήστε Form1.Hwnd αντί vbAPINull .

intRet = SQLConfigDataSource ( vbAPINull , ODBC_ADD_DSN , _

strDriver , strAttributes )

Εάν intRet τότε

MsgBox " DSN Δημιουργήθηκε "

Else

MsgBox " Δημιουργία απέτυχε "

End If


Η