SAP接口编程-RFC系列02 : Connection对象

Connection对象负责连接至SAP系统，其他对象，比如SAPFunctions都要指定Connection对象作为其属性。上篇的编程模型，图示如下：

查看 Connection 对象的属性和方法

在VBE中添加引用后，按下F2键转到对象浏览器界面（或者使用菜单【视图】-【对象浏览器】），可以看到SAPLogonCtrl包括SAPLongonControl和Connection两个类。在这里可以看到它们的各自的方法和属性。

Connection对象的重要属性

• ApplicationServer：应用程序服务器，为IP地址或者字符串，String类型

• System：GUI登陆界面设置的系统标识，String类型

• SystemNumber：GUI登陆界面设置的实例编号，Long类型

• SAPRouter：GUI登陆界面设置中的SAPRouter字符串，外网访问需要设置的路由字符串，String类型
  Client、User、Password、Language，很直观，不多说。

• IsConnected： 连接的状态。使用Logon方法后，可以使用IsConneced属性判断连接的状态，共有5个值：

• Const tloRfcNotConnected = 0

• Const tloRfcConnected = 1

• Const tloRfcConnectCancel = 2

• Const tloRfcConnectParameterMissing = 4

• Const tloRfcConnectFailed = 8

Connection对象的重要方法

Logon()方法
功能：登陆SAP
语法：Function Logon(hWnd, bSilent As Boolean) As Boolean
说明：Silent登陆是指在登陆的时候，不出现登陆对话框。需要在程序中指定登录到SAP系统的完整的信息：Application Server, System number, user, password, client, language

Logoff()方法
功能：注销SAP
语法：Sub Logoff()

##晚绑定
代码中，我们使用了Set logonControl = New SAPLogonControl语句。这是早绑定的使用方法。也可以用Set sapLogon = CreateObject(“SAP.LogonControl.1”)进行晚绑定。晚绑定允许在VBE中不添加SAPLogonControl，也可以使用。原理是系统注册表中存放了组件的CLASSID。

晚绑定示例

Dim sapLogon As Object
Dim sapConnection As Object

Public Sub Logon_LateBinding()
    Set sapLogon = CreateObject("SAP.LogonControl.1")
    Set sapConnection = sapLogon.NewConnection()
    
    Call sapConnection.Logon(0, False)
    
    Debug.Print sapConnection.IsConnected
End Sub

Silent Logon

Silent logon使用代码中指定的用户名和密码，登录到指定的SAP系统，在代码中必须填充完整的登陆信息。示例如下：

Dim sapLongonControl As SAPLogonCtrl.SAPLogonControl
Dim sapConnection As SAPLogonCtrl.Connection

Public Sub ConnectSAP()
    Set sapLongonControl = CreateObject("SAP.LogonControl.1")
    Set sapConnection = sapLongonControl.NewConnection
    
    ' Fill all required properties
    With sapConnection
        .System = "XXX"                    '系统标识
        .ApplicationServer = "sap-dev"     '应用服务器，一般为IP地址
        .SAPRouter = "/H/XXX.XX.XXX.XX/H/" '外网连接的SAP路由
        .SystemNumber = "00"               '实例编号
        .Client = "800"
        .User = "xxxx"
        .Password = "xxxx"
    End With
    
    Call sapConnection.Logon(0, True) ' hWnd, Silent Logon
    If sapConnection.IsConnected = tloRfcConnected Then
        MsgBox "OK"
    Else
        MsgBox "Error code:" & sapConnection.IsConnected
    End If
    
    sapConnection.Logoff
End Sub

参考资料

• http://scn.sap.com/docs/DOC-52886 SAP NetWeaver RFC SDK – RFC Client Programs
• http://scn.sap.com/docs/DOC-47152 如何在Excel中使用VB宏连接SAP系统