Page History
Double click on the form. Paste Paste the following code:
Code Block |
---|
Option Explicit
Public Revelation As Revelation
Private Sub Command1_Click()
Dim Engine As RevSoftLib.IEngine
' Declare variables
Dim Result As Long
Dim Queue As Object
Dim strCmd As String
Dim RetVal As String
Dim myName As String
'Create the core Revelation object.
Set Revelation = New Revelation
Result = Revelation.CreateEngine(Engine, ":777", "SYSPROG", 0, 0)
MsgBox "Result after CreateEngine = " & Result
DoEvents
If Result = 0 Then
'Create an active Queue.
Result = Engine.CreateQueue(Queue, "777", "LAB", "LAB")
MsgBox "Result after CreateQueue Method = " & Result
If Result = 0 Then
'Call a Basic+ function...
Dim ReturnValue As String
Result = Queue.CallFunction(ReturnValue, "VB_READ_ROW", "GRANTS", "AIRFORCE")
MsgBox "AIRFORCE GRANT RECORD = " & ReturnValue
myName = "Ira Krakow"
Result = Queue.CallSubroutine("OI_CHANGE_NAME", myName)
MsgBox "After CallSubroutine, Name = " & myName
Queue.CloseQueue
End If
Engine.CloseEngine
End If
Set Queue = Nothing
Set Engine = Nothing
Set Revelation = Nothing
End Sub
|