最近在研究vb连接SAP的例子， 终于可以正常登录SAP通过RFC读取SAP中的数据。
下面是具体的代码：
vb6.0写法：
'定义公共变量
Public Connect As Object
Public Functions As Object
'登录SAP
Private Sub Command1_Click()
'创建ocx对象
Set Functions = CreateObject("Sap.Functions.unicode")
'Sap.Functions.unicode 不加unicode的话无法正常显示中文。这和登录时Language的设置没有关系
'是因为字符集的原因。
'设置连接信息
Set Connect = Functions.Connection
Connect.ApplicationServer = "172.18.95.173"
Connect.Client = "169"
Connect.Language = "ZH"
Connect.User = "CRMDEV69"
Connect.Password = "654321"
Connect.SystemNumber = 7
Connect.System = "CD2"
If Not Connect.Logon(0, True) Then
MsgBox "登录失败"
Command1.SetFocus
Else
Command1.Enabled = False
MsgBox "登录成功"
End If
End Sub
'调用RFC的写法
Private Sub Command2_Click()
Dim GetCustomers As Object
Dim Customers As Object
Dim i As Integer
'所要调用的RFC名称
Set GetCustomers = Functions.Add("ZCSMS_GET_HRINFO")
'传递的输入参数名称并赋值
GetCustomers.Exports("BEGDAFROM") = ""
GetCustomers.Exports("BEGDATO") = ""
GetCustomers.Exports("MILL") = "7960"
GetCustomers.Exports("NUMBERFROM") = "0061500001"
GetCustomers.Exports("NUMBERTO") = "0061500080"
'执行后返回的Table，相当于二维数组
Set Customers = GetCustomers.Tables("THR")
'简单的MsgBox弹出以查看值
If GetCustomers.Call Then
For i = 1 To Customers.RowCount
MsgBox Customers(i, "MILL")
MsgBox Customers(i, "PERNR")
MsgBox Customers(i, "NAME1")
MsgBox Customers(i, "STEXT")
Next i
Else
MsgBox " 函数调用失败" + GetCustomers.exception
End If
End Sub