Property

Cancel  -- (Boolean)

Access

Readonly

Description

oUTILITIES.Cancel - Will be True if the commando processor profile needs your script to stop running.

'Declare the oADO as a public variable

Public oADO

Private Sub PollDataBase()

Dim sSQL, dbRS

sSQL = "Select * From Customers"

'Open an ADO Recordset from this SQL statement

Set dbRS = oADO.OpenEditableRS(sSQL)

Do While Not dbRS.Eof

 'Give some CPU time to other running processes

 oUTILITIES.Yield

 '....Code

 '....Code

 '....Code

dbRS.MoveNext

If oUTILITIES.Cancel Then

   SMEvent.Raise "CANCEL", "The processor profile requested that I stop"

   Exit Do

End If

Loop

dbRS.Close

Set dbRS = Nothing

Exit Sub

End Sub 

Public Function PREPROCESS()

'The main preprocessing function called by the processor profile

  If Not oMSG.Testing Then 

      If Not ConnectToDataBase() Then

           SMEvent.Raise "ERROR", "Error connecting to database"

           PREPROCESS = False

           Exit Function

      End If

      Call PollDataBase

      'Clean up my ADO Connection object

      Set oADO = Nothing

  Else 

     'They are clicking the Test Preprocess() Function button

     Msgbox "I hear and obey", VBINFORMATION, "Test Succeeded"

  End If

  PREPROCESS = True

  Exit Function 

End Function

Private Function ConnectToDatabase()

Set oADO = New MS_SQLADO

With oADO 

   'Change these next 4 properties to valid values to test"

   .ServerName = oUTILITIES.MyComputerName

   .DatabaseName = "Northwind"

   .UserID = "sa"

   .Password = "password"

   .Timeout = 15

   If Not .Connect() Then

      Set oADO = Nothing 

      ConnectToDatabase = False 

      Exit Function 

   End If  

End With

   ConnectToDatabase = True

End Function