이 문서에서는 VBA 스크립트를 사용하여 Microsoft Dynamics GP에서 사용하는 Microsoft SQL 데이터베이스에 연결하는 방법을 설명합니다.
적용 대상: Microsoft Dynamics GP
원래 KB 번호: 892700
소개
이 문서에서는 Microsoft VBA(Visual Basic for Applications) 스크립트를 사용하여 Microsoft Dynamics GP 9.0 및 Microsoft Business Solutions - Great Plains 8.0에서 사용하는 Microsoft SQL 데이터베이스에 연결하는 방법을 설명합니다.
자세한 정보
다음 VBA 스크립트 예제는 Microsoft Dynamics GP 계정 유지 관리 창에서 이벤트에 사용할 Description_AfterGotFocus 수 있습니다. 이 스크립트는 Microsoft Dynamics GP 샘플 TWO 데이터베이스에 연결하고 암호로 시스템 관리자로 로그온합니다. 연결이 완료되면 스크립트는 GL00105 계정 인덱스 마스터 테이블에 저장된 데이터의 레코드 집합을 만듭니다. 그러면 스크립트는 계정 인덱스 값을 계정 유지 관리 창의 사용자 정의1 필드로 반환합니다. 스크립트는 새 계정을 입력하거나 계정 조회 단추를 사용할 때 이 값을 반환합니다.
예제 스크립트를 사용하려면 다음 단계를 수행합니다.
Microsoft Dynamics GP에서 계정 유지 관리 창을 엽니다.
도구 메뉴에서 사용자 지정을 클릭한 다음 Visual Basic에 현재 창 추가를 클릭합니다.
도구 메뉴에서 사용자 지정을 클릭하고 Visual Basic에 필드 추가를 클릭한 다음 계정 번호 필드, 설명 필드 및 사용자 정의 1 필드를 클릭합니다.
도구 메뉴에서 사용자 지정을 클릭한 다음 Visual Basic Editor를 클릭합니다.
Visual Basic Editor에서 Great Plains 개체를 확장한 다음 AccountMaintenance를 두 번 클릭하여 계정 유지 관리 코드 창을 엽니다.
다음 코드를 복사한 다음 계정 유지 관리 코드 창에 붙여넣습니다.
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
Microsoft Business Solutions - Great Plains 8.0에 대한 RetrieveGlobals_80.dll 파일을 사용하여 이 스크립트 예제에서 검색하는 것과 동일한 정보를 검색할 수도 있습니다. 적절한 .dll 파일을 가져오려면 MBS CustomerSource 사용 중지를 참조 하세요.
추가 정보 파일은 .dll 파일의 각 버전에 포함됩니다. 추가 정보 파일은 변수를 선언하는 방법을 설명합니다. 예를 들어 코드에서 변수를 선언한 다음 연결 문자열 변수를 사용할 수 있습니다.