📄 testvbclass.aspx

📁 聊天聊天聊天聊天聊天聊天

💻 ASPX

字号:

<%@ Import Namespace="SQLNameSpace" %>
<html>
<script language="VB" runat="server">
Dim Comp As SQLClass
Dim ConnStr      As String
Dim SQL          As String
Sub Page_Load(Source As Object, E As EventArgs) 
   Comp = New SQLClass()	
   Comp.ConnStr = "Provider=SQLOLEDB; Data Source=(local); Initial Catalog=ASPNET;User ID=sa;"
    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)
    sql = "Insert into Masters(code_display,code_category,type)"
    sql = sql + "Values ('test',701,'E')"
    Comp.RunSql(sql)
    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'"
    Comp.RunSql(sql)
    rebind
    Message.Text = "Deleted all test records..." 
End Sub

Sub Update_Click(Sender As Object, E As EventArgs)
    sql = "UPDATE Masters Set Opening = 90 WHERE code_display = 'test'"
    Comp.RunSQL(sql)
    rebind
	Message.Text = "Updated all test records: Set closing balance = 90...! " 
End Sub

Sub ReBind()
    Comp.SQL = "select * from Masters"
    DataGrid1.DataSource=Comp.populate()
    DataGrid1.DataBind()
End Sub
    
    	
 </script>
	<body style="background-color='beige'; font-family='verdana'; font-size='10pt'">
		<h3>
			<font face="Verdana">A DataBase Class in Visual Basic</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 + -