ADO ühendusstringid Microsoft SQL-i VBA-s

KOKKUVÕTE Selles artiklis kirjeldatakse teavet, mida on vaja konkreetses aknas kuvatavate

pojectneedide kuvamiseks ADO-ühenduse kaudu.


LISATEAVE.

Esimene võimalus oleks kasutaja ID, parooli, andmebaasi nime ja andmeallika nime raske koodiga kood. Näide selle kohta on järgmine:

(See ühendusstring oleks VBA-s kõigil ühel real)


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


DSN oleks ODBC andmeallikas, mis on sql-Server.In selles näites on parool tühi. Algne kataloog on selle andmebaasi nimi, kus andmed asuvad.


Kui te ei soovi seda teavet raskelt koodida, on olemas dll-fail, mida saab kasutada kogu selle teabe toomiseks. Selle .dll leiate jaotisest Allalaaditavad failid ja värskendused jaotises PartnerSource või CustomerSource & Update | Toote väljalasete | Jätkub eEnterprise'i toote väljalasete | Modifikaatori/VBA näidised. Logimisteabe toomiseks nimetatakse seda faili
ActiveX-i DLL-iks.


Kaasatav kirjutuskaitstud fail näitab, kuidas muutujaid dll-faili kasutamiseks deklareerida. Koodi näide oleks muutujate deklareerimine ja seejärel muutujate kasutamine ühendusstringis.


Dim userinfo As Object

Dim luserid As String

Dim lsqlpassword As String

Dim lintercompanyid As String

Dim lsqldatasourcename As String


See kood on avatud akna sündmusel.


Set userinfo = CreateObject("RetrieveGlobals.retrieveuserinfo")

luserid = userinfo.retrieve_user()

lsqlpassword = userinfo.sql_password()

lintercompanyid = userinfo.intercompany_id()

lsqldatasourcename = userinfo.sql_datasourcename() Seejärel kasutaks


ühendusstring muutujaid.

(See ühendusstring oleks VBA-s kõigil ühel real)


. ConnectionString="Provider=SQLOLEDB;DSN="+lsqldatasourcename+"; UserID="+luserid+";p assword="+lsqlpassword+";Initial Catalog="+lintercompanyid Seda tüüpi

ühendusstring retrieve.dll-ga toob see kasutaja nime, parooli, sisselogitud ettevõtte ja nende
andmeallika.

See artikkel oli TechKnowledge Document ID:22116