ADO OriginalValue และ UnderlyingValue คุณสมบัติ
การประกาศและการใช้งาน
คุณสมบัติ OriginalValue สามารถกลับค่า variant ซึ่งมีค่าฟิลด์ที่มีอยู่ก่อนการเรียกใช้วิธี Update หรือ UpdateBatch
คุณสมบัติ UnderlyingValue สามารถกลับค่า variant ซึ่งมีค่าปัจจุบันของหนึ่งหลายฟิลด์ ค่านี้จะไม่แสดงความเปลี่ยนแปลงที่ทำโดยผู้ใช้อื่น และอาจไม่เป็นค่าล่าสุด
คำเตือน:ใช้คุณสมบัติ Resync ของ Recordset ตัวแทนเพื่อใช้งานค่าล่าสุดของทุก Field ในชุด Fields
คำเตือน:ทั้งสองคุณสมบัตินี้สามารถใช้ร่วมกันเพื่อแก้ปัญหาขัดแย้งที่เกิดขึ้นในระหว่างการปรับปรุงบัชชั่ต
การใช้งาน
objField.OriginalValue objField.UnderlyingValue
ตัวอย่าง
<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open "c:/webdata/northwind.mdb" set rs = Server.CreateObject("ADODB.Recordset") rs.open "customers", conn set objfield=rs.fields("companyname") Some code.................. 'Check for changes rs.movefirst while rs.eof=false if objfield.OriginalValue<>objfield.UnderlyingValue then response.write("Data has changed!<br />") response.write("Original value: ") response.write(objfield.OriginalValue & "<br />") response.write("Current value: ") response.write(objfield.UnderlyingValue & "<br />") end if rs.movenext next 'More code................... rs.Close conn.close %>