ADO OriginalValue ve UnderlyingValue Özellikleri

Tanım ve Kullanım

OriginalValue özelliği, en son Update veya UpdateBatch yöntemi çağrısı öncesinde mevcut olan bir alan değeri içeren bir variant değeri döndürebilir.

UnderlyingValue özelliği, bir alanın mevcut değerini içeren bir variant değeri döndürebilir. Bu değer, diğer kullanıcılar tarafından yapılan değişiklikleri gereksiz yere göstermez ve belki de en son değeri olmayabilir.

İpucu:Fields koleksiyonundaki tüm Field nesnelerinin en son değerlerini almak için Recordset nesnesinin Resync özelliğini kullanın.

İpucu:Bu iki özellik birlikte kullanıldığında, toplu güncelleme sırasında ortaya çıkan çatışmaları çözebilir.

Sözdizimi

objField.OriginalValue
objField.UnderlyingValue

Örnek

<%
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")
Baz kod..................
'Değişiklikleri kontrol et'
rs.movefirst
while rs.eof=false
  if objfield.OriginalValue<>objfield.UnderlyingValue then
    response.write("Veri değişti!<br />")
    response.write("Orijinal değer: ")
    response.write(objfield.OriginalValue & "<br />")
    response.write("Mevcut değer: ")
    response.write(objfield.UnderlyingValue & "<br />")
  end if
  rs.movenext
next
'Daha fazla kod...................
rs.Close
conn.close
%>