旧的 VB.NET 的 SAP RFC登陆方式

最新推荐文章于 2023-06-09 16:12:04 发布

原创最新推荐文章于 2023-06-09 16:12:04 发布 · 730 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#sap #vb.net #object #function #string #table

VB.NET 专栏收录该内容

11 篇文章

订阅专栏

本文介绍如何通过VBA连接SAP系统并获取数据。包括创建SAP函数对象、设置连接参数、登录验证及调用SAP函数获取物料描述和标准工时等关键步骤。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

定义：

    Public SapLogin As Object
    Public SapFC As Object
    Public GetSapValue As String

    Public ReturnFunction As Boolean
    Public TheFunction As Object
    Public SAPFunction As Object
    Public GetData As Object

连接：

    Function GetSap() As String
        SapFC = CreateObject("SAP.Functions")
        SapLogin = SapFC.Connection

        '----------------810-----------------
        GetSapValue = "PRD"
        SapLogin.ApplicationServer = "11.11.11.11"
        SapLogin.Client = "800"
        SapLogin.User = "user"
        SapLogin.Password = "123456"
        SapLogin.SystemNumber = "00"
        SapLogin.Language = "en"
        SapLogin.AutoLogon = True

        If SapLogin.Logon(0, True) <> True Then
            MsgBox("登陆SAP/R3失败!")
        Else
        End If
        Return Nothing
    End Function

使用：

TheFunction = SapFC.Add("YRFC") 'Function FROM SAP

TheFunction.Exports("P_MATNR") = TxtMateNO.Text.ToUpper '输入：MATNR

GetData = TheFunction.Tables("YTABLE") '输出：Table

ReturnFunction = TheFunction.Call '调用

If ReturnFunction = True Then '返回数据为真

            If GetData.rowcount < 1 Then
                MsgBox("SAP系统内没有相关数据！")
                Exit Sub
            End If

materialDesc = GetData(1, "MAKTX") 'MAKTX - Material Desccription 得到物料描述

standardWorkingHour = GetData(1, "VGW02") 'VGW02 - Working Hour 得到SAP标准工时

End If