SAP使用RFC_CALL_TRANSACTION RFC VB捕获数据

时间:2013-04-25 12:19:18

标签: vb.net sap rfc

我成为错误代码1001,SAP Remote错误?

我用谷歌搜索了很多但没有找到任何东西。 也许有人知道这里的问题是什么。 我正在使用SAP 720。

  

System.Runtime.InteropServices.COMException(0x000003E9):SAP Remote   功能调用bei   Microsoft.VisualBasic.CompilerServices.LateBinding.LateGet(Object o,   输入objType,String name,Object [] args,String [] paramnames,   Boolean [] CopyBack)bei   Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateGet(对象   实例,类型类型,字符串成员名称,对象[]参数,字符串[]   ArgumentNames,Type [] TypeArguments,Boolean [] CopyBack)...

这是我的代码:

    Public FunctionCtrl As Object
    Function login_Call()
    Try

        Dim conn As Object
        FunctionCtrl = CreateObject("SAP.Functions")
        conn = FunctionCtrl.Connection


        conn.System = XXX
        conn.ApplicationServer = XXX
        conn.SystemNumber = XXX
        conn.Client = "XXX"
        conn.user = XXX
        conn.Password = XXX
        conn.Language = XXX
        'needed for frontend dialog
        conn.RfcWithDialog = True

        'log on with logon dialog
        If Not conn.Logon(0, 1) Then
            Dim WsShell
            Dim intText As Integer
            WsShell = CreateObject("WScript.Shell")
            intText = WsShell.Popup("Logon not succesful." & vbCrLf & _
                               "will be closed automatically in one minute...", 60)
            'conn = Nothing
            Anmeldung_Call = False
            Exit Function
        End If
        Anmeldung_Call = True

    Catch ex As Exception

        Anmeldung_Call = False
    End Try
    Me.Text = DateTime.Now.ToString()
End Function

Sub Open_IW73()
    Dim BdcTable As Object
    Dim RfcCallTransaction As Object
    Dim Messages As Object
    Dim count As Integer

    'call transaction IW73
    RfcCallTransaction = FunctionCtrl.Add("RFC_CALL_TRANSACTION")
    RfcCallTransaction.Exports("TRANCODE") = "IW73"
    RfcCallTransaction.Exports("UPDMODE") = "S"
    BdcTable = RfcCallTransaction.Tables("BDCTABLE").....

错误出现在这一行:“RfcCallTransaction = FunctionCtrl.Add(”RFC_CALL_TRANSACTION“) “

谢谢

1 个答案:

答案 0 :(得分:0)

我遇到了同样的错误。人们提出了不同的修复方法,例如使用SAP.functions.Unicode。 它对我来说只是改为“RFC_CALL_TRANSACTION_USING”。我不确定这些命令之间的确切区别,所以要小心。到目前为止,它一直在为我工作。