Rick,
The following comes from the Reality 15.2 documentation:
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
Web Services - Microsoft Visual Studio .NET Example
This example is written in Visual Basic.NET and consists of the code for a button click handler on a form. The class hb-ac13281.GETADDRESSService was created by adding a Web Reference to the WSDL file (http://hb-ac13281:8080/NorthgateWebServices/GETADDRESS?wsdl) using the Add Web Reference... command on the Project menu.
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim ga As hb-ac13281.GETADDRESSService
Dim companyName, addressLine, telephone, zip, id As String
companyName = ""
addressLine = ""
telephone = ""
zip = ""
id = TextBox1.Text
Try
ga = New hb-ac13281.GETADDRESSService
ga.GETADDRESS(id, companyName, addressLine, telephone, zip)
Catch ex As Exception
Debug.WriteLine(ex.Message)
End Try
Label2.Text = companyName & vbCrLf & addressLine & vbCrLf _
& zip & vbCrLf & telephone
End Sub
The code declares and initialises variables in which values will be passed to and returned by the GetAddress web service method (the id variable is set to a company ID that the user has entered into the TextBox1 control). The method is then called and the results displayed in the Label2 control. Code is included to handle any errors.
Chris Long
RA Services IT
--
You received this message because you are subscribed to
the "Pick and MultiValue Databases" group.
To post, email to: mvd...@googlegroups.com
To unsubscribe, email to: mvdbms+un...@googlegroups.com
For more options, visit http://groups.google.com/group/mvdbms
---
You received this message because you are subscribed to the Google Groups "Pick and MultiValue Databases" group.
To unsubscribe from this group and stop receiving emails from it, send an email to mvdbms+un...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/mvdbms/ce83494a-05ed-408b-9118-175482b839ad%40googlegroups.com.
Hi Keith,
There is a data transfer tool, QMSAVE, included in source form QM in the BP file of the QMSYS account. This can be moved to the Reality system and run to create an export file that can then be imported into QM using the QMRESTORE command.
There is a lengthy description of how to use the QMSAVE tool at the top of the source code. You will need to set it to the correct product version which should need nothing more than including a line
$DEFINE REALITY
A description of QMRESTORE is included in the QM Reference Manual.
Martin
From: mvd...@googlegroups.com <mvd...@googlegroups.com> On Behalf Of Keith Garrison
Sent: 12 September 2020 22:18
To: Pick and MultiValue Databases <mvd...@googlegroups.com>
--
You received this message because you are subscribed to
the "Pick and MultiValue Databases" group.
To post, email to: mvd...@googlegroups.com
To unsubscribe, email to: mvdbms+un...@googlegroups.com
For more options, visit http://groups.google.com/group/mvdbms
---
You received this message because you are subscribed to the Google Groups "Pick and MultiValue Databases" group.
To unsubscribe from this group and stop receiving emails from it, send an email to mvdbms+un...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/mvdbms/422621e0-eb4c-4fc1-a412-e92361c40182n%40googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/mvdbms/001e01d68a75%24c31665c0%2449433140%24%40ladybridge.com.