<%@ Import Namespace="System.Data" %><%@ Import NameSpace="System.Data.SqlClient" %><script laguage="VB" runat="server">sub page_load(sender as Object,e as EventArgs)Dim myConnection As SqlConnectionDim myCommand As SqlCommandDim ds as DataSet'1.connect to sql servermyConnection = New SqlConnection( "server=localhost;database=Pubs;uid=ueytjdf;pwd=doekdf" )myConnection.Open()la1.text="Connection Opened!" '2.Create a tablemyCommand = New SqlCommand( "CREATE TABLE [test] ([id] [int] IDENTITY (1, 1) NOT NULL ,[name] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,[sex] [char] (10) COLLATE Chinese_PRC_CI_AS NULL )", myConnection )myCommand.ExecuteNonQuery()la2.text="New table created!" '2 添加纪录myCommand = New SqlCommand( "Insert into [test] (name,sex) values( '黄志文','男' )", myConnection )myCommand.ExecuteNonQuery()la3.text="New Record Inserted!" '3 更新数据myCommand = New SqlCommand( "UPDATE [test] SET name='Smith' where name='李明'", myConnection )myCommand.ExecuteNonQuery()la4.text="Record Updated!" '4 删除数据myCommand = New SqlCommand( "delete from [test] where name='Smith'", myConnection )myCommand.ExecuteNonQuery()la5.text="Record Deleted!" '5 用DataGrid显示数据myCommand = New SqlCommand( "select * from [test]", myConnection )MyDataGrid.DataSource=myCommand.ExecuteReader()MyDataGrid.DataBind()end sub</script><html><body><asp:label id="la1" runat="server" /><br><asp:label id="la2" runat="server" /><br><asp:label id="la3" runat="server" /><br><asp:label id="la4" runat="server" /><br><asp:label id="la5" runat="server" /><br><ASP:DataGrid id="MyDataGrid" runat="server"BorderColor="black"BorderWidth="1"GridLines="Both"CellPadding="3"CellSpacing="0"Font-Name="Verdana"Font-Size="10pt"HeaderStyle-BackColor="#aaaadd"AlternatingItemStyle-BackColor="#eeeeee"></asp:DataGrid> </body></html>
996
评论
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
查看更多评论
添加红包
