ADO OriginalValue og UnderlyingValue egenskaber
Definition og brug
OriginalValue-egenskaben kan returnere en variant-værdi, der indeholder værdien for et felt, der eksisterede før den sidste Update- eller UpdateBatch-metodekald.
UnderlyingValue-egenskaben kan returnere en variant-værdi, der indeholder den aktuelle værdi for et felt. Denne værdi viser ikke nødvendigvis ændringer, der er foretaget af andre brugere, og kan måske ikke være den nyeste værdi.
Tip:Brug Recordset-objektets Resync-egenskab for at få de nyeste værdier for alle Field-objekter i Fields-samlingen.
Tip:Disse to egenskaber kan bruges sammen for at løse konflikter, der opstår under batchopdateringer.
Syntaks
objField.OriginalValue objField.UnderlyingValue
Eksempel
<%
Sæt conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
Sæt rs = Server.CreateObject("ADODB.Recordset")
rs.open "customers", conn
Sæt objfield = rs.fields("companyname")
Vis nogle kode..................
'Check for changes
rs.movefirst
while rs.eof=false
if objfield.OriginalValue<>objfield.UnderlyingValue then
response.write("Data har ændret sig!<br />")
response.write("Original value: ")
response.write(objfield.OriginalValue & "<br />")
response.write("Current value: ")
response.write(objfield.UnderlyingValue & "<br />")
end if
rs.movenext
next
'Flere kode...................
rs.Close
conn.close
%>
