I was just wondering if anyone knew anything about the command initializerepository. I have been using vba to connect to DB2 tables on a server. To do that, I used the InitializeServer command (actually, my manager set that up - I have never used IntializeServer when writing vba from scratch). I don't understand exactly how the InitializeServer command works, because when you press F1 on that command, you get the "Keyword not found" message.
My company recently updated their server and went from using the IBM program QMF for Windows to using an IBM program called DataQuant which uses an "eclipse" server. Someone from IBM told us that in order to initialize the new software via vba, we need to use the InitializeRepository command. I tried adding the code that they suggested, but I get an error message stating "Object doesn't support this property or method". How can I get vba to recognize this command and get it to actually initialize my new server?
The code they told me to add is this:
In case you are wondering why I just don't go back to the people who sent me this code, it is because they charge my company every time we ask a question. My manager would like me to figure this out on my own without having to pay a consultation fee.
Any assistance you can provide would be greatly appreciated.
My company recently updated their server and went from using the IBM program QMF for Windows to using an IBM program called DataQuant which uses an "eclipse" server. Someone from IBM told us that in order to initialize the new software via vba, we need to use the InitializeRepository command. I tried adding the code that they suggested, but I get an error message stating "Object doesn't support this property or method". How can I get vba to recognize this command and get it to actually initialize my new server?
The code they told me to add is this:
Code:
[SIZE=3][FONT=Calibri]sResult = QMFWin.InitializeRepository("REPOSITORYCONN", 0, “REPCONUSER”, “REPCONPASS”)[/FONT][/SIZE]
[SIZE=3][FONT=Calibri] If sResult <> 0 Then[/FONT][/SIZE]
[SIZE=3][FONT=Calibri] iResponse = MsgBox(QMFWin.GetLastErrorString(), vbOKOnly, "Error: Repository Initialization")[/FONT][/SIZE]
[SIZE=3][FONT=Calibri] Exit Sub[/FONT][/SIZE]
[SIZE=3][FONT=Calibri] End If[/FONT][/SIZE]
In case you are wondering why I just don't go back to the people who sent me this code, it is because they charge my company every time we ask a question. My manager would like me to figure this out on my own without having to pay a consultation fee.
Any assistance you can provide would be greatly appreciated.