How to Build a Business Rules Engine

adOpenKeyset, adLockOptimistic, adCmdText

Do While Not rstRel.EOF

strSQL = "UPDATE COL_COLUMN_M SET COL_REFTABFK_I = 'Y' " _

& " WHERE COL_C = '" & rstRel("COL_CHILD_C") & "'"

cmd.CommandText = strSQL

cmd.Execute lngAffected

rstRel.MoveNext

Loop

rstRel.Close

Set rstRel = Nothing

Set cmd = Nothing

End Function

Reference Data Default Values 193

Reference Data Default Values

Reference data is usually regarded as business data, and nearly all systems have screens

that manage it. Thus, there is no point building the functionality to manage refer-

ence data in the business rules engine. However, there is one other aspect of refer-

ence data that does need to be captured. As discussed previously, reference data is

used to identify subtypes. In the design presented ...