Proprietà OriginalValue e UnderlyingValue di ADO
Definizione e uso
L'attributo OriginalValue restituisce un valore variant che contiene il valore del campo esistente prima dell'ultima chiamata al metodo Update o UpdateBatch.
L'attributo UnderlyingValue restituisce un valore variant che contiene il valore corrente di un campo. Questo valore non mostra necessariamente le modifiche apportate da altri utenti e potrebbe non essere l'ultimo valore.
Suggerimento:Utilizzare l'attributo Resync dell'oggetto Recordset per ottenere i valori più recenti di tutti gli oggetti Field nella raccolta Fields.
Suggerimento:Queste due proprietà possono essere utilizzate insieme per risolvere i conflitti che si verificano durante l'aggiornamento in blocco.
sintassi
objField.OriginalValue objField.UnderlyingValue
istanza
<%
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..................
'Controlla le modifiche
rs.movefirst
while rs.eof=false
if objfield.OriginalValue<>objfield.UnderlyingValue then
response.write("I dati sono cambiati!<br />")
response.write("Valore originale: ")
response.write(objfield.OriginalValue & "<br />")
response.write("Valore corrente: ")
response.write(objfield.UnderlyingValue & "<br />")
fine if
rs.movenext
next
'Più codice...................
rs.Close
conn.close
%>
