| Home  | Υλικό υπολογιστών  | Δικτύωση  | Προγραμματισμός  | λογισμικό  | ερώτηση  | συστήματα  |  
Προγραμματισμός  
  • C /C + + Προγραμματισμός

  • Προγραμματισμός Υπολογιστών Γλώσσες

  • Δελφοί Προγραμματισμός

  • Προγραμματισμός Java

  • JavaScript Προγραμματισμός

  • PHP /MySQL Προγραμματισμός

  • Perl Προγραμματισμός

  • Python Προγραμματισμός

  • ρουμπίνι Προγραμματισμός

  • Visual Βασικά Προγραμματισμός
  •  
    Γνώση Υπολογιστών >> Προγραμματισμός >> Visual Βασικά Προγραμματισμός >> Content
    Πώς να δημιουργήσετε ένα 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

    » < br >

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

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

    Private Const ODBC_REMOVE_DSN = 3 'Αφαίρεση πηγή δεδομένων
    < p> Private Const vbAPINull Όπως Long = 0 & ' NULL δείκτη

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

    # Εάν WIN32 τότε

    Private Declare Function SQLConfigDataSource Lib " ODBCCP32.DLL " _ < br >

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

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

    Όπως Long

    # Else < br >

    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 Τότε < br >

    Dim intRet Όπως Long

    # Else

    Dim intRet As Integer

    # End If

    Dim strDriver As String
    < p> Dim strAttributes Όπως String

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

    strDriver = " SQL Server "

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

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

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

    strAttributes = " SERVER = SomeServer " & Chr $ ( 0 )
    < p > 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 < br >

    Η

    Previous :

    next :
      Σχετικά Άρθρα
    ·Πώς να χρησιμοποιήσετε IndexOf σε VB.NET 
    ·Visual Basic Combo Box Tutorial 
    ·Πώς να επιλέξετε αντικείμενα σε ένα πλαίσιο…
    ·Τι είναι το Visual Studio Express 
    ·Τι είναι UBound σε VB 
    ·Πώς να εγκαταστήσετε το VB Scripts Με Εκτυπωτές 
    ·Πώς να Διαγραφή Αποσύνδεση εκτυπωτή σε VBS 
    ·Πώς να δημιουργήσετε μια κατηγορία από XSD 
    ·Πώς να αναβαθμίσετε μια διαδρομή από VB6 για ν…
    ·Πώς να κάνει μια διεύθυνση URL Keygen σε VB6 
      Προτεινόμενα άρθρα
    ·Πώς να δημιουργήσετε το Java Script 
    ·Πώς να κάνει μια βασική Timer σε Java 
    ·Κάγκελα , Είδη ικριωμάτων και Δεδομένων 
    ·Πώς να κλείσει μια για Loop Χρησιμοποιώντας C +…
    ·Πώς να μετατρέψετε Υπεγράφη δεδομένων σε ASCI…
    ·Πώς να φορτώσει τα αρχεία DOC σε PHP 
    ·Πώς να Μετάβαση σε ActionScript 
    ·Αλλαγή μεγέθους Μέθοδος για την Java Applets 
    ·Τρόπος εμφάνισης Πολλαπλές Ιστογράμματα σε…
    ·Πώς να χτίσει το δικό της λογισμικό PC σας 
    Copyright © Γνώση Υπολογιστών http://el.wingwit.com