使用 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. 在 Dynamics GP Microsoft中開啟 [帳戶維護 ] 視窗。

2. 在 [ 工具] 功能表上，按兩下 [ 自訂]，然後按兩下 [ 將目前視窗新增至Visual Basic]。

3. 在 [ 工具] 功能表上，按兩下 [自訂]，單擊 [將字段新增至Visual Basic]，然後按兩下 [帳戶號碼 ] 欄位、 [描述 ] 欄位和 [ 使用者定義 1] 欄位。

4. 在 [ 工具] 功能表上，按兩下 [ 自定義]，然後按兩下[ Visual Basic 編輯器]。

5. 在 Visual Basic 編輯器中，展開 Great Plains Objects，然後按兩下 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檔案的每個版本。 自述檔描述如何宣告變數。 例如，您可以在程式代碼中宣告變數，然後使用 連接字串 中的變數。