我是如此爱你课文:会asp.net的朋友帮我改一下程序啊?谢谢了啊

来源:百度文库 编辑:高考问答 时间:2024/04/27 15:24:16
<%@ 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

myConnection = New SqlConnection( "server=localhost;database=std;uid=sa;pwd=123456" )
myConnection.Open()

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()

sub tianjia_click(sender as Object,e as EventArgs)
myCommand=New SqlCommand("Insert into [test] (name,sex) values( 'tb1','tb2' )",myConnection)
myCommand.ExecuteNonQuery()
end sub

myCommand = New SqlCommand( "select * from [text]", myConnection )
MyDataGrid.DataSource=myCommand.ExecuteReader()
MyDataGrid.DataBind()
end sub
</script>
<html>
<body>
<form runat="server">
<p>
<asp:textbox ID="tb1" runat="server" />
<br>
<asp:textbox id="tb2" runat="server" />
</p>
<asp:Button id="bt" text="提交" onclick="tianjia_click" runat="server"/>
</form>
<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>
这段代码运行不了啊?应如何改?谢谢解答。