使用 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 擴充 8.0 所使用的 Microsoft SQL 資料庫。

其他相關資訊

下列 VBA 腳本範例可用於 Description_AfterGotFocus Microsoft Dynamics GP 帳戶維護視窗中的 事件。 此腳本會連線到 Microsoft Dynamics GP 範例 TWO 資料庫，並以系統管理員的密碼登入。 建立連接之後，腳本會建立儲存在GL00105帳戶索引主數據表中的數據記錄集。 然後，腳本會將帳戶索引值傳回至 [帳戶維護] 視窗中的 [ User-Defined1] 字 段。 當您輸入新帳戶或使用 [ 帳戶查閱 ] 按鈕時，腳本會傳回此值。

若要使用範例腳本，請遵循下列步驟：

1. 在 Microsoft Dynamics GP 中開啟 [帳戶維護 ] 視窗。

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

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

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

5. 在 Visual Basic 編輯器 中，展開 [Great Wizard 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 擴充 8.0 的 RetrieveGlobals_80.dll 檔案，擷取此腳本範例所擷取的相同資訊。 若要取得適當的 .dll 檔案，請參閱 MBS CustomerSource 淘汰。

自述檔隨附於每個版本的 .dll 檔。 自述檔描述如何宣告變數。 例如，您可以在程式代碼中宣告變數，然後在 連接字串 中使用變數。