Generic Class for InfoStore Queries ( VB)

[Turkbear]

Hi,
I use this class whenever I need to have InfoStore info in an app by passing whatever Query I need to it - I have it compiled into a dll for security and ease of use :

Namespace InfoStoreData

Public Class InfoObjectDataClass

Public InfoData As Object


Public Function GetIstoreInfo(ByVal QryStr As String) As Object
Dim oEnterpriseSessionMgr As Object
Dim oEnterpriseSession As Object
Dim InfoStore As Object
Dim res As Object

Dim username As String
Dim password As String
Dim cms As String
Dim authType As String
Dim Query As String

username="<validBOEUser>"
password="<pass>"
cms="<YourCMS>"
authType="secEnterprise"
oEnterpriseSessionMgr = CreateObject("CrystalEnterprise.SessionMgr")
oEnterpriseSession = oEnterpriseSessionMgr.Logon(username, password,cms,authType)
InfoStore = oEnterpriseSession.Service("","InfoStore")
Query = QryStr
res = InfoStore.Query(Query)
InfoData = res
Return InfoData
End Function

End Namespace

Saves lots of coding for different needs..

Hope it helps...





To Paraphrase:"The Help you get is proportional to the Help you give.."

 

[hilfy]

Hi Turkbear!

I have something along similar lines that I use from C#. It's a class called "BOECommon" that handles the connection to BO XI, provides the InfoStore for queries, and does a bunch of other things like translating an object name to an ID or vice versa.

I also have classes for things like scheduling reports, setting up users, etc. but they all use a BOECommon object to handle the actual connection to BO.

If you're interested in taking a look at it, it's available on my website at [URL unfurl="true"]http://www.geocities.com/geekgurl7/Intro.html[/url]

-Dell


A computer only does what you actually told it to do - not what you thought you told it to do.

 

[Turkbear]

Hi,
Thanks..I'll visit soon..


Always looking for tips..






To Paraphrase:"The Help you get is proportional to the Help you give.."