java 不能调用银海接口吗

java 不能调用银海接口吗

Dim yinhaiobject As Object '定义存放引用对象的变量。

Private Sub Command1_Click() '初始化

Set yinhaiobject = CreateObject("yinhai.xjcj.interface")

MsgBox "1"
'检查连接是否建立
If yinhaiobject Is Nothing Then MsgBox "对象为空!"

Dim Appcode As Long
Dim Appmsg As String

yinhaiobject.yh_interface_init Appcode, Appmsg
MsgBox "2" & Appcode & "|" & Appmsg

End Sub

Private Sub Command2_Click() '查询医院信息

Dim BusinessID As String
Dim Dataxml As String
Dim Businesssequence As String
Dim Businessvalidate As String
Dim Outputxml As String
Dim Appcode As Long
Dim Appmsg As String

MsgBox "3"
BusinessID = "04"
Ctrlxml = "" '组织参数
Dataxml = " " encoding=" & Chr$(34) & "GBK" & Chr$(34) & _
" standalone=" & Chr$(34) & "yes" & Chr$(34) & _
" ?>" '组织参数
yinhaiobject.yh_interface_call BusinessID, Dataxml, Businesssequence, Businessvalidate, Outputxml, Appcode, Appmsg
MsgBox "4" & Appcode & "|" & Appmsg & vbLf & Outputxml

'HIS业务处理
Set yinhaiobject = Nothing '关闭对象

需要吧

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息