我成为错误代码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“) “
谢谢
答案 0 :(得分:0)
我遇到了同样的错误。人们提出了不同的修复方法,例如使用SAP.functions.Unicode。 它对我来说只是改为“RFC_CALL_TRANSACTION_USING”。我不确定这些命令之间的确切区别,所以要小心。到目前为止,它一直在为我工作。