Usar um script VBA para se conectar a um banco de dados SQL usado pelo Microsoft Dynamics GP

Este artigo descreve como usar um script VBA para se conectar a um banco de dados Microsoft SQL usado pelo Microsoft Dynamics GP.

Aplica-se a: Microsoft Dynamics GP
Número original do KB: 892700

Introdução

Este artigo descreve como usar um script do Microsoft Visual Basic for Applications (VBA) para se conectar a um banco de dados do Microsoft SQL usado pelo Microsoft Dynamics GP 9.0 e pelo Microsoft Business Solutions – Great Plains 8.0.

Mais informações

O exemplo de script VBA a seguir pode ser usado para o Description_AfterGotFocus evento na janela Manutenção de Conta do Microsoft Dynamics GP. Esse script irá se conectar ao banco de dados de exemplo "TWO" do Microsoft Dynamics GP e fará o login como administrador do sistema com a senha. Depois que a conexão é feita, o script cria um conjunto de registros dos dados armazenados na tabela mestra de índice da conta GL00105. Em seguida, o script retornará o valor do índice da conta para o campo User-Defined1 na janela Account Maintenance. O script retorna esse valor quando você insere uma nova conta ou usa o botão Pesquisa de Conta.

Para usar o script de exemplo, siga estas etapas:

1. Abra a janela Manutenção de Conta no Microsoft Dynamics GP.

2. No menu Ferramentas , clique em Personalizar e, em seguida, clique em Adicionar Janela Atual ao Visual Basic.

3. No menu Ferramentas, clique em Personalizar, clique em Adicionar Campos ao Visual Basic e, em seguida, clique no campo Número da Conta, no campo Descrição e no campo Definido pelo Usuário 1.

4. No menu Ferramentas, clique em Personalizar e, em seguida, clique em Editor do Visual Basic.

5. No Editor do Visual Basic, expanda Great Plains Objects e clique duas vezes em AccountMaintenance para abrir uma janela de código de Manutenção de Conta .

6. Copie o código a seguir e cole-o na janela de código de Manutenção da Conta.

   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
   

Você também pode usar o arquivo RetrieveGlobals_80.dll do Microsoft Business Solutions - Great Plains 8.0 para recuperar as mesmas informações que este exemplo de script recupera. Para obter o arquivo .dll apropriado, consulte Desativação do MBS CustomerSource.

Um arquivo Leiame é incluído em cada versão do arquivo .dll. O arquivo Leiame descreve como declarar as variáveis. Por exemplo, você pode declarar as variáveis em seu código e, em seguida, usar as variáveis na cadeia de conexão.