主题：淘宝开放平台 api 示例 [申请加精]

1、下载 官方版.net sdk

2、外部引用 TopSdk.dll

3、说明书中 代码示例

?.NET版本

n不需要登录（sessionKey）的API调用

ITopClient client = new DefaultTopClient("url", "appkey", "appsecret");

UserGetRequest req = new UserGetRequest();

req.Fields = "user_id,nick,created,buyer_credit,type,sex";

req.Nick = "helloworld";

UserGetResponse rsp = client.Execute(req);

if (rsp.IsError)

{

Console.WriteLine(rsp.Body);

}

转成vb.net 的代码为：

此主题相关图片如下：qq截图未命名asdfaaaaaaaaa.png

示例1.读取店铺商品信息列表

此主题相关图片如下：读取信息.gif

相关网址：

http://my.open.taobao.com/apidoc/main.htm

快速上手指南

示例代码（包含SDK）

呵呵，做个连接好的例子，取出来数据，再给你加精。

<?xml version="1.0" encoding="utf-8" ?><user_get_response><user><buyer_credit><good_num>0</good_num><level>0</level><score>0</score><total_num>0</total_num></buyer_credit><created>2009-09-30 11:19:03</created><nick>sandbox_c_1</nick><sex>f</sex><type>C</type><user_id>175978269</user_id></user></user_get_response><!--vsandbox068048.cm4-->

这个xml 如何转换成 table？

获取 某 店铺的商品列表。

此主题相关图片如下：qq截图未命名sdfsdfsdf.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目15.rar

折腾死我了，想研究的，自己看淘宝开放平台的文档

好像是开发版的

嘿嘿，整理份代码发上来给你们好了。

1、全局代码

Public Function CXmlToDataSet(ByVal xmlStr As String) As System.Data.DataSet
        If Not String.IsNullOrEmpty(xmlStr) Then
            Dim StrStream As System.IO.StringReader = Nothing
            Dim Xmlrdr As System.Xml.XmlTextReader = Nothing
            Try
                Dim ds As System.Data.DataSet = New System.Data.DataSet
                '读取字符串中的信息
                StrStream = New System.IO.StringReader(xmlStr)
                '获取StrStream中的数据
                Xmlrdr = New System.Xml.XmlTextReader(StrStream)
                'ds获取Xmlrdr中的数据          
                ds.ReadXml(Xmlrdr)
                Return ds
            Catch e As Exception
                Throw e
            Finally
                '释放资源
                If (Not (Xmlrdr) Is Nothing) Then
                    Xmlrdr.Close()
                    StrStream.Close()
                    StrStream.Dispose()
                End If
            End Try
        Else
            Return Nothing
        End If
    End Function

2、窗体->读取 按钮