Private Sub cmdAdd_Click()<o:p></o:p>
'测试add方法<o:p></o:p>
On Error Resume Next<o:p></o:p>
Dim SoapClient As Object<o:p></o:p>
<o:p></o:p>
Set SoapClient = CreateObject("MSSOAP.SoapClient30")<o:p></o:p>
Call SoapClient.MSSoapInit2(Text1.Text, "", "", "CalcService", "")<o:p></o:p>
If Err.Number <> 0 Then<o:p></o:p>
MsgBox SoapClient.FaultString, vbExclamation<o:p></o:p>
Exit Sub<o:p></o:p>
End If<o:p></o:p>
' Now the client can call an operation listed in the portType element<o:p></o:p>
' specified when calling mssoapinit().<o:p></o:p>
Text4.Text = CStr(SoapClient.Add(Val(Text2.Text), Val(Text3.Text)))<o:p></o:p>
<o:p></o:p>
If Err.Number <> 0 Then<o:p></o:p>
MsgBox SoapClient.FaultString, vbExclamation<o:p></o:p>
Exit Sub<o:p></o:p>
End If<o:p></o:p>
End Sub<o:p></o:p>
<o:p></o:p>
Private Sub cmdMinus_Click()<o:p></o:p>
'测试substract方法<o:p></o:p>
On Error Resume Next<o:p></o:p>
Dim SoapClient As Object<o:p></o:p>
<o:p></o:p>
Set SoapClient = CreateObject("MSSOAP.SoapClient30")<o:p></o:p>
Call SoapClient.MSSoapInit2(Text1.Text, "", "", "CalcService", "")<o:p></o:p>
If Err.Number <> 0 Then<o:p></o:p>
MsgBox SoapClient.FaultString, vbExclamation<o:p></o:p>
Exit Sub<o:p></o:p>
End If<o:p></o:p>
' Now the client can call an operation listed in the portType element<o:p></o:p>
' specified when calling mssoapinit().<o:p></o:p>
Text7.Text = CStr(SoapClient.subtract(Val(Text5.Text), Val(Text6.Text)))<o:p></o:p>
<o:p></o:p>
If Err.Number <> 0 Then<o:p></o:p>
MsgBox SoapClient.FaultString, vbExclamation<o:p></o:p>
Exit Sub<o:p></o:p>
End If<o:p></o:p>
End Sub
|
相关推荐
VBA连接SQLSERVER数据库实例
VBAS 使用 SoapToolkit 调用 WebService 参考文档、软体实例。、
使用Excel通过VBA连接Oracle数据库查询数据,可以实现一键自动快速生成所需的多个标准报表,大大地提高工作效率,节省很多时间。
vba连接各种数据库字符串vba连接各种数据库字符串vba连接各种数据库字符串
VBA连接SQL数据库的代码。代码很简单,但是包含了不少初学者可能遇到的三个问题,一是长查询语句的换行问题,二是查询语句执行时间过长导致vba提示查询超时的问题,三是标题行和内容行怎么显示的问题。都很简单,...
EXCEL VBA 连接SAP,并通过BAPI读取数据
公司项目,vba连接mysql数据库开发的小程序
利用vba访问access数据库,想学习vba的值得一看
使用Excel中的VBA连接MySQL数据库,并进行增删查找等基本操作!很详细的资料,希望能够帮助大家。
在EXCEL中使用VBA连接MySQL服务器,操作数据库
vba数据库连接文件
AutoCAD默认安装包无VBA开发插件,安装完此插件后,可通过CAD菜单栏下的“工具”->“宏”进入VBA开发管理器。
一个简易的vba连接数据库并根据sql语句进行查询的excel报表,对刚入门的新手是入门教程
VBA 工具增强工具用于辅助开发VBA
用ODBC连接DB2数据的代码,以及ODBC的设定方法等简单说明及实例。
金蝶二次开发平台VBA参考手册,介绍二次开发中VBA的基本对象及使用方法
64位excel连接64位11goracle执行存储过程,返回结果集。
用于CATIA软件二次开发VBA基础教程
对于cad二次开发初级水平的朋友来说非常不错 赶紧下载哦
VBA开发快速入门 人人都会Excel开发 Excel调用第三方API接口 EXCEL开发资料HTTP协议 VBA使用 HTTP协议使用