מחרוזות חיבור ADO ב- VBA עבור Microsoft SQL

סיכום מאמר זה מתאר את המידע הדרוש להצגה של
pojectneeds בחלון מסוים, יהיה צורך
לאחזר באמצעות חיבור ADO.


מידע נוסף

האפשרות הראשונה תהיה לקוד קשיחהמזהה של המשתמש, הסיסמה, שם מסד הנתונים ואת שם מקור הנתונים. דוגמה לכך תהיה כדלקמן: (מחרוזת חיבור זו תהיה בשורה אחת

ב- VBA)


. ConnectionString="Provider=SQLOLEDB;DSN=eEnterprise; User=sa; Password=;InitialCatalog=TWO"


ה- DSN יהיה מקור הנתונים של ODBC ההגדרה ל- SQL Server. בדוגמה זו, הסיסמה ריקה. הקטלוג ההתחלתי הוא שם מסד הנתונים שבו ממוקמים הנתונים.


אם אינך מעוניין בקוד קשיח של מידע זה, קיים קובץ dll שברצונך להשתמש בו כדי לאחזר את כל המידע הזה. ניתן .dll קובץ זה ב- PartnerSource או CustomerSource תחת הורדות & עדכונים | מהדורות מוצרים | המשך ב- eEnterprise Product releases | דוגמאות של מותאם/VBA. הקובץ נקרא קובץ
ActiveX DLL לאחזור פרטי כניסה.


קובץ ה- Readme הכלול יראה לך כיצד להצהיר על המשתנים לשימוש בקובץ ה- dll. דוגמה של קוד תכריז על משתנים ולאחר מכן תשתמש במשתנים במחרוזת החיבור.


Dim userinfo As

Object Dim luserid כמחרוזת

Dim lsqlpassword כמחרוזת

Dim lintercompanyid כמחרוזת

Dim lsqldatasourcename As String קוד


זה יהיה באירוע פתוח של חלון.


Set 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