U872 EAI二次开发
我想调用EAI 接口导入存货或物料清单;Private Sub Command1_Click()
Dim obj As Object
Dim dom As New DOMDocument
Dim sxml As String
Dim ret As String
If dom.Load("C:\Documents and Settings\DELL\桌面\存货档案.xml") = False Then
MsgBox "装载模板出错"
Exit Sub
End If
Set obj = CreateObject("U8Distribute.iDistribute")
sxml = dom.xml
MsgBox sxml
ret = obj.Process(sxml)
MsgBox ret
Set dom = Nothing
Exit Sub
End Sub
上面程序回执是:<?xml version="1.0" encoding="utf-8" ?>
- <ufinterface roottag="return" docid="" proc="">
<item key="" succeed="601" dsc="EAI数据源(default)@001连接失败,原因:不能登录到应用服务器,请检查服务器配置或查看服务器日志." />
</ufinterface>
请高人指点,万分感激!!!
应该是你的xml文件的代码的问题,001是不是没有注册? achao0558 发表于 2012-3-26 13:15 static/image/common/back.gif
应该是你的xml文件的代码的问题,001是不是没有注册?
001我已经注册了 其实,我没看懂 这是什么原因呀,我也遇到这个问题 什么问题 如何解决的啊~ obj 没有登录。obj应该先调用 LoginEai 才能调用 Process 。 好强大的,不懂,路过看看 服务器注册没有选择本地库吧? 估计是服务器注册没有选择本地库吧?
页:
[1]