频道直达 - 专题 - 新闻 - 技巧 - 组网 - 开发 - 安全 - web编程 - 图像 - 操作系统 - 数据库 - 教育 - 旅游 - 健康 - 时尚 - 驱动 - 软件 - 游戏 - 多媒体 - ERP - 讨论组
阅读排行榜 | 收藏此文 | 收藏本站 | 设为首页

我没看但是根据提示这个是写XML的，好事VB的---哎。。。。QUICKSTART呀。。靠你就可以

来源： 作者： 出处：巧巧读书 2006-09-09 进入讨论组

　　<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>

<HTML>
<head>

    <script language="VB" runat="server">

        Public Source As DataView
        Public DS As DataSet
        Public GetSchemaChecked, GetDataChecked As Boolean

        Sub Submit_Click(Sender As Object, E As EventArgs)

            If (Page.IsPostBack)

                Dim MyConnection As SqlConnection
                Dim MyCommand As SqlDataAdapter

                MyConnection = New SqlConnection(ConnectString.Value)
                MyCommand = New SqlDataAdapter(MyText.Value, MyConnection)

                DS = New DataSet()
                MyCommand.Fill(DS, "Table")

                Source = New DataView(DS.Tables(0))

                GetSchemaChecked = GetSchema.Checked
                GetDataChecked = GetData.Checked

                MyDataGrid.DataSource=Source
                MyDataGrid.DataBind()
            End If
         End Sub

    </script>

</head>
<body bgcolor="ffffcc">

    <h3><font face="Verdana">SQL to XML Generator</font></h3>

    <form runat="server">

        <table border=0 cellpadding=5 style="font:10pt verdana">
        <tr>
          <td colspan="2">
            <b>Connect String:</b><br>
            <input id="ConnectString" type="text" value="server=(local)\NetSDK;database=pubs;Trusted_Connection=yes" size="85" runat="server">
          </td>
        </tr>
        <tr>
          <td colspan="2">
            <b>Query:</b><br>
            <input id="myText" type="text" value="select * from Authors" size="85" runat="server">
          </td>
        </tr>
        <tr>
          <td>
            <input type="radio" id="GetSchema" name="Mode" runat="server"/>Get XML Schema<br>
            <input type="radio" id="GetData" name="Mode" runat="server"/>Get XML Data<br>
            <input type="radio" id="GetBoth" name="Mode" checked runat="server"/>Get Both
          </td>
          <td valign="top">
            <input type="submit" runat="server" OnServerClick="Submit_Click">
          </td>
        </tr>
        <tr>
          <td colspan="2">

              <%  If Page.IsPostBack  %>
                  <b>Result:</b><br>
                  <textarea cols=80 rows=25>
              <%
                  If GetSchemaChecked
                      DS.WriteXMLSchema(Response.Output)
                  Else If GetDataChecked
                      DS.WriteXML(Response.Output, XMLWriteMode.IgnoreSchema)
                  Else
                      DS.WriteXML(Response.Output)
                  End If
              %>
                  </textarea>
              <%  End If  %>

          </td>
        </tr>
        <tr>
          <td colspan=&q来自:http://www.qqread.com/xml-soap/y238417.html 更多文章 更多内容请看XML详解专题，或进入讨论组讨论。
更多专题 【深 度 阅 读】 相 关 文 章
  • VC++中利用MSXML解析XML文档
  • Java解析XML文档——dom解析xml
  • 一个通过DataSet操作XML的类
  • 一个读取xml文件内容的类
    • 【收藏此文】【大 中 小】【打印】【关闭】
    较早的文章：在.NET中利用XMLHTTP下载文件

    较新的文章：我们为什么要用XML
    相关图文阅读
    频道图文推荐
    健 康 咨 询
    时 尚 咨 询
    巧巧读书宗旨
    相关专题
    更多排行>>
    最新论坛文章
    站内各频道最新更新文档
    站内最新制作专题
    热门关键字导读
    Photoshop教 程：照片处理 照片制作 PS快捷键 抠图
    计 算 机 故 障：XP系统修复
    艺 术 与 设 计：设计 流媒体 设计欣赏 边框
    计 算 机 安 全：ARP
    站内频道文章精选
    新闻资讯
    操作系统
    桌面开发
    数据库
    电脑技巧
    常用软件
    网络程序开发
    图像处理
    巧巧电脑频道编辑信箱  告诉我们您想看的专题或文章