×
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

When I run the programs using MSQMUI (BOC), I have to close MIMS. Why?

When I run the programs using MSQMUI (BOC), I have to close MIMS. Why?

When I run the programs using MSQMUI (BOC), I have to close MIMS. Why?

(OP)
I want to recreate the functionality of a MINT using objects MSQMUI (Mincom Connector).

I’m writing a Visual Basic program :

' Create Objects
Set gobjMIMSx = New MIMSXServer
Set gobjMIMSmui = New MSQMUILib.MimsApplication

' Login MSQmui
gobjMIMSmui.Silent = True
If gobjMIMSmui.Session.Login(gobjMIMSx.MIMSAPIHandle, True) = False Then GoTo ErrorHandle

If gobjMIMSmui.ExecuteMSO("MSO345", "", "", "N", "") = False Then GoTo ErrorHandle

'2. Modificar el Equipment Reference
gobjMIMSmui.MSO.Fields("REFERENCE_NO1I").Value = EquipRef
     
'Asignar el Component Code
gobjMIMSmui.MSO.Fields("COMP_CODE1I").Value = Comp_Code

'Enviar tecla <Enter>
gobjMIMSmui.MSO.Commands("OK").Execute


The program is executed correctly

but, i have a questions:

1. When I run the programs, I have to close MIMS.

   Are there any way to execute the programs without closing MIMS ?

Do you have any example?

Do you know the solutions for this problem?





 

RE: When I run the programs using MSQMUI (BOC), I have to close MIMS. Why?

(OP)
Is ready. Don´t worry

RE: When I run the programs using MSQMUI (BOC), I have to close MIMS. Why?

I use the 0,False parameters for the Session to allow an exisitng connection to be used or to start a new one if one does not. ie

  Set msqmui = New MSQMUILib.MimsApplication
  ActiveSheet.Range("H7") = "Connecting to MIMS ..."
  msqmui.Silent = True' Run MSQMUI Invisibly
  msqmui.Session.Login 1, False 'Silent Login

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members! Already a Member? Login


Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close