ADO-yhteysmerkkijonot MICROSOFT SQL:n VBA:ssa

YHTEENVETO Tässä artikkelissa kuvataan tarvittavat tiedot, jotta tietyssä ikkunassa näytettävät tiedot on noudettava

ADO-yhteyden kautta.


LISÄTIETOJA

Ensimmäinen vaihtoehto on kovakoodata käyttäjätunnus, salasana, tietokannan nimi ja tietolähteen nimi. Esimerkki tästä on seuraava:

(Tämä yhteysmerkkijono olisi kaikki yhdellä rivillä VBA:ssa)


. ConnectionString="Provider=SQLOLEDB;DSN=eEnterprise; User=sa; Password=;InitialCatalog=TWO" DSN on SQL-tietokantaan määritysten


ODBC-tietolähde Server.In tässä esimerkissä salasana on tyhjä. Alkuperäinen luettelo on sen tietokannan nimi, jossa tiedot sijaitsevat.


Jos et halua koodata näitä tietoja, voit noutaa kaikki nämä tiedot dll-tiedoston avulla. Tämä .dll löytyy PartnerSourcesta tai CustomerSourcesta Downloads & Updates -| Tuotejulkaisut-| Jatkuu eEnterprise-tuotejulkaisujen | Modifier/VBA Samples. Tiedoston nimi on
ActiveX DLL kirjautumistietojen hakemista varten.


Sisältyvästä lueminut-tiedostosta näet, miten voit määrittää muuttujat dll-tiedoston käyttöä varten. Koodiesimerkki määritisi muuttujat ja käytisi sitten muuttujia yhteysmerkkijonossa.


Dim userinfo As Object

Dim luserid As String

Dim lsqlpassword As String

Dim lintercompanyid As String Dim

lsqldatasourcename As String


Tämä koodi olisi avoimessa ikkunassa tapahtumassa.


Määritä käyttäjätiedot = CreateObject("RetrieveGlobals.retrieveuserinfo")

luserid = userinfo.retrieve_user()

lsqlpassword = userinfo.sql_password()

lintercompanyid = userinfo.intercompany_id()

lsqldatasourcename = userinfo.sql_datasourcename()


Käytä sitten muuttujia yhteysmerkkijonossa.

(Tämä .yhteysmerkkijono olisi kaikki yhdellä VBA-rivillä)


. ConnectionString="Provider=SQLOLEDB;DSN="+lsqldatasourcename+"; UserID="+luserid+";p assword="+lsqlpassword+";Initial Catalog="+lintercompanyid Kun tämäntyyppistä yhteysmerkkijonoa käytetään retrieve.dll:ssä, se noutaa käyttäjän

nimen, salasanan, yrityksen, johon käyttäjä on kirjautunut, ja tietolähde, johon käyttäjä
käyttää.

Tämä artikkeli oli TechKnowledge Document ID:22116