VB.net连接SAP实例
来源:互联网 发布:手机淘宝触屏版 编辑:程序博客网 时间:2024/06/08 21:33
最近在研究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
- VB.net连接SAP实例
- VB.net连接SAP实例
- VB.net连接SAP实例(vb.net写法)
- VB.net连接SAP实例(vb.net写法)
- VB连接SAP实例
- VB连接SAP实例
- vb.net-连接数据库实例
- VB.NET 连接 SAP RFC(SAP Connection 3.0)
- vb.net 连接ssl实例代码
- .NET连接SAP
- Asp.net连接SAP
- VB.net 多线程实例
- 三层VB.NET实例
- vb.net 连接excel
- VB.NET 连接数据库
- vb.net连接access2007
- VB.net 连接池
- vb.net视觉--vb.net代码实例
- log4j1,commons-logging,jdk-logging快速切换slf4j工具
- Linux 查看服务器开放的端口号
- sql server数据库备份
- 从谷歌宕机事件认识互联网工作原理
- 卷积神经网络学习总结
- VB.net连接SAP实例
- postgres 数据库,导入,导出数据。
- Junit测试用例配置Log4j
- 图像配准中的归一化互相关匹配算法
- 基EmguCv/OpenCv的零件的缺陷检测
- Memcached和Memcache安装(64位win7)
- Debian8.6下Genymotion安装与问题解决
- rainy day
- C++ Primer 第一章学习(1.1)