使用 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 编辑器中，展开“Great Plains 对象”，然后双击“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

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

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