在VB中调用SAP function及SAP RFC的例子

转载 2007年09月26日 10:56:00
 
在VB中调用SAP function及SAP RFC的例子
在VB中调用SAP function及调用SAP RFC的例子:
Dim Functions As Object
Dim SAPFunction1  As SAPFunctions
Dim SAPFunction  As Object
Dim oFunc As Object
Dim Connect As Object
Dim colX As ColumnHeader
Dim itmX As ListItem
Dim Column1 As Integer
Dim rows1 As Integer
Dim Column2 As Integer
Dim rows2 As Integer


Private Sub Form_Load()
Set Connect = SAPLogonControl1.NewConnection
  Connect.System = "P13"
  Connect.ApplicationServer = "200.200.0.32"
  Connect.SystemNumber = 0
  Connect.User = "用户名"
  Connect.Password = "密码"
  Connect.Client = "096"
  Connect.Language = "EN"
  
  If Connect.Logon(Form1.hWnd, True) = False Then
          MsgBox "联接SAP失败!"
          Exit Sub
  End If
  Call list
End Sub

Private Sub list()
   ListView.ListItems.Clear
   ListView.ColumnHeaders.Clear
   Set colX = ListView.ColumnHeaders.Add()
   colX.Text = "序号"
   colX.Width = 300
   Set colX = ListView.ColumnHeaders.Add()
   colX.Text = "IDOC号"
   colX.Width = 1600
   Set colX = ListView.ColumnHeaders.Add()
   colX.Text = "状态"
   colX.Width = 400
   
   Set colX = ListView.ColumnHeaders.Add()
   colX.Text = "描述"
   colX.Width = 4000
   
   Set colX = ListView.ColumnHeaders.Add()
   colX.Text = "日期"
   colX.Width = 900
   Set colX = ListView.ColumnHeaders.Add()
   colX.Text = "时间"
   colX.Width = 1200
   
   Set SAPFunction = CreateObject("SAP.Functions")
   Set SAPFunction.Connection = Connect
   
   Set oFunc = SAPFunction.Add("ZREAD_IDOC_DATA")
   If Not oFunc.Call Then
        Exit Sub
   End If
   oFunc.Tables("I_EDIDC").Views.Add SAPTableView1.object
   oFunc.Tables("I_EDIDC").Refresh
   SAPTableView1.ColumnAutoWidth 1, SAPTableView1.ColumnCount
   Column1 = SAPTableView1.ColumnCount
   rows1 = SAPTableView1.RowCount
    
   oFunc.Tables("I_EDIS").Views.Add SAPTableView2.object
   oFunc.Tables("I_EDIS").Refresh
   SAPTableView2.ColumnAutoWidth 1, SAPTableView2.ColumnCount
   Column2 = SAPTableView2.ColumnCount
   rows2 = SAPTableView2.RowCount
    

   For i = 1 To rows1
      Set itmX = ListView.ListItems.Add()
      itmX.Selected = True
      itmX.Text = i
      itmX.SubItems(1) = SAPTableView1.Cell(i, 2) 'idoc number
      itmX.SubItems(2) = SAPTableView1.Cell(i, 4) 'status
      For j = 1 To rows2
          If SAPTableView2.Cell(j, 1) = SAPTableView1.Cell(i, 4) Then
             If SAPTableView2.Cell(j, 2) = "E" Then
                itmX.SubItems(3) = SAPTableView2.Cell(j, 3) 'desp
             End If
          End If
      Next j
      itmX.SubItems(4) = SAPTableView1.Cell(i, 38) 'date
      itmX.SubItems(5) = SAPTableView1.Cell(i, 39) 'time
   Next i
   StatusBar1.SimpleText = "共计:" & rows1
End Sub

另:VB调用RFC的函数
Set SAPFun = CreateObject("SAP.Functions")   '---连接到SAP
Set RFCFun = SAPFun.Add("RFC_READ_TABLE")    '---SAP用户认证

DELPHI 调用SAP—RFC 示例

DELPHI 调用SAP—RFC 示例 Logon to the R3-system with the componente TSAPLogOnControl In this ex...
  • Trassion
  • Trassion
  • 2013年06月30日 19:10
  • 6047

VB.NET中SAP RFC调用接口封装

因为经常需要访问sap操作数据,就封装了一个类方便调用,运行条件需要安装sap客户端,在sap客户端安装之后会带有一个com接口,本接口就通过这个com访问sap,因为com的后期绑定问题故使用了vb...
  • jievsvsvsvvs
  • jievsvsvsvvs
  • 2013年06月26日 00:27
  • 884

java后台调用 SAP RFC的配置和调用

RFC  刚刚听到这个名称的时候只有一种感觉: 什么鬼?  后来百度了一下 ,来看看官方的解释:     RFC是SAP系统和其他(SAP或非SAP)系统间的一个重要而常用的双向接口技术,也被视为S...
  • u013303551
  • u013303551
  • 2016年07月09日 20:12
  • 2514

JAVA调用SAP端RFC接口

JAVA调用SAP端接口  1、这里我们不讲述SAP端接口的开发,sap端接口已经写好了,java端只是调用sap的接口名; 2、调用过程中所需要的包及配置文件,在“java连接sap接口包sapjc...
  • Jay_1989
  • Jay_1989
  • 2016年07月04日 15:31
  • 7350

SAP接口编程-RFC系列11:C#语言调用RFC

使用C#语言调用RFC。编程环境:Visual Studio 2012英文版
  • stone0823
  • stone0823
  • 2016年02月18日 22:37
  • 1825

.Net 调用SAP RFC接口来读取数据实战纪实

这几天研究.Net 如何调用SAP RFC接口来读取数据,搞得我重装了三次系统,找资料找到吐血,看了德文、日文、英文、中文几乎所有可以参考的资料,师傅亲自出马,并请教了一堆高手还包括IBM的帅锅,还割...
  • bingtingabc
  • bingtingabc
  • 2014年05月07日 12:58
  • 2169

SAP开发者指引-RFC的使用

转自:http://lzl000163.blog.163.com/blog/static/5794424720127315235311/ RFC 是“Remote Function Call...
  • DJ2008
  • DJ2008
  • 2014年09月26日 15:02
  • 9119

C# 调用 SAP RFC 方法

原文地址:C#调用SAP函数之RFC_READ_TABLE作者:天壤的劫火 public void test() { SAPLogonControlClass connctl = new S...
  • jievsvsvsvvs
  • jievsvsvsvvs
  • 2013年06月26日 00:22
  • 2261

JAVA调用SAP的函数RFC--个人小结

   首先,在网上下载一个下面的压缩包(不同版本内容会稍微不同),打开sapjco3-NTintel-3.0.7.zip,将sapjco3.jar拷入到lib里,选中sapjco3.jar,右键点...
  • ylcumt
  • ylcumt
  • 2016年10月22日 11:48
  • 1188

SAP接口编程-RFC系列14 : 获取SAP DDIC的数据字段

使用SAPFunctions.CreateStructure()方法获取DDIC(SAP data dictionary)的字段信息。
  • stone0823
  • stone0823
  • 2016年03月08日 15:21
  • 943
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在VB中调用SAP function及SAP RFC的例子
举报原因:
原因补充:

(最多只允许输入30个字)