خصائص OriginalValue و UnderlyingValue لـ ADO

العودة إلى دليل مرجعي ADO Field

التعريف والاستخدام

يمكن للخاصية OriginalValue إرجاع قيمة variant تحتوي على قيمة المجال التي كانت موجودة قبل إجراء مكالمة Update أو UpdateBatch.

يمكن للخاصية UnderlyingValue إرجاع قيمة variant تحتوي على القيمة الحالية لمجال معين. هذه القيمة لن تظهر بالضرورة التغييرات التي أحدثها المستخدمون الآخرون، وقد لا تكون أحدث القيم.

نصيحة:استخدم الخاصية Resync لـ Recordset لتحديث جميع قيم الأعضاء في مجموعة الأعضاء Fields.

نصيحة:يمكن استخدام هاتين الخاصيتين معًا لحل الخلافات التي قد تحدث أثناء التحديث الجماعي.

اللغة

objField.OriginalValue
objField.UnderlyingValue

مثال

<%
تعيين conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
فتح conn "c:/webdata/northwind.mdb"
تعيين rs = Server.CreateObject("ADODB.Recordset")
فتح rs "customers", conn
تعيين objfield=rs.fields("companyname")
بعض الكود..................
'تحقق من التغييرات
rs.movefirst
while rs.eof=false
  if objfield.OriginalValue<>objfield.UnderlyingValue then
    response.write("تم تغيير البيانات!<br />")
    response.write("القيمة الأصلية: ")
    response.write(objfield.OriginalValue & "<br />")
    response.write("القيمة الحالية: ")
    response.write(objfield.UnderlyingValue & "<br />")
  finishing if
  rs.movenext
التالي
'مزيد من الكود...................
rs.Close
conn.close
%>

العودة إلى دليل مرجعي ADO Field