Compartir a través de

Usar un script de VBA para conectarse a una base de datos SQL que usa Microsoft Dynamics GP

En este artículo se describe cómo usar un script VBA para conectarse a una base de datos de Microsoft SQL que usa Microsoft Dynamics GP.

Se aplica a: Microsoft Dynamics GP
Número de KB original: 892700

Introducción

En este artículo se describe cómo usar un script de Microsoft Visual Basic para Aplicaciones (VBA) para conectarse a una base de datos de Microsoft SQL que usa Microsoft Dynamics GP 9.0 y Microsoft Business Solutions - Great Plains 8.0.

Más información

El siguiente ejemplo de script de VBA se puede usar para el Description_AfterGotFocus evento en la ventana Mantenimiento de cuentas de Microsoft Dynamics GP. Este script se conectará a la base de datos TWO de ejemplo de Microsoft Dynamics GP e iniciará sesión como administrador del sistema con una contraseña. Una vez realizada la conexión, el script crea un conjunto de registros de los datos almacenados en la tabla maestra de índice de la cuenta de GL00105. A continuación, el script devolverá el valor de índice de cuenta al campo User-Defined1 en la ventana de Mantenimiento de cuentas. El script devuelve este valor al escribir una cuenta nueva o usar el botón Búsqueda de cuentas.

Para usar el script de ejemplo, siga estos pasos:

  1. Abra la ventana Mantenimiento de la cuenta en Microsoft Dynamics GP.

  2. En el menú Herramientas, haga clic en Personalizar, y luego haga clic en Agregar ventana actual a Visual Basic.

  3. En el menú Herramientas, haga clic en Personalizar, haga clic en Agregar campos a Visual Basic y, a continuación, haga clic en el campo Número de cuenta, el campo Descripción y el campo 1 definido por el usuario.

  4. En el menú Herramientas, haga clic en Personalizar, y luego haga clic en Editor de Visual Basic.

  5. En el Editor de Visual Basic, expanda Objetos de Great Plains y, a continuación, haga doble clic en AccountMaintenance para abrir una ventana de código de Account Maintenance.

  6. Copie el código siguiente y péguelo en la ventana Código de mantenimiento de la cuenta.

    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

También puede usar el archivo RetrieveGlobals_80.dll para Microsoft Business Solutions - Great Plains 8.0 para recuperar la misma información que recupera este ejemplo de script. Para obtener el archivo .dll adecuado, consulte MBS CustomerSource Retirement.

Se incluye un archivo Léame con cada versión del archivo .dll. El archivo de ayuda describe cómo declarar las variables. Por ejemplo, puede declarar las variables en el código y, a continuación, usar las variables del cadena de conexión.