适用于 Microsoft 的 VBA 中的 ADO 连接字符串SQL

摘要 本文介绍通过 ADO 连接检索要显示在特定窗口的

pojecteds 所需的信息。


详细信息

第一个选项是硬编码用户 ID、密码、数据库名称和数据源名称。例如，如下所示： (此连接字符串将全部位于 VBA)




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


DSN 将是设置到 SQL Server 的 ODBC 数据源。此示例中的密码为空。初始目录是数据所在的数据库的名称。


如果不希望对此信息进行硬编码，可以使用 dll 文件来检索所有这些信息。可在.dll更新"下的 PartnerSource 或 CustomerSource 上找到&文件|产品发布|在 eEnterprise 产品发布版本中|修饰符/VBA 示例。 该文件名为 ActiveX
DLL，用于检索登录信息。


包含的自述文件将展示如何声明变量以使用 dll 文件。代码示例将声明变量，然后在连接字符串中使用这些变量。


Dim userinfo As Object

Dim luserid As String

Dim lsqlpassword As String

Dim lintercompanyid As String Dim

lsqldatasourcename As String 此代码将


位于窗口打开事件上。


将 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 文档 ID：22116