使用 VBA 脚本连接到 Microsoft Dynamics GP 使用的 SQL 数据库

本文介绍如何使用 VBA 脚本连接到 Microsoft Dynamics GP 使用的 Microsoft SQL 数据库。

适用于： Microsoft Dynamics GP
原始 KB 编号： 892700

简介

本文介绍如何使用 Microsoft Visual Basic for Applications （VBA） 脚本连接到 Microsoft Dynamics GP 9.0 和 Microsoft Business Solutions - Great Plains 8.0 使用的 Microsoft SQL 数据库。

详细信息

以下 VBA 脚本示例可用于 Description_AfterGotFocus Microsoft Dynamics GP 帐户维护窗口中的事件。 此脚本将连接到 Microsoft Dynamics GP 示例 TWO 数据库，并使用密码以系统管理员身份登录。 建立连接后，脚本将创建存储在GL00105帐户索引主表中的数据的记录集。 然后，该脚本会将帐户索引值返回到 “帐户维护”窗口中的“用户定义的 1 ”字段。 该脚本在输入新帐户或使用 “帐户查找 ”按钮时返回此值。

若要使用示例脚本，请执行以下步骤：

1. 在 Microsoft Dynamics GP 中打开“帐户维护 ”窗口。

2. 在“工具”菜单上，单击“自定义”，然后单击“将当前窗口添加到 Visual Basic”。

3. 在“工具”菜单上，单击“自定义”，单击“向 Visual Basic 添加字段”，然后单击“帐户号”字段、“说明”字段和“用户定义的 1”字段。

4. 在“工具”菜单上，单击“自定义”，然后单击“Visual Basic 编辑器”。

5. 在 Visual Basic 编辑器中，展开 “大平原对象”，然后双击 AccountMaintenance 以打开 “帐户维护 代码”窗口。

6. 复制以下代码，然后将其粘贴到 “帐户维护 代码”窗口中。

   Private Sub Description_AfterGotFocus()
   Dim objRec
   Dim objConn
   Dim cmdString
   
   Set objRec = CreateObject("ADODB.Recordset")
   Set objConn = CreateObject("ADODB.Connection")
   
   objConn.ConnectionString = "Provider=MSDASQL;DSN=GreatPlains;Initial Catalog=TWO;User Id=sa;Password=password"
   objConn.Open
   
   cmdString = "Select ACTINDX from GL00105 where (ACTNUMST='" + Account + "')"
   
   Set objRec = objConn.Execute(cmdString)
   
   If objRec.EOF = True Then
   AccountMaintenance.UserDefined1 = ""
   Else
   AccountMaintenance.UserDefined1 = objRec!ACTINDX
   End If
   objConn.Close
   End Sub
   

还可以将 RetrieveGlobals_80.dll 文件用于 Microsoft Business Solutions - Great Plains 8.0，以检索此脚本示例检索的相同信息。 若要获取适当的.dll文件，请参阅 MBS CustomerSource 停用。

每个版本的 .dll 文件中都附带说明文件。 自述文件描述如何声明变量。 例如，可以在代码中声明变量，然后使用连接字符串中的变量。