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
%>