ADO jungimosi eilutės VBA, skirtame "Microsoft SQL"

SANTRAUKA Šiame straipsnyje aprašoma informacija, reikalinga, kad
pojectneeds būtų rodomi konkrečiame lange, turės būti gauta
per ADO ryšį.


DAUGIAU INFORMACIJOS Pirmoji parinktis būtų sunku kodą

vartotojo ID, Slaptažodis, Duomenų bazės pavadinimas ir Duomenų šaltinio pavadinimas. To pavyzdys būtų toks: (Ši jungimosi eilutė būtų

vienoje VBA eilutėje)


. ConnectionString="Provider=SQLOLEDB;DSN=eEnterprise; User=sa; Password=;InitialCatalog=TWO" DSN būtų ODBC duomenų šaltinis, kuris yra


SQL duomenų Server.In šiame pavyzdyje slaptažodis tuščias. Pradinis katalogas yra duomenų bazės, kurioje yra duomenys, pavadinimas.


Jei nenorite, kad ši informacija būtų sunku kodą, yra dll failas, kurį galima naudoti norint gauti visą šią informaciją. Šį .dll galima rasti "PartnerSource" arba "CustomerSource" dalyje Atsisiuntimai ir & naujinimai | Produktų leidimų | Tęsinys "eEnterprise" produktų leidimuose | Modifikatoriaus / VBA pavyzdžiai. Failas vadinamas
"ActiveX DLL" prisijungimo informacijai gauti.


Įtrauktas readme failas parodys, kaip paskelbti kintamuosius dll failui naudoti. Kodo pavyzdys paskelbtų kintamuosius ir tada jungimosi eilutėje naudos kintamuosius.


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.


Set userinfo = CreateObject("RetrieveGlobals.retrieveuserinfo")

luserid = userinfo.retrieve_user()

lsqlpassword = userinfo.sql_password()

lintercompanyid = userinfo.intercompany_id()

lsqldatasourcename = userinfo.sql_datasourcename() Tada

jungimosi eilutėje naudosite
kintamuosius.

(Ši .jungimosi eilutė būtų vienoje VBA eilutėje)


. ConnectionString="Provider=SQLOLEDB;DSN="+lsqldatasourcename+"; UserID="+luserid+";p assword="+lsqlpassword+";Initial Catalog="+lintercompanyid Naudojant šio tipo


jungimosi eilutę su "retrieve.dll", bus atgautas vartotojo vardas, slaptažodis, įmonė, prie kurios jie prisijungę, ir duomenų šaltinis, kurį jie naudoja.

Šis straipsnis buvo "TechKnowledge" dokumento ID:22116