cNISRbRscLink Examples

See also

---

The following examples demonstrate how to use an instance of the cNISRbRscLink class to run a Remote Basic subroutine.

Visual Basic 6/Microsoft Office

Private Sub CallSUBR()
    Dim RB As NISRbDataLink.cNISRbRscLink
    Dim p1, p2 As String
       Dim ErrNo As Integer

       On Error Resume Next

       ' Create a Remote Basic object.
       Set RB = New NISRbDataLink.cNISRbRscLink
    Err.Clear
    With RB
        ' Set up the connection to the database.
        .System = "80db"
        .UserId = "SYSMAN"
        .Account = "SYSMAN"

        ' Connect to the database.
        .OpenLink

        ' Data to pass to the subroutine.
        p1 = "Data1"
        p2 = "Data2"

        ' If we are connected... 
              If .LinkOpen Then
                  ' Call a DataBasic subroutine.
            .CallSubroutine "SUBR", 2, _
                p1, NISRbDataLink.RSCMode.ParamInOut, _
                p2, NISRbDataLink.RSCMode.ParamInOut
            ErrNo = Err.Number
            If ErrNo = 0 Then
                     ' Display the results.
                MsgBox p1 & " " & p2, vbInformation
            Else
                      ' If anything went wrong, tell the user.          If ErrNo < 0 Then ErrNo = ErrNo - vbObjectError
                Debug.Print "Err.Number=" & CStr(ErrNo) _
                    & " Err.Description=" & Err.Description
                MsgBox Err.Description, vbExclamation
            End If
              End If
        
             ' Close the link, ignoring errors (guaranteed successful,
        ' even if connection was not established).
        .CloseLink True
            End With

    Err.Clear
    On Error GoTo 0
        End Sub

Visual Basic .Net

Private Sub CallSUBR()
    Dim RB As NISRbDataLink.cNISRbRscLink = Nothing
    Dim p1 As    String
    Dim p2 As    String     

    Try     ' Create a Remote Basic object.
        RB = New NISRbDataLink.cNISRbRscLink
        With RB
            ' Set up the connection to the database.
            .System = "80db"
            .UserID = "SYSMAN"
            .Password = ""
            .Account = "SYSMAN"     ' Connect to the database.
            .OpenLink()

            ' Data to pass to the subroutine.
            p1 = "Data1"
            p2 = "Data2"

            ' If we are connected...
            If .LinkOpen Then
                ' Call a DataBasic subroutine.
                .CallSubroutine("SUBR", 2, _
                    p1, NISRbDataLink.RSCMode.ParamInOut, _
                    p2, NISRbDataLink.RSCMode.ParamInOut)
                ' Display the results.
                MsgBox(p1 + " " + p2, MsgBoxStyle.Information)
            End If
        End With

    Catch ec As Runtime.InteropServices.COMException
        ' If anything went wrong, tell the user.
        Debug.Print "Error number=" + Cstr(ec.ErrorCode - vbObjectError) _
            & " Error description=" & ec.Message
        MsgBox(ec.Message, MsgBoxStyle.Exclamation)

    Catch ex As Exception
        Debug.Print ec.Message
        MsgBox(ex.Message, MsgBoxStyle.Exclamation)

    Finally
            ' Close the link, ignoring errors (guaranteed successful,
        ' even if connection was not established).
        RB.CloseLink(True)
    End Try     End Sub

See Also

Remote Basic ActiveX Control
cNISRbRscLink Class
cNISRbRscLink Members
cNISRbRscLink Errors