Utiliser un script VBA pour se connecter à une base de données SQL utilisée par Microsoft Dynamics GP

  • Article

Cet article explique comment utiliser un script VBA pour se connecter à une base de données Microsoft SQL utilisée par Microsoft Dynamics GP.

S’applique à : Microsoft Dynamics GP
Numéro de la base de connaissances d’origine : 892700

Introduction

Cet article explique comment utiliser un script Microsoft Visual Basic pour Applications (VBA) pour se connecter à une base de données Microsoft SQL utilisée par Microsoft Dynamics GP 9.0 et par Microsoft Business Solutions - Great Plains 8.0.

Plus d’informations

L’exemple de script VBA suivant peut être utilisé pour l’événement Description_AfterGotFocus dans la fenêtre Maintenance du compte Microsoft Dynamics GP. Ce script se connecte à l’exemple de base de données MICROSOFT Dynamics GP TWO et se connecte en tant qu’administrateur système avec un mot de passe. Une fois la connexion établie, le script crée un jeu d’enregistrements des données stockées dans l’index du compte GL00105 master table. Le script retourne ensuite la valeur d’index du compte dans le champ Défini par l’utilisateur1 dans la fenêtre Maintenance du compte. Le script retourne cette valeur lorsque vous entrez un nouveau compte ou utilisez le bouton Recherche de compte .

Pour utiliser l’exemple de script, procédez comme suit :

  1. Ouvrez la fenêtre Maintenance du compte dans Microsoft Dynamics GP.

  2. Dans le menu Outils , cliquez sur Personnaliser, puis sur Ajouter une fenêtre active à Visual Basic.

  3. Dans le menu Outils , cliquez sur Personnaliser, sur Ajouter des champs à Visual Basic, puis sur le champ Numéro de compte , le champ Description et le champ 1 défini par l’utilisateur .

  4. Dans le menu Outils, cliquez sur Personnaliser, puis sur Visual Basic Rédacteur.

  5. Dans Visual Basic Rédacteur, développez Great Plains Objects, puis double-cliquez sur AccountMaintenance pour ouvrir une fenêtre de code de maintenance de compte.

  6. Copiez le code suivant, puis collez-le dans la fenêtre Code de maintenance du compte .

    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

Vous pouvez également utiliser le fichier RetrieveGlobals_80.dll pour Microsoft Business Solutions - Great Plains 8.0 pour récupérer les mêmes informations que cet exemple de script. Pour obtenir le fichier .dll approprié, consultez MbS CustomerSource Retirement.

Un fichier Lisez-moi est inclus avec chaque version du fichier .dll. Le fichier Lisez-moi décrit comment déclarer les variables. Par exemple, vous pouvez déclarer les variables dans votre code, puis utiliser les variables dans le chaîne de connexion.