Sep 19

ASP.net 2.0操作SQL2000的基本语法

 <%@ 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 SqlConnection 
 Dim myCommand As SqlCommand 
 Dim ds as DataSet 
 '1.connect to sql server
 myConnection = New SqlConnection( "server=localhost;database=Pubs;uid=sa;pwd=professor" )
 myConnection.Open()
 la1.text="Connection Opened!"
 
 '2.Create a table
 myCommand = 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>

相关文章

日志评论

发表评论

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。