我没看但是根据提示这个是写XML的，好事VB的---哎。。。。QUICKSTART呀。。靠你就可以说几天了-.NET教程,XM_XML应用
日期：2008-11-20 浏览次数：20432 次
<%@ 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=&
<%@ 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=&
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
