IDatabaseObject
IDatabaseObject_Save As DBO.SQLFieldValues
This function should return an SQLFieldValues object populated with the fields to be written to the database. The first argument of the SQLFieldValues.Add function is the database field name, the second is the field's value.
Private Function IDatabaseObject_Save() As Dbo.SQLFieldValues
'Copy all of the relevant field values from the object to an
'SQLFieldValues object for saving to the database
Dim objFields As SQLFieldValues
Set objFields = New SQLFieldValues
objFields.Add "ProductName", pstrName
objFields.Add "UnitPrice", pcurUnitPrice
objFields.Add "UnitsOnOrder", pintUnitsOnOrder
Set IDatabaseObject_Save = objFields
End Function
This interface function/property is utilised by the following functions:
ObjectSave