Używanie skryptu VBA do nawiązywania połączenia z bazą danych SQL używaną przez usługę Microsoft Dynamics GP

W tym artykule opisano sposób używania skryptu VBA do nawiązywania połączenia z bazą danych Microsoft SQL Database używaną przez program Microsoft Dynamics GP.

Dotyczy: Microsoft Dynamics GP
Oryginalny numer KB: 892700

Wprowadzenie

W tym artykule opisano sposób używania skryptu programu Microsoft Visual Basic for Applications (VBA) w celu nawiązania połączenia z bazą danych Microsoft SQL, która jest używana przez program Microsoft Dynamics GP 9.0 i microsoft Business Solutions — Great Plains 8.0.

Więcej informacji

Poniższy przykładowy skrypt VBA może być użyty dla zdarzenia Description_AfterGotFocus w oknie konserwacji konta Microsoft Dynamics GP. Ten skrypt połączy się z przykładową bazą danych microsoft Dynamics GP TWO i zaloguje się jako administrator systemu przy użyciu hasła. Po nawiązaniu połączenia skrypt tworzy zestaw rekordów danych przechowywanych w tabeli głównej indeksu konta GL00105. Skrypt zwróci następnie wartość indeksu konta do pola User-Defined1 w oknie Konserwacja konta. Skrypt zwraca tę wartość po wprowadzeniu nowego konta lub użyciu przycisku Wyszukaj konto.

Aby użyć przykładowego skryptu, wykonaj następujące kroki:

1. Otwórz okno Konserwacja konta w programie Microsoft Dynamics GP.

2. W menu Narzędzia kliknij pozycję Dostosuj, a następnie kliknij pozycję Dodaj bieżące okno do języka Visual Basic.

3. W menu Narzędzia kliknij pozycję Dostosuj, kliknij pozycję Dodaj pola do języka Visual Basic, a następnie kliknij pole Numer konta, pole Opis i pole Zdefiniowane przez użytkownika 1.

4. W menu Narzędzia kliknij pozycję Dostosuj, a następnie kliknij pozycję Edytor Visual Basic.

5. W Edytorze Visual Basic rozwiń węzeł Great Plains Objects, a następnie kliknij dwukrotnie pozycję AccountMaintenance , aby otworzyć okno kodu konserwacji konta.

6. Skopiuj poniższy kod, a następnie wklej go w oknie Kod konserwacji konta.

   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
   

Możesz również użyć pliku RetrieveGlobals_80.dll dla rozwiązań firmy Microsoft — Great Plains 8.0, aby pobrać te same informacje, które pobiera ten przykład skryptu. Aby uzyskać odpowiedni plik .dll, zobacz MBS CustomerSource Retirement.

Plik Readme jest dołączony do każdej wersji pliku .dll. Plik Readme opisuje sposób deklarowania zmiennych. Można na przykład zadeklarować zmienne w kodzie, a następnie użyć zmiennych w łańcuchu połączeniowym.