📄 newfile3.aspx
字号:
<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
dim conn as new OleDbConnection()
dim cmd as new OleDbCommand()
dim stu1 as new DataSet()
dim DtAdpt as new OleDbDataAdapter(cmd)
conn.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("Student.mdb")
End Sub
Sub Button1_Click(sender As Object, e As EventArgs)
dim conn as new OleDbConnection()
dim cmd as new OleDbCommand()
dim stu1 as new DataSet()
dim DtAdpt as new OleDbDataAdapter(cmd)
conn.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("Student.mdb")
conn.Open()
cmd.Connection=conn
cmd.CommandText= "select * from student1 where nameid=?"
dim pa as new OleDbParameter("@nameid",OleDbType.VarChar,10)
cmd.Parameters.Add(pa)
cmd.Parameters("@nameid").Value=textbox1.text
DtAdpt.Fill(stu1,"student1")
DataGrid1.DataSource=stu1
DataGrid1.DataBind()
conn.Close()
End Sub
Sub Button2_Click(sender As Object, e As EventArgs)
dim conn as new OleDbConnection()
dim cmd as new OleDbCommand()
dim stu1 as new DataSet()
dim DtAdpt as new OleDbDataAdapter(cmd)
conn.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("Student.mdb")
conn.Open()
cmd.Connection=conn
cmd.CommandText= "Insert into student1 Values(?)"
cmd.Parameters.Add(new OleDbParameter("@name",OleDbType.VarChar,10))
cmd.Parameters("@name").Value=textbox2.text
cmd.ExecuteNonQuery()
conn.Close()
End Sub
</script>
<html>
<head>
</head>
<body style="FONT-FAMILY: arial">
<h2>
</h2>
<form runat="server">
<p>
<asp:TextBox id="TextBox1" runat="server"></asp:TextBox>
<asp:Button id="Button1" onclick="Button1_Click" runat="server" Text="Click"></asp:Button>
<asp:datagrid id="DataGrid1" runat="server" Height="151px" EnableViewState="False" ForeColor="Black" BackColor="White" CellPadding="3" GridLines="None" CellSpacing="1">
<HeaderStyle font-bold="True" forecolor="White" backcolor="#4A3C8C"></HeaderStyle>
<ItemStyle backcolor="#DEDFDE"></ItemStyle>
</asp:datagrid>
</p>
<p>
</p>
<p>
<asp:TextBox id="TextBox2" runat="server"></asp:TextBox>
<asp:Button id="Button2" onclick="Button2_Click" runat="server" Text="rigist"></asp:Button>
</p>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -