ASP+中GetTitleAuthors和PutTitleAuthors应用例子
日期：2009-09-02 浏览次数：21161 次
<%@ Import Namespace="DataServices" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SQL" %>
<HTML>
<script language="C#" runat="server">
protected void Page_Load(Object Src, EventArgs E)
{
DataService d = new DataService();
DataSet myData = d.GetTitleAuthors();
Authors_DataGrid.DataSource=myData.Tables["Authors"].DefaultView;
Authors_DataGrid.DataBind();
Message.InnerHTML = "The number of rows is: " + myData.Tables["Authors"].Rows.Count.ToString();
}
protected void Submit_DataSet(Object Src, EventArgs E)
{
DataService d = new DataService();
DataSet myData = d.GetTitleAuthors();
//Remove three rows from the Authors table
myData.Tables["Authors"].Rows.Remove(0);
myData.Tables["Authors"].Rows.Remove(1);
myData.Tables["Authors"].Rows.Remove(2);
int rowCount = d.PutTitleAuthors(myData);
Message.InnerHTML = "The modified number of rows is: " + rowCount.ToString();
}
</script>
<body style="font: 10pt verdana">
<h4>Using Data Access with Web Services</h4>
<form runat="server">
<input type="submit" OnServerclick="Submit_DataSet" value="Remove three rows from the DataSet"
runat="server"/>
<p>
<span id="Message" runat="server"/>
<p>
<ASP:DataGrid id="Authors_DataGrid" runat="server"
Width="700"
BackColor="#ccccff"
BorderColor="black"
ShowFooter="false"
CellPadding=3
CellSpacing="0"
Font-Name="Verdana"
Font-Size="8pt"
HeaderStyle-BackColor="#aaaadd"
MaintainState="false"
/>
</form>
</body>
--------#VB----------------
<%@ Import Namespace="DataServices" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SQL" %>
<HTML>
<script language="VB" runat="server">
Protected Sub Page_Load(Src As Object, E As EventArgs)
Dim D As DataService = New DataService()
Dim MyData As DataSet = D.GetTitleAuthors()
Authors_DataGrid.DataSource=MyData.Tables("Authors").DefaultView
Authors_DataGrid.DataBind()
Message.InnerHTML = "The number of rows is: " & MyData.Tables("Authors").Rows.Count.ToString()
End Sub
Protected Sub Submit_DataSet(Src As Object, E As EventArgs)
Dim D As DataService = New DataService()
Dim MyData As DataSet = D.GetTitleAuthors()
'Remove three rows from the Authors table
MyData.Tables("Authors").Rows.Remove(0)
MyData.Tables("Authors").Rows.Remove(1)
MyData.Tables("Authors").Rows.Remove(2)
Dim RowCount As Integer = D.PutTitleAuthors(MyData)
Message.InnerHTML = "The modified number of rows is: " & RowCount.ToString()
End Sub
&
