Properti OriginalValue dan UnderlyingValue ADO

Definisi dan penggunaan

Properti OriginalValue dapat mengembalikan nilai variant yang mengandung nilai field yang ada sebelum pemanggilan method Update atau UpdateBatch terakhir.

Properti UnderlyingValue dapat mengembalikan nilai variant yang mengandung nilai saat ini suatu field. Nilai ini tidak akan menunjukkan perubahan yang disebabkan oleh pengguna lain, dan mungkin bukan nilai terbaru.

Petunjuk:Gunakan properti Resync objek Recordset untuk mendapatkan nilai terbaru semua objek Field dalam koleksi Fields.

Petunjuk:Kombinasi kedua properti ini dapat digunakan untuk mengatasi konflik yang muncul saat mengupdate massal.

语法

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..................
'Periksa perubahan
rs.movefirst
while rs.eof=false
  if objfield.OriginalValue<>objfield.UnderlyingValue then
    response.write("Data telah berubah!<br />")
    response.write("Nilai asli: ")
    response.write(objfield.OriginalValue & "<br />")
    response.write("Nilai saat ini: ")
    response.write(objfield.UnderlyingValue & "<br />")
  end if
  rs.movenext
next
'Kode berikutnya...................
rs.Close
conn.close
%>