请教怎么在VB6中访问Web Services（在线等待）

Question

大家有没有什么资料提供下，谢谢！

Answer 1

参考http://www.pconline.com.cn/pcedu/empolder/net/0405/381852.html

Answer 2

http://blog.csdn.net/online/archive/2003/01/09/7757.aspx在VB中测试 
这个就要相对来说复杂一些 
首先在vb中建立一个”标准EXE”的工程。添加引用：Microsoft  Soap  Type  library。注意：如果没有安装Microsoft  Soap  Toolkit,是没有这个类型库的。 
可以在http://www.ourfly.com中下载。 
添加一个text 
Private  Sub  Form_Load() 
        Text1.Text  =  add() 
End  Sub Public  Function  Add()  As  String 
Dim  objSoapClient  As  New  SoapClient 
        objSoapClient.ClientProperty("ServerHTTPRequest")  =  True 
Call  objSoapClient.mssoapinit("http://localhost/webserver/service1.asmx?WSDL",  "Service1",  "Service1Soap") 
这句也可以 
objSoapClient.mssoapinit("http://localhost/webserver/service1.asmx?WSDL")         Add  =  objSoapClient.Show("龙卷风.NET") 
End  Function 

Answer 3

SONP Toolkit这里有下载：http://download.microsoft.com/download/xml/soap/2.0/W98NT42KMe/EN-US/SoapToolkit20.exe 
安装完成后在VB工程里引用Microsoft SOAP Type Library下面是我已经调通的一个简单例子：
服务端：
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'Webservice 的概念是使用一个标准的输出接口来定义代码提供的功能，以便让外界可以通过这个标准的输出
'接口来调用，而所谓的标准输出接口就是wsdl，wsdl是一个xml组成的文件，描述了实现程序对外提供函数的
'原型，客户端可以通过wsdl来调用实现程序提供的服务代码。
'
'
'服务端代码如下：(在这个例子中服务端用java完成，客户端用VB6.0完成，服务器是tomcat5.0)
'
'首先建立服务端程序:
'启动JBuilder建立一个工程，设置服务器为tomcat4.0（因为JBuilder9不支持tomcat5.0，实现后将其在
'tomcat5.0中发布）。
'新建一个class 代码如下:
'public class HelloWorld{
'  public String sayHello(){
'    return "Hello world!";
'  }
'  public String echo(String u){
'    return "Hello " + u;
'  }
'}
'选择File菜单New，在弹出的对话框中选择web services页中的Web Serivice Configuation Wizard，新建
'webapp axis并配置servers。
'再次选择File菜单，New再出现的窗口中选择Export as a web service Wizard，在弹出的向导中选择要导出
'的类名，其它项直接选默认值即可。
'运行刚才建立的程序，出现"JBuilder Apache Axis Admin Console"的页面表示刚才建立的webservice成功。
'点击View超级链接进入"And now... Some Services"页面，点击HelloWorld(WSDL)的链接出现WSDL描述文件，
'至此webservice服务端建立完成。
'
'将刚才建立的webservice发布到tomcat5.0中，在tomcat的webapps目录下新建webservicetest目录，将用
'JBulider建立的工程目录下的 axis目录下的文件全部复制到其中，重新启动tomcat，
'访问http://localhost:8080/webservicetest/，如果看到"JBuilder Apache Axis Admin Console"页面
'说明发布成功。
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\客户端：
Private Sub Command1_Click()
    Dim sc As SoapClient    '调用SOAP客户端
    Set sc = New SoapClient '进行实例化
    
    On Error Resume Next '出错时转到下一条语句
    
    sc.mssoapinit "http://192.168.1.6:8080/webserver/services/HelloWorld?wsdl"
    If Err Then
        MsgBox "SoapClient.mssoapinit failed. " & Err.Description, vbExclamation
        Err.Clear
        Exit Sub
    End If
    
    'Text1.Text = sc.sayHello()
    Text1.Text = sc.echo(Text1.Text)
    If Err Then
        MsgBox "SoapClient.echo failed. " & Err.Description & vbCrLf & sc.faultstring & vbCrLf & sc.detail, vbExclamation
        Err.Clear
        Exit Sub
    End If
End Sub

Answer 4

现在 的问题是：
我的Web Services 使用C#写的，返回的是DataSet，
我客户端使用VB6写的，主要是避免安装.NET框架，
我怎么在VB里面取得返回的DataSet,第一次用VB，很
不熟悉，最好能提供个例子，谢谢！

Answer 5

上面提到的下载网址，有专门的sample例子下载，针对各种开发语言的例子都有，自己下载看一下。