How to Build a Business Rules Engine

Extracting Relationship Data from the Data Modeling Tool 169

LISTING 10.1

Function to Populate Table REL_RELATIONSHIP_M and RKEY_RELKEYATT_M

Private Function PopRelation() As String

'*******************************************************************

' Populates the table REL_RELATIONSHIP_M with metadata imported

‘ from an external source and placed in the table

‘ IMPR_IMPORTREL_M.

'

' Parameters: None

'

' Returns: "Y" indicates successful completion

'*******************************************************************

Dim rstRel As ADODB.Recordset, strSQL As String, lngAffected As

Long

Dim cmd As ADODB.Command, strLastTab As String, strLastCol As

String

Dim strText As String, intCt As Integer, strRelNo As String

Dim rstPar As ADODB.Recordset, rstChild As ...