Συμβολοσειρές σύνδεσης ADO στη VBA για Microsoft SQL

ΣΎΝΟΨΗ Αυτό το άρθρο περιγράφει τις πληροφορίες που απαιτούνται για την εμφάνιση μιας
pojectneeds σε ένα συγκεκριμένο παράθυρο θα πρέπει να
ανακτηθούν μέσω μιας σύνδεσης ADO.


ΠΕΡΙΣΣΌΤΕΡΕς

ΠΛΗΡΟΦΟΡΙΕς Η πρώτη επιλογή θα ήταν να κωδικοποιήτε με κώδικα το αναγνωριστικό χρήστη, τον κωδικό πρόσβασης, το όνομα της βάσης δεδομένων και το όνομα της προέλευσης δεδομένων. Ένα παράδειγμα αυτού του ερωτήματος θα ήταν το εξής: (Αυτή η συμβολοσειρά σύνδεσης θα

ήταν όλα σε μία γραμμή στη


VBA). ConnectionString="Provider=SQLOLEDB;DSN=eEnterprise; User=sa; Password=;InitialCatalog=TWO" Το DSN θα είναι η προέλευση δεδομένων ODBC που έχει ρυθμίσει το SQL Server.In αυτό το παράδειγμα ο κωδικός


πρόσβασης είναι κενός. Ο αρχικός κατάλογος είναι το όνομα της βάσης δεδομένων όπου βρίσκονται τα δεδομένα.


Εάν δεν θέλετε να δημιουργήσετε κώδικα για αυτές τις πληροφορίες, υπάρχει ένα αρχείο dll που μπορεί να χρησιμοποιηθεί για την ανάκτηση όλων αυτών των πληροφοριών. Αυτό .dll αρχείο μπορεί να βρεθεί στο PartnerSource ή στο CustomerSource στην περιοχή "Στοιχεία λήψης" & "Ενημερώσεις | Εκδόσεις προϊόντων | Συνέχεια στις εκδόσεις προϊόντων eEnterprise | Δείγματα τροποποίησης/VBA. Το αρχείο ονομάζεται
DLL ActiveX για την ανάκτηση πληροφοριών σύνδεσης.


Το αρχείο readme που περιλαμβάνεται θα σας δείξει πώς μπορείτε να δηλώσετε τις μεταβλητές για να χρησιμοποιήσετε το αρχείο dll. Ένα παράδειγμα κώδικα θα δηλώνει μεταβλητές και, στη συνέχεια, θα χρησιμοποιεί τις μεταβλητές στη συμβολοσειρά σύνδεσης.


Dim userinfo As Object

Dim luserid As String

Dim lsqlpassword As String

Dim lintercompanyid As String Dim

lsqldatasourcename As String This code would be on a window open


event.


Ορισμός userinfo = CreateObject("RetrieveGlobals.retrieveuserinfo")

luserid = userinfo.retrieve_user()

lsqlpassword = userinfo.sql_password()

lintercompanyid = userinfo.intercompany_id()

lsqldatasourcename = userinfo.sql_datasourcename()


Στη συνέχεια, στη συμβολοσειρά σύνδεσης θα χρησιμοποιήσετε τις μεταβλητές.

(Αυτή η συμβολοσειρά .connection θα είναι όλα σε μία γραμμή στη


VBA). ConnectionString="Provider=SQLOLEDB;DSN="+lsqldatasourcename+"; UserID="+luserid+";p assword="+lsqlpassword+";Initial Catalog="+lintercompanyid Χρησιμοποιώντας αυτόν τον τύπο συμβολοσειράς σύνδεσης με το retrieve.dll, θα ανακτήσει το όνομα του χρήστη, τον κωδικό πρόσβασης, την εταιρεία στην οποία είναι συνδεδεμένος και την προέλευση δεδομένων που


χρησιμοποιεί.

Αυτό το άρθρο ήταν Αναγνωριστικό εγγράφου TechKnowledge:22116