WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

OLE COM ADO CDO ADSI LDAP
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Sample Code to Query a MIMSXServer

Keywords: 	  OLE MIMSXServer

Here is some sample code to drag out the values of the fields from the reply from a MIMSXServer. You'll have to substitute the variables for the Request, Instance and Field numbers.
gobjMIMS = ObjectOpen("MIMSX.MIMSXServer")
gobjMIMS.initialise
gobjMIMS.connect()
apiv = gobjMIMS.MIMSAPIVersion
apih = gobjMIMS.MIMSAPIHandle
rc = gobjMIMS.Blocks
rc1 = rc.New("Employees")
rc2 = rc1.Requests
rc2.New("Request")
rc5 = rc1.Requests("Request")
rc6 = rc5.Instances
rc6.New("Instance")
rc8 = rc5.Instances("Instance")
rc5.AddFieldNameValue("_Service", "EMPLOYEE.Retrieve")
rc5.AddFieldNameValue("_ReplyList", "Employee,FirstName,LastName,Paygroup,Position,EmailAddress")
rc8.AddFieldNameValue("SearchStatus", "A")
Reply = rc1.Send

;need to substitute variables for the (1)'s below:
rp1 = Reply.Requests(1)
rp2 = rp1.Instances(1)
rp3 = rp2.Fields(1)
rp4 = rp3.Value
Message("Employee", StrTrim(rp4))
exit

Article ID:   W15234
File Created: 2002:09:05:13:50:46
Last Updated: 2002:09:05:13:50:46