Do While Not rstSource.EOF
strInd = "N"
strSrc1 = ""
strSrc2 = ""
dblSrc3 = 0
If Not IsNull(rstSource("CTY_C")) Then
strSrc1 = rstSource("CTY_C")
End If
If Not IsNull(rstSource("CTY_C")) Then
strSrc2 = rstSource("CTY_C")
End If
If Not IsNull(rstSource("INV_TOTAL_A")) Then
dblSrc3 = rstSource("INV_TOTAL_A")
End If
If strSrc1 <> "USA" _
And strSrc2 <> "CAN" _
And dblSrc3 >= 10000000 Then
strInd = "Y"
End If
If strInd = "Y" Then
strSQL = "UPDATE INV_INVESTMENT_S SET IRKT_C = 'HIGH'" _
& " WHERE INV_C = '" & rstSource("INV_C") & "'"
cmd.CommandText = strSQL
cmd.Execute lngAffected
End If
rstSource.MoveNext
Loop
rstSource.Close
404 CHAPTER EIGHTEEEN Setting Indicators and Reference Data Code Values
Conclusion
The two rule types discussed in this chapter operate in a batch processing ...