ASP Oracle Transaction (BeginTrans,CommitTrans,RollbackTrans) |
ASP Oracle Transaction (BeginTrans,CommitTrans,RollbackTrans) ตัวอย่างนี้จะเป็นการเขียนโปรแกรม ASP กับ Oracle ใช้งาน Transaction ในการตรวจสอบความถูกต้องก่อนการทำการบันทึกข้อมูลจริง หลักการคือ เมื่อมีการ BeginTrans แล้ว ภายใต้คำสั่งที่อยู่ในเงื่อนไนนี้จะมีการตรวจสอบว่ามีการทำงานถูกต้อง หรือมีข้อผิดพลาดหรือไม่ ถ้าไม่มีข้อผิดพลาดก็จะทำการ CommitTrans หรือถ้ามีข้อผิดพลาดโปรแกรมจะทำการ RollbackTrans คือยกเลิกข้อมูลที่ได้ทำการกระทำในแต่แรก
ทำความเข้าใจในฐานข้อมูล Oracle ในส่วนของ Transaction มีสิ่งที่เหนือกว่า SQL Server คือในขณะที่ทำการเปิด BeginTrans
สามารถเปิด RecordSet ใช้ได้หลายตัว (Multi RecordSet) โดยไม่ต้องทำการปิด RecordSet ก่อนหน้านี้
ซึ่งในจุดนี้เองที่ทำให้ Oracle สามารถเขียนโปรแกรมในรูปแบบ Transaction ที่ได้กว่า SQL Server มากทีเดียว
ตัวอย่าง
ตัวอย่างนี้จะเป็นการเพิ่มข้อมูล โดยผมได้สมมุติการเพิ่มข้อมูลซ้ำ ซึ่งมี Primary Key ชื่อ CustomerID ซึ่งจะสามารถเพิ่มข้อมูลสำเร็จใน Statement แรก และ Statement ที่ 2 จะไม่สามารถเพิ่มข้อมูลได้ และเมื่อมีการ RollBack ข้อมูล Statement แรกที่ถูก Insert ไปแล้วก็จะถูกยกเลิกในทันที สำหรับการใช้ Transaction สามารถใช้ได้ทั้งการ Insert/Update Record
AspOracleTransactionAddForm.asp
<html>
<head>
<title>ThaiCreate.Com ASP & Oracle Tutorial</title>
</head>
<body>
<form action=" AspOracleTransactionAddSave.asp" name="frmAdd" method="post">
<table width="600" border="1">
<tr>
<th width="91"> <div align="center">CustomerID </div></th>
<th width="160"> <div align="center">Name </div></th>
<th width="198"> <div align="center">Email </div></th>
<th width="97"> <div align="center">CountryCode </div></th>
<th width="70"> <div align="center">Budget </div></th>
<th width="70"> <div align="center">Used </div></th>
</tr>
<tr>
<td><div align="center"><input type="text" name="txtCustomerID" size="5"></div></td>
<td><input type="text" name="txtName" size="20"></td>
<td><input type="text" name="txtEmail" size="20"></td>
<td><div align="center"><input type="text" name="txtCountryCode" size="2"></div></td>
<td align="right"><input type="text" name="txtBudget" size="5"></td>
<td align="right"><input type="text" name="txtUsed" size="5"></td>
</tr>
</table>
<input type="submit" name="submit" value="submit">
</form>
</body>
</html>
Screenshot
AspOracleTransactionAddSave.asp
<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP & Oracle Tutorial</title>
</head>
<body>
<%
Dim Conn,strSQL,objExec
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "Driver={Oracle in OraHome92};DBQ=TCDB;UID=myuser;PWD=mypassword;"
On Error Resume Next '*** Error Resume ***'
'*** Transaction Start ***'
Conn.BeginTrans
'*** Save Form ***'
strSQL = ""
strSQL = strSQL &"INSERT INTO customer "
strSQL = strSQL &"(CustomerID,Name,Email,CountryCode,Budget,Used) "
strSQL = strSQL &"VALUES "
strSQL = strSQL &"('"&Request.Form("txtCustomerID")&"','"&Request.Form("txtName")&"', '"&Request.Form("txtEmail")&"' "
strSQL = strSQL &",'"&Request.Form("txtCountryCode")&"','"&Request.Form("txtBudget")&"', '"&Request.Form("txtUsed")&"') "
Set objExec = Conn.Execute(strSQL)
Set objExec = Nothing
'*** Already Exist Save Form (CustomerID is PK)***'
strSQL = ""
strSQL = strSQL &"INSERT INTO customer "
strSQL = strSQL &"(CustomerID,Name,Email,CountryCode,Budget,Used) "
strSQL = strSQL &"VALUES "
strSQL = strSQL &"('"&Request.Form("txtCustomerID")&"','"&Request.Form("txtName")&"', '"&Request.Form("txtEmail")&"' "
strSQL = strSQL &",'"&Request.Form("txtCountryCode")&"','"&Request.Form("txtBudget")&"', '"&Request.Form("txtUsed")&"') "
Set objExec = Conn.Execute(strSQL)
Set objExec = Nothing
If Err.Number = 0 Then
'*** Commit Transaction ***'
Conn.CommitTrans
Response.write("Save Done.")
Else
'*** Rollback Transaction ***'
Conn.RollbackTrans
Response.write("Error Save ["&strSQL&"] ("&Err.Description&")")
End If
Conn.Close()
Set objExec = Nothing
Set Conn = Nothing
%>
</body>
</html>
Screenshot
Error MessageError Save [INSERT INTO customer (CustomerID,Name,Email,CountryCode,Budget,Used) VALUES
('C006','Super Man','[email protected]' ,'US','7000000','0') ]
([Oracle][ODBC][Ora]ORA-00001: unique constraint (MYUSER.PK_CUSTOMERID) violated )
|
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 01
