📄 actionqueries.aspx

📁 聊天聊天聊天聊天聊天聊天
💻 ASPX
字号:
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>

<html>

<script language="VB" runat="server">

Dim myConnection As OleDbConnection
Dim myCommand    As OleDbDataAdapter
Dim ds           As New DataSet
Dim ConnStr      As String
Dim SQL          As String

Sub Page_Load(Source As Object, E As EventArgs) 
   ConnStr = "Provider=SQLOLEDB; Data Source=(local); Initial Catalog=ASPNET;User ID=sa;"
   myConnection = New OleDbConnection(ConnStr)      

    if NOT (isPostBack)
	rebind
    end if	
End Sub

Sub Show_Click(Sender As Object, E As EventArgs)
    Message.Text = "Masters Table Displayed... "
    ReBind
End Sub

Sub Insert_click(Sender As Object, E As EventArgs)
	    try
		sql = "Insert into Masters(code_display,code_category,type)"
		sql = sql + "Values ('test',701,'E')"
		Dim mycommand As New OleDbCommand(sql,myConnection)
		myConnection.Open()
		myCommand.ExecuteNonQuery()
		myConnection.Close()
	    catch myException as Exception
		Response.Write("Exception: " + myException.ToString()) 
	    end try
	    rebind
	    Message.Text = "Inserted test record...  " 
End Sub

Sub Delete_click(Sender As Object, E As EventArgs)
	    sql = "delete from masters where code_display = 'test'"
	    Dim mycommand As New OleDbCommand(sql,myConnection)
	    myConnection.Open()
	    myCommand.ExecuteNonQuery()
	    myConnection.Close()
	    rebind
	    Message.Text = "Deleted all test records..." 
End Sub

Sub Update_Click(Sender As Object, E As EventArgs)

	    try
	     Dim mycommand As New OleDbCommand( _
	      "UPDATE Masters Set Opening = 90 WHERE code_display = 'test'",  _
	       myConnection)
	     myConnection.Open()
	     myCommand.ExecuteNonQuery()
	     myConnection.Close()

            catch myException as Exception
		Response.Write("Exception: " + myException.ToString()) 
            end try
	    rebind
	    Message.Text = "Updated all test records: Set closing balance = 90...! " 
End Sub

Sub ReBind()


  
    SQL = "select * from Masters"
    myCommand = New OleDbDataAdapter(SQL, myConnection)

    'use Fill method  to populate dataset
    myCommand.Fill(ds, "Masters")

    'Binding a Grid	
    DataGrid1.DataSource=ds.Tables("Masters").DefaultView
    DataGrid1.DataBind()

End Sub


</script>

<body>

<h3><font face="Verdana">Action Queries</font></h3>


<form  runat=server>

 <asp:button text="Refresh" Onclick="Show_Click" runat=server/>
 <asp:button text="Insert" Onclick="Insert_Click" runat=server/>
 <asp:button text="Update" Onclick="Update_Click" runat=server/>
 <asp:button text="Delete" Onclick="delete_Click" runat=server/>
 <asp:label id="Message"  runat=server/>
 <asp:DataGrid id="DataGrid1" runat="server" /> 


</form>

</body>

</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -