北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
在百度中以及本论坛中搜索了两天了，但一直没有得到解决，下面这段代码是在VS2015中测试通过
Dim CCC As New WebReference.EDIESBService
Dim fromNode As String
Dim toNode As String
Dim esbID As String
Dim applyData As String
Dim userId As String
Dim password As String
Dim url As String
fromNode = "XXXX"
esbID = "VOYAGEXXXX"
toNode = "YYYYY"
applyData = "[{'cpcode':'AAAAA','vesselcode':'UN1234567','engdescription':'ABCD','voyage':'1704'}]"
userId = "USEAA"
password = "PSW123"
url = "http://202.92.133.60:8888/com.port.ediesb.service.EDIESBService?wsdl"
Dim ret As String
ret = CCC.callEDIESBPub(fromNode, toNode, esbID, applyData, userId, password)
MsgBox(ret)
下面这段代码是我在ACCESS中写的，但一直提示参数数量错误，也不知为什么
Dim fromNode As String
Dim toNode As String
Dim esbID As String
Dim applyData As String
Dim userId As String
Dim password As String
Dim url As String
Dim soapclient As New SoapClient30
Dim text As String
fromNode = "XXXX"
esbID = "VOYAGEXXXX"
toNode = "YYYYY"
applyData = "[{'cpcode':'AAAAA','vesselcode':'UN1234567','engdescription':'ABCD','voyage':'1704'}]"
userId = "USEAA"
password = "PSW123"
soapclient.MSSoapInit "http://202.92.133.60:8888/com.port.ediesb.service.EDIESBService?wsdl"
TEST = soapclient.callEDIESBPub(fromNode, toNode, esbID, applyData, userId, password)
