给初学的朋友们,datagrid用xml作为数据源,并且有更新,删除和排序的操作(VB)
来源:互联网 发布:北京网络维护培训 编辑:程序博客网 时间:2024/06/10 12:44
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
<%@ Import Namespace="System.Data" %>
<html>
<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
If Not (IsPostBack)
DataLoad("isbn")
End If
End Sub
Sub DataLoad(parmsort as string)
Dim ds As New DataSet
Dim FS As New FileStream(Server.MapPath("books.xml"), FileMode.Open)
ds.Readxml(FS)
Mydatagrid.DataSource = new DataView(ds.Tables(0))
Mydatagrid.DataBind()
FS.close()
END SUB
Sub DataSort(Src As Object, E As datagridSortCommandEventArgs)
' Bug if we sort, then Edit Item Becomes Wrong
IF Mydatagrid.EditItemIndex=-1 THEN
DataLoad(e.sortexpression)
ELSE
response.write ("Can't sort until editing is done!")
END IF
End Sub
Sub DataDelete(Sender As Object, E As datagridCommandEventArgs)
DIM deletekey as string
IF Mydatagrid.EditItemIndex=-1 THEN
deletekey=Mydatagrid.DataKeys(CInt(E.Item.ItemIndex))
response.write ("deleted " & deletekey)
ELSE
response.write ("Can't delete until editing is done!")
END IF
END SUB
Sub DataEdit(Sender As Object, E As datagridCommandEventArgs)
DIM editkey as string
Mydatagrid.EditItemIndex = Cint(E.Item.ItemIndex)
editkey=Mydatagrid.DataKeys(CInt(E.Item.ItemIndex))
'response.write ("To Be Edited" & editkey)
DataLoad("")
End Sub
Sub DataCancel(Sender As Object, E As datagridCommandEventArgs)
Mydatagrid.EditItemIndex = -1
response.write ("edit was cancelled")
DataLoad("")
End Sub
Sub DataUpdate(Sender As Object, E As datagridCommandEventArgs)
DIM editkey as string
Mydatagrid.EditItemIndex = -1
editkey = Mydatagrid.DataKeys(CInt(E.Item.ItemIndex))
response.write ("To Be Updated " & editkey)
DataLoad("")
' howmanycols = E.Item.Cells.Count
End Sub
</script>
<body>
<h3><font face="Verdana">The Best Books Ever</font>
<span runat="server" id="MySpan"/></h3>
<form runat="server">
<ASP:datagrid id="Mydatagrid" runat="server"
AllowSorting="true"
OnSortCommand="DataSort"
OnDeleteCommand="DataDelete"
OnEditCommand="DataEdit"
OnCancelCommand="DataCancel"
OnUpdateCommand="DataUpdate"
DataKeyField="isbn"
Width="100%"
BackColor="white"
BorderColor="black"
ShowFooter="false"
CellPadding=3
CellSpacing="0"
Font-Name="Verdana"
Font-Size="8pt"
Headerstyle-BackColor="lightblue"
Headerstyle-Font-Size="10pt"
Headerstyle-Font-Style="bold"
MaintainState="true"
>
<Columns>
<asp:ButtonColumn Text="Delete Book" CommandName="Delete"/>
<asp:EditCommandColumn EditText="Edit" CancelText="Cancel" UpdateText="Update" ItemStyle-Wrap="false"/>
</columns>
</ASP:datagrid>
</form>
</body>
</html>
By the way, here is the xml source for this example:
Run This Code
<books>
<book>
<isbn>0070653623</isbn>
<author>Jack Trout, Steve Rivkin</author>
<title>The Power of Simplicity</title>
<category>selfhelp</category>
<comments>A Real Fun Read</comments>
</book>
<book>
<isbn>0887306667</isbn>
<author>Al Reiss, Jack Trout</author>
<title>22 Immutable Laws of Marketing</title>
<category>marketing</category>
<comments>This team offers more profound advice about creating world class marketing campaigns that will be viable for a hundred years.</comments>
</book>
<book>
<isbn>0887309372</isbn>
<author>Al Reiss, Laura Reiss</author>
<title>22 Immutable Laws of Branding</title>
<category>marketing</category>
<comments>This book is great for people who used 22 Immutable Laws of Marketing to build a brand and now want to strengthen that brand.</comments>
</book>
<book>
<isbn>0679757651</isbn>
<author>Tom Peters</author>
<title>Circle of Innovation</title>
<category>marketing</category>
<comments>His most recent book is his best by far!</comments>
</book>
<book>
<isbn>0884270610</isbn>
<author>Eli Goldthrait</author>
<title>The Goal</title>
<category>management</category>
<comments>Advocate of Theory of Constraints as applied to managment and optimization.</comments>
</book>
<book>
<isbn>068485600X</isbn>
<author>Jeff Cox, Howard Stevens</author>
<title>Selling the Wheel</title>
<category>management</category>
<comments>Excellent Treatise/Novel on the entire Sales Cycle</comments>
</book>
<book>
<isbn>0672316498</isbn>
<author>Alan Cooper</author>
<title>The Inmates Are Running The Asylum</title>
<category>management</category>
<comments>The father of Visual Basic and creator of the new art of Interaction Design - very valuable in designing websites. Basically the worlds most cutting edge thinker in User Interface design aimed at simplifying software use.</comments>
</book>
</books>
给初学的朋友们,datagrid用xml作为数据源,并且有更新,删除和排序的操作(VB)';return true">
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
<%@ Import Namespace="System.IO" %><%@ Import Namespace="System.Data" %>
<html>
<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
If Not (IsPostBack)
DataLoad("isbn")
End If
End Sub
Sub DataLoad(parmsort as string)
Dim ds As New DataSet
Dim FS As New FileStream(Server.MapPath("books.xml"), FileMode.Open)
ds.Readxml(FS)
Mydatagrid.DataSource = new DataView(ds.Tables(0))
Mydatagrid.DataBind()
FS.close()
END SUB
Sub DataSort(Src As Object, E As datagridSortCommandEventArgs)
' Bug if we sort, then Edit Item Becomes Wrong
IF Mydatagrid.EditItemIndex=-1 THEN
DataLoad(e.sortexpression)
ELSE
response.write ("Can't sort until editing is done!")
END IF
End Sub
Sub DataDelete(Sender As Object, E As datagridCommandEventArgs)
DIM deletekey as string
IF Mydatagrid.EditItemIndex=-1 THEN
deletekey=Mydatagrid.DataKeys(CInt(E.Item.ItemIndex))
response.write ("deleted " & deletekey)
ELSE
response.write ("Can't delete until editing is done!")
END IF
END SUB
Sub DataEdit(Sender As Object, E As datagridCommandEventArgs)
DIM editkey as string
Mydatagrid.EditItemIndex = Cint(E.Item.ItemIndex)
editkey=Mydatagrid.DataKeys(CInt(E.Item.ItemIndex))
'response.write ("To Be Edited" & editkey)
DataLoad("")
End Sub
Sub DataCancel(Sender As Object, E As datagridCommandEventArgs)
Mydatagrid.EditItemIndex = -1
response.write ("edit was cancelled")
DataLoad("")
End Sub
Sub DataUpdate(Sender As Object, E As datagridCommandEventArgs)
DIM editkey as string
Mydatagrid.EditItemIndex = -1
editkey = Mydatagrid.DataKeys(CInt(E.Item.ItemIndex))
response.write ("To Be Updated " & editkey)
DataLoad("")
' howmanycols = E.Item.Cells.Count
End Sub
</script>
<body>
<h3><font face="Verdana">The Best Books Ever</font>
<span runat="server" id="MySpan"/></h3>
<form runat="server">
<ASP:datagrid id="Mydatagrid" runat="server"
AllowSorting="true"
OnSortCommand="DataSort"
OnDeleteCommand="DataDelete"
OnEditCommand="DataEdit"
OnCancelCommand="DataCancel"
OnUpdateCommand="DataUpdate"
DataKeyField="isbn"
Width="100%"
BackColor="white"
BorderColor="black"
ShowFooter="false"
CellPadding=3
CellSpacing="0"
Font-Name="Verdana"
Font-Size="8pt"
Headerstyle-BackColor="lightblue"
Headerstyle-Font-Size="10pt"
Headerstyle-Font-Style="bold"
MaintainState="true"
>
<Columns>
<asp:ButtonColumn Text="Delete Book" CommandName="Delete"/>
<asp:EditCommandColumn EditText="Edit" CancelText="Cancel" UpdateText="Update" ItemStyle-Wrap="false"/>
</columns>
</ASP:datagrid>
</form>
</body>
</html>
By the way, here is the xml source for this example:
Run This Code
<books>
<book>
<isbn>0070653623</isbn>
<author>Jack Trout, Steve Rivkin</author>
<title>The Power of Simplicity</title>
<category>selfhelp</category>
<comments>A Real Fun Read</comments>
</book>
<book>
<isbn>0887306667</isbn>
<author>Al Reiss, Jack Trout</author>
<title>22 Immutable Laws of Marketing</title>
<category>marketing</category>
<comments>This team offers more profound advice about creating world class marketing campaigns that will be viable for a hundred years.</comments>
</book>
<book>
<isbn>0887309372</isbn>
<author>Al Reiss, Laura Reiss</author>
<title>22 Immutable Laws of Branding</title>
<category>marketing</category>
<comments>This book is great for people who used 22 Immutable Laws of Marketing to build a brand and now want to strengthen that brand.</comments>
</book>
<book>
<isbn>0679757651</isbn>
<author>Tom Peters</author>
<title>Circle of Innovation</title>
<category>marketing</category>
<comments>His most recent book is his best by far!</comments>
</book>
<book>
<isbn>0884270610</isbn>
<author>Eli Goldthrait</author>
<title>The Goal</title>
<category>management</category>
<comments>Advocate of Theory of Constraints as applied to managment and optimization.</comments>
</book>
<book>
<isbn>068485600X</isbn>
<author>Jeff Cox, Howard Stevens</author>
<title>Selling the Wheel</title>
<category>management</category>
<comments>Excellent Treatise/Novel on the entire Sales Cycle</comments>
</book>
<book>
<isbn>0672316498</isbn>
<author>Alan Cooper</author>
<title>The Inmates Are Running The Asylum</title>
<category>management</category>
<comments>The father of Visual Basic and creator of the new art of Interaction Design - very valuable in designing websites. Basically the worlds most cutting edge thinker in User Interface design aimed at simplifying software use.</comments>
</book>
</books>
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
- 给初学的朋友们,datagrid用xml作为数据源,并且有更新,删除和排序的操作(VB)
- 用vb做的语音课件,用xml作为数据源
- 分享给初学Linux的朋友们
- DataGrid 数据源XML的实例(Tested)
- .net中XML文件作为数据源的操作类
- Flex之DataGrid和Tree控件的数据源XML格式
- 给优柔寡断和喜欢胡思乱想的朋友们!
- 给远行的朋友们
- 给计算机的朋友们
- DataGrid的使用入门(添加、删除和修改操作)
- FusionChart图表控件 点击事件(XML和JSON作为数据源时的分别处理方式)
- flex XML 作为数据源的实例(TESTED)
- 适合初学ORACLE9的朋友们
- 写给初学编程的朋友们
- 献给初学.net的朋友们!
- 添加删除、更新按钮的提示确认信息,以及DATAGRID的添加、插入、更新、删除操作。
- WPF的DataGrid数据源中的数据更新后,如何保持视图正确排序
- [VB.NET]datagrid的记录已删除,怎么更新到数据库???
- 多語言版vfp程序設計簡單實現
- 安全第一:.NET加密技术指南(1)
- 使Response窗口可以改变大小
- 动态加载服务器控件(整理)
- ORACLE SQL性能优化系列 (七)
- 给初学的朋友们,datagrid用xml作为数据源,并且有更新,删除和排序的操作(VB)
- ORA-01034错误的解决办法
- Accessing an Excel Spreadsheet in ASP.NET (VB and
- 可视化模型软件应用程序
- ORACLE DATE和TIMESTAMP数据类型的比较(二)
- webservice系列教学(4)-如何调用webservice(pb,java)
- 存货——存货的计价
- Microsoft .NET 中的基类继承(2)
- ORACLE坏块(ORA-01578)处理方法