我們正在將IBM Websphere MQ移動到不同的服務器(VB6應用程序將位於不同的服務器中)。 我需要填充SET服務器字段。 我正在使用MQAX200.DLL連接到MQ。添加服務器詳細信息以連接到VB6中的IBM Websphere MQ系列
請讓我知道如何從vb6連接到不同的服務器。
下面是我們目前正在使用連接到隊列管理器代碼:
Form1.txtstreamLog_File.WriteLine Date & " " & Time & " STATUS: Attempting to connect to the MQ Queue Manager: " & Form1.strManagerQueueName
Set mconMQ = New MQAX200.MQQueueManager
With mconMQ
'Set the Name of the Queue Manager (or allow to default)
.Name = Form1.strManagerQueueName
'Connect to Queue Manager
.Connect
'Get Connect Method Results & Display
mlngConnectionHandle = .ConnectionHandle
'Check Completion Code
If .CompletionCode <> MQCC_OK Then
Form1.txtstreamLog_File.WriteLine Date & " " & Time & " ERROR: Failed to connect to Queue Manager: " & Form1.strManagerQueueName & vbCr & _
"Reason Code: " & .ReasonCode & vbCr & _
"Reason Text: " & .ReasonName
ConnectQueueManager = False
Exit Function
End If
End With 'mconMQ
Form1.txtstreamLog_File.WriteLine Date & " " & Time & " STATUS: Connected to the Queue Manager successfully"
ConnectQueueManager = True
Exit Function
MQ管理器和隊列位於不同的服務器上。我通過MQAX200連接到MQ。 'code'隨着MQAX200.MQQueueManager 「設置隊列管理器的名稱(或允許默認) 請將.Name = Form1.strManagerQueueName .ChannelAutoDefinition.ChannelName = 「%CL.SELECTA.SELQMD1」 .ChannelAutoDefinition.ConnectionName =「 selmqrhd11「 '連接到隊列管理器 。連接'代碼' –
對不起,我在這裏試圖測試代碼,但它不工作。請找到上面的代碼,它是一個工作版本,目前正在使用。正如你所看到的,這裏沒有提供服務器/連接名稱。這就是我想知道在哪裏可以設置服務器/連接名稱? –
它用於與位於同一服務器上的隊列管理器相連。 現在我們要將這個MQ移動到不同的服務器上。 所以我必須編寫一個新的代碼來連接到位於不同服務器上的MQ。 –