Public Sub sub1()

Dim Connect As Object

Dim Functions As Object

Functions

=

CreateObject("Sap.Functions")

'

创建

RFC

的本地对象

Connect = Functions.Connection '

设置连接

Connect.ApplicationServer = "192.168.1.220" '

赋值服务器

IP

Connect.Client = "" '

赋值

SAP

集团代码

Connect.Language = "ZH" '

置

SAP

系统界面中文

Connect.User = "USER1" '

赋值

SAP

登录用户名

Connect.Password = "" '

赋值

SAP

登录用户密码

Connect.SystemNumber =  '

赋值

SAP

系统号

Connect.ABAPDebug = True

If Not Connect.Logon(, True) Then '

软件登录

SAP

并判断

\

Dim fffff

fffff = 

Else '

登录

SAP

成功

End If

Dim oFun As Object

oFun = Functions.Add("ZTEST2")

oFun.exports("MBLNR") = "aaa"

Dim returnFunc

returnFunc = oFun.Call

Dim ss

ss = oFun.imports("MSG").Value

Dim tb1 As Object

tb1 = oFun.Tables("TB_MATNR")

Dim i

For i =  To tb1.rowcount

Dim s1

s1 = tb1(i, "MATNR")

Next i

End Sub

'----------------------------------------------------------------

'  Copyright (C)

'  版权所有。

'

'  文件名  ：SAP.vb

'  功能描述：封装对SAP的基本访问，本类只提供基础信息，具体访问SAP RFC的类从此类继承

'

'  创建标识：www.cnblogs.com/slashout，

'

'  修改标识：www.cnblogs.com/slashout，

'  修改描述：增加传入内表、传出参数等的封闭操作

' ------------------------------------------------------------------------

Public Class SAP

    PRivate m_sapObject As Object       'sap远程函数调用对象

    Protected m_sapFun As Object        'sap函数

    Private m_sapConnection As Object   '与SAP的连接

    ''' <summary>

    ''' 构造函数，传入sap的基本信息

    ''' </summary>

    ''' <param name="sapSystem">Sap系统，可以传入null</param>

    ''' <param name="applicationServer">SAP服务器ip</param>

    ''' <param name="Client">集团号，如800</param>

    ''' <param name="SystemNumber">系统编号，如00</param>

    ''' <remarks></remarks>

    Public Sub New(ByVal sapSystem As String, ByVal ApplicationServer As String, ByVal Client As String, ByVal SystemNumber As String)

        Me.m_sapObject = CreateObject("SAP.Functions")

        Me.m_sapConnection = Me.m_sapObject.Connection()

        If String.IsNullOrEmpty(sapSystem) = False Then

            Me.m_sapConnection.System = sapSystem

        End If

        Me.m_sapConnection.ApplicationServer = ApplicationServer

        Me.m_sapConnection.Client = Client

        Me.m_sapConnection.SystemNumber = SystemNumber

    End Sub

    ''' <summary>

    '''  登录SAP，成功，返回True，失败，返回False

    ''' </summary>

    ''' <param name="User">用户</param>

    ''' <param name="PassWord">口令</param>

    ''' <param name="Language">语言，如ZH、EN等，可以传入null</param>

    ''' <returns>是否登录成功</returns>

    ''' <remarks></remarks>

    Public Function ConnectToSAP(ByVal User As String, ByVal Password As String, ByVal Language As String) As Boolean

        Me.m_sapConnection.user = User

        Me.m_sapConnection.Password = Password

        If String.IsNullOrEmpty(Language) = False Then

            Me.m_sapConnection.Language = Language

        Else

            Me.m_sapConnection.Language = "EN"

        End If

        Me.m_sapObject.AutoLogon = True                                '自动登录

        Return Me.m_sapObject.Connection.logon(, True)                '登录是否成功

    End Function

    ''' <summary>

    ''' 设置调用的sap函数名称

    ''' </summary>

    ''' <param name="sapFuncName">sap函数名称</param>

    ''' <remarks></remarks>

    Public Sub 设置SAP远程函数名(ByVal sapFuncName As String)

        Me.m_sapFun = Me.m_sapObject.Add(sapFuncName)

        If m_sapFun Is Nothing Then

            Throw New Exception("Sap远程函数名无效：" + sapFuncName)

        End If

    End Sub

    ''' <summary>

    ''' 设置Sap函数的传入调用参数

    ''' </summary>

    ''' <param name="paramName">参数名称</param>

    ''' <param name="paramValue">参数值</param>

    ''' <remarks></remarks>

    Public Sub 设置参数(ByVal paramName As String, ByVal paramValue As Object)

        Dim param As Object

        param = Me.m_sapFun.Exports(paramName)

        If param Is Nothing Then

            Throw New Exception("Sap远程函数的参数名无效：" + paramName)

        End If

        param.Value = paramValue

    End Sub

    ''' <summary>

    ''' 设置sap的传入内表，用dt_value模拟这个内表

    ''' </summary>

    ''' <param name="SapTableName">sap函数传入内表的名字</param>

    ''' <param name="dt_value">模拟的DataTable，要求与传入内表的字段名一致</param>

    ''' <remarks></remarks>

    Public Sub 设置传入内表(ByVal SapTableName As String, ByVal dt_value As DataTable)

        Dim sapdata As Object                       'sap传入内表

        Dim saprow As Object                        'sap传入内表的一行

        Dim dc As DataColumn

        Dim index As Integer

        sapdata = Me.m_sapFun.Tables(SapTableName)

        For index =  To dt_value.Rows.Count -     '循环表，并给sap传入内表赋值

            saprow = sapdata.Rows.Add()             '传入内表新增一行记录，下面为传入内表记录赋值

            For Each dc In dt_value.Columns

                saprow(dc.ColumnName) = dt_value.Rows(index)(dc.ColumnName).ToString()

            Next

        Next

    End Sub

    ''' <summary>

    ''' 当参数设置完成后，执行函数调用

    ''' </summary>

    ''' <remarks></remarks>

    Public Sub 执行函数调用()

        If Me.m_sapFun.Call() = False Then

            Throw New Exception("Sap远程函数调用失败。")       '从SAP取数出错，退出函数

        End If

    End Sub

    ''' <summary>

    ''' 根据字段列表（逗号分隔）建立指定字段的DataTable

    ''' </summary>

    ''' <param name="fields">字段列表（逗号分隔）</param>

    ''' <returns>空表</returns>

    ''' <remarks></remarks>

    Public Function 建立空表(ByVal fields As String) As DataTable

        Dim dt As New DataTable

        Dim strs As String()

        Dim s As String

        strs = fields.Split(",")

        For Each s In strs

            dt.Columns.Add(s.Trim())

        Next

        Return dt

    End Function

    ''' <summary>

    ''' 取得sap的传出参数值

    ''' </summary>

    ''' <param name="paramName">传出参数名</param>

    ''' <returns>传出参数值</returns>

    ''' <remarks></remarks>

    Public Function 取Sap传出参数(ByVal paramName As String) As String

        Dim param As Object

        param = Me.m_sapFun.Imports(paramName)

        If param Is Nothing Then

            Throw New Exception("Sap远程函数的参数名无效：" + paramName)

        End If

        If param.Value Is Nothing Then

            Return ""

        Else

            Return param.Value.ToString()

        End If

    End Function

    ''' <summary>

    ''' 把sap函数调用结构的传出内表转成dotNet的表

    ''' </summary>

    ''' <param name="fields">sap传出内表的字段列表，字段间以逗号分隔</param>

    ''' <param name="SapTableName">sap传出内表的表名</param>

    ''' <returns>把sap内表导出的dotnet表，字段都为string型</returns>

    ''' <remarks></remarks>

    Public Function 取Sap传出表数据(ByVal fields As String, ByVal SapTableName As String, ByVal 是否去前后空格 As Boolean) As DataTable

        '按字段列表建立表，fields中的字段列表用逗号分隔

        Dim dt As DataTable

        dt = Me.建立空表(fields)

        '从sap表中读数据，循环sap中取得的数据，写入dt

        Dim sapdata As Object

        Dim saprow As Object

        Dim dr As DataRow                       '数据增加的新行

        Dim dc As DataColumn

        sapdata = Me.m_sapFun.Tables(SapTableName)

        For Each saprow In sapdata.Rows

            dr = dt.NewRow()

            For Each dc In dt.Columns

                If 是否去前后空格 = True Then

                    dr(dc.ColumnName) = saprow(dc.ColumnName).ToString().Trim()

                Else

                    dr(dc.ColumnName) = saprow(dc.ColumnName).ToString()

                End If

            Next

            dt.Rows.Add(dr)

        Next

        Return dt

    End Function

    ''' <summary>

    ''' 关闭sap的连接

    ''' </summary>

    ''' <remarks></remarks>

    Public Sub DisConnectSAP()

        Me.m_sapConnection.logoff()

    End Sub

End Class