Een VBA-script gebruiken om verbinding te maken met een SQL-database die wordt gebruikt door Microsoft Dynamics GP

In dit artikel wordt beschreven hoe u een VBA-script gebruikt om verbinding te maken met een Microsoft SQL-database die wordt gebruikt door Microsoft Dynamics GP.

Van toepassing op: Microsoft Dynamics GP
Oorspronkelijk KB-nummer: 892700

Inleiding

In dit artikel wordt beschreven hoe u een VBA-script (Microsoft Visual Basic for Applications) gebruikt om verbinding te maken met een Microsoft SQL-database die wordt gebruikt door Microsoft Dynamics GP 9.0 en door Microsoft Business Solutions - Great Plains 8.0.

Meer informatie

Het volgende voorbeeld van een VBA-script kan worden gebruikt voor de Description_AfterGotFocus gebeurtenis in het venster Onderhoud van het Microsoft Dynamics GP-account. Met dit script wordt verbinding gemaakt met de voorbeelddatabase MICROSOFT Dynamics GP TWO en wordt u aangemeld als systeembeheerder met een wachtwoord. Nadat de verbinding is gemaakt, maakt het script een recordset met de gegevens die zijn opgeslagen in de hoofdtabel van de GL00105 accountindex. Het script retourneert vervolgens de indexwaarde van het account naar het veld Door de gebruiker gedefinieerd1 in het venster Accountonderhoud. Het script retourneert deze waarde wanneer u een nieuw account invoert of de knop Account opzoeken gebruikt.

Voer de volgende stappen uit om het voorbeeldscript te gebruiken:

  1. Open het venster Accountonderhoud in Microsoft Dynamics GP.

  2. Klik in het menu Extra op Aanpassen en klik vervolgens op Huidig venster toevoegen aan Visual Basic.

  3. Klik in het menu Extra op Aanpassen, klik op Velden toevoegen aan Visual Basic en klik vervolgens op het veld Accountnummer , het veld Beschrijving en het veld Door de gebruiker gedefinieerde 1 .

  4. Klik in het menu Extra op Aanpassen en klik vervolgens op Visual Basic Editor.

  5. Vouw in Visual Basic Editor Great Plains Objects uit en dubbelklik vervolgens op AccountMaintenance om een venster accountonderhoudscode te openen.

  6. Kopieer de volgende code en plak deze in het venster Accountonderhoudscode .

    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

U kunt ook het RetrieveGlobals_80.dll-bestand voor Microsoft Business Solutions - Great Plains 8.0 gebruiken om dezelfde informatie op te halen die in dit scriptvoorbeeld wordt opgehaald. Zie MBS CustomerSource Retirement om het juiste .dll-bestand te verkrijgen.

Een Leesmij-bestand wordt meegeleverd bij elke versie van het .dll-bestand. In het Leesmij-bestand wordt beschreven hoe u de variabelen declareert. U kunt bijvoorbeeld de variabelen in uw code declareren en vervolgens de variabelen in de verbindingsreeks gebruiken.

  • Last updated on