📄 listing1403.aspx
字号:
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script runat="server">
'declare connection
dim Conn as new OleDbConnection("Provider=" & _
"Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=H:\ASPNET\data\banking.mdb")
sub Page_Load(obj as object, e as eventargs)
dim objTrans as OleDbTransaction
dim objCmd as OleDbCommand = new OleDbCommand _
("DELETE from tblUsers where UserID = 32", Conn)
Conn.Open()
objTrans = Conn.BeginTransaction()
objCmd.Transaction = objTrans
try
objCmd.ExecuteNonQuery
objCmd.CommandText = "INSERT INTO tblUsers " & _
"(FirstName, LastName, Address, City, State, " & _
"Zip, Phone) VALUES " & _
"('Jose', 'Santiago', '34 Lake Drive', " & _
"'Yolktown', 'MA', '02515', '8006579876')"
objCmd.ExecuteNonQuery()
objTrans.Commit()
Label1.Text = "Both operations performed successfully"
catch ex as OleDbException
objTrans.RollBack()
Label1.Text = ex.Message & "<p>"
Label1.Text = "Both operations failed"
finally
objCmd.Connection.Close()
end try
end sub
</script>
<html><body>
<form runat="server">
<asp:Label id="Label1" runat="server"
maintainstate=false /><br>
</form>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -