ADO OriginalValueและUnderlyingValue Properties
❮ อ้างอิงวัตถุภาคสนามที่สมบูรณ์
คุณสมบัติOriginalValueส่งกลับตัวแปรที่มีค่าฟิลด์ตามที่มีอยู่หลังจากการเรียกเมธอด Update หรือ UpdateBatch ครั้งล่าสุด
คุณสมบัติUnderlyingValueส่งกลับตัวแปรที่มีค่าปัจจุบันของเขตข้อมูล ค่านี้ไม่จำเป็นต้องแสดงการเปลี่ยนแปลงที่ทำโดยผู้ใช้รายอื่นและอาจไม่ใช่ค่าล่าสุด
เคล็ดลับ:ใช้คุณสมบัติ Resync ของออบเจ็กต์ Recordset เพื่อรับค่าล่าสุดสำหรับออบเจ็กต์ Field ทั้งหมดใน Fields Collection
เคล็ดลับ:สามารถใช้คุณสมบัติเหล่านี้ร่วมกันเพื่อป้องกันข้อขัดแย้งในการอัปเดต
ไวยากรณ์
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
%>
❮ อ้างอิงวัตถุภาคสนามที่สมบูรณ์