求VS2005调用SAP的RFC的SourceCode....无限等待Help

[小嘉茗的爸爸]

求VS2005调用SAP的RFC的SourceCode....无限等待Help......
求VS2005调用SAP的RFC的SourceCode....无限等待Help......

[小嘉茗的爸爸]

我是在VS2005中调用SAP的RFC哦！~


做沙发的以前什么公司啊！说出来看看啊 ！o(∩_∩)o...哈哈


5楼的我先试下 ，VB调用我是会的！感觉行不通

[神奇的章鱼哥]

我以前就是做SAP二次开发的，用.net2003调用SAP的，2005绝对一样
当时公司的客户VIP刷卡系统我就是这样做的
那时候信息中心.net就我一个人用，其他人都用dephi
以前这个对我是小菜，现在……555555555555555
硬盘坏了，代码都没了，连死的心都快有了

PS:楼主别就是我以前单位里的人啊，哈哈

[CathySun118]

http://blog.csdn.net/cissor/archive/2007/03/13/1527626.aspx

[DavidNoWay]

顶1！！

[神奇的章鱼哥]

那个是SAP调.net

SAP里有个模拟操作录制的功能，可以看调用的代码，然后自己写也可以，不过最好是按他的标准调用功能模块
如果是简单的RFC，不用这么复杂，但是你要下载个sap的.net插件dll，sap官方网站上有

[zdq801104]

VB的代码，仅供参考，自己改改就能放到vb.net中
Dim functionCtrl As Object 'Function Control (Collective object)
Dim sapConnection As Object 'Connection object
Dim theFunc As Object 'Function object
Dim ls_material As String
'Create a function object
Set functionCtrl = CreateObject("SAP.Functions")
Set sapConnection = functionCtrl.Connection
If sapConnection.Logon(0, False) <> True Then
MsgBox "No connection to R/3!"
Exit Sub 'End program
End If

Dim i As Integer
i = 7

Do While Worksheets("Sheet1").Cells(i, 3) <> ""
ls_material = Sheet1.Cells(i, 3)
Set theFunc = functionCtrl.Add("ZRFC_GET_MAKTX")

theFunc.exports("MATNR") = ls_material

returnFunc = theFunc.Call
If returnFunc = True Then
Sheet1.Cells(i, 11) = theFunc.imports("MAKTX").Value

End If
i = i + 1
Loop

Sheet1.Cells(5, 11) = "图号"
functionCtrl.Connection.logoff
Set sapConnection = Nothing
Set functionCtrl = Nothing

[小嘉茗的爸爸]

没人写过吗？？
顶上来！~

[nuo]

楼主的问题解决了么,偶也想知道怎么调，贴一下学习学习吧