repeng.bas.txt

sql2000 DEVTOOLS INCLUDE

Public OBJID_ScriptsUsedByClass As Variant
Public OBJID_RInterafceUsesScript As Variant
Public OBJID_UsingInterfaces As Variant
Public OBJID_ScriptsUsedByInterface As Variant
Public OBJID_RMemberUsesScript As Variant
Public OBJID_UsingMember As Variant
Public OBJID_ScriptsUsedByMember As Variant
Public OBJID_IRepositoryTransaction2 As Variant
Public OBJID_IRepositoryTransaction2Transaction As Variant
Public OBJID_IRepositoryTransaction2JoinTransaction As Variant
Public OBJID_IReposProperty2 As Variant
Public OBJID_IReposObj2 As Variant
Public OBJID_EnumerationDef As Variant
Public OBJID_IEnumerationDef As Variant
Public OBJID_IEnumerationDefIsFlag As Variant
Public OBJID_IEnumerationDefValues As Variant
Public OBJID_IEnumerationDefEnumFor As Variant
Public OBJID_REnumerationValues As Variant
Public OBJID_EnumerationValueDef As Variant
Public OBJID_IEnumerationValueDef As Variant
Public OBJID_IEnumerationValueDefValue As Variant
Public OBJID_IEnumerationValueDefValueOf As Variant
Public OBJID_PropDefEnumerationDef As Variant
Public OBJID_REnumerationForProperty As Variant
Public OBJID_IViewClassDef As Variant
Public OBJID_IViewClassDefFlags As Variant
Public OBJID_IViewClassDefViewName As Variant
Public OBJID_IViewInterfaceDef As Variant
Public OBJID_IViewInterfaceDefFlags As Variant
Public OBJID_IViewInterfaceDefViewName As Variant
Public OBJID_IViewRelationshipDef As Variant
Public OBJID_IViewRelationshipDefFlags As Variant
Public OBJID_IViewRelationshipDefColumnNamePrefix As Variant
Public OBJID_IViewRelationshipDefJunctionViewName As Variant
Public OBJID_IViewPropertyDef As Variant
Public OBJID_IViewPropertyDefViewColumnName As Variant
Public OBJID_TransientObjCol As Variant
Public OBJID_ITransientObjCol As Variant
Public OBJID_ITransientObjColAdd As Variant
Public OBJID_ITransientObjColRemove As Variant
Public OBJID_ITransientObjColAddReposObj As Variant
Public OBJID_ITransientObjColRemoveItem As Variant
Public OBJID_IReposQueryGetCollection As Variant

' -------------------------------------------------------------
' This function just stuffs the 16 byte values that you pass in
' into a contiguous GUID variant.
' -------------------------------------------------------------

Function InitGuid(a As Byte, b As Byte, c As Byte, d As Byte, _
e As Byte, f As Byte, g As Byte, h As Byte, _
i As Byte, j As Byte, k As Byte, l As Byte, _
m As Byte, n As Byte, o As Byte, p As Byte) As Variant

Dim Guid(0 to 15) As Byte

Guid(0) = a
Guid(1) = b
Guid(2) = c
Guid(3) = d
Guid(4) = e
Guid(5) = f
Guid(6) = g
Guid(7) = h
Guid(8) = i
Guid(9) = j
Guid(10) = k
Guid(11) = l
Guid(12) = m
Guid(13) = n
Guid(14) = o
Guid(15) = p

InitGuid = Guid
End Function

' -------------------------------------------------------------
' This sub sets up an object identifier with the unique value
' that you pass in placed in the correct part of the object id
' -------------------------------------------------------------

Sub DEFINE_OBJID(ByRef id As Variant, uniquifier As Long, base() As Long)
    base(4) = uniquifier
    id = base
End Sub

' -------------------------------------------------------------
' This sub initialize all of the object identifiers for Type
' Information Model definition objects to their correct values
' -------------------------------------------------------------

Sub InitRepository()

Dim objID(0 to 4) As Long

CLSID_RepositoryObject = InitGuid(&HFB, &H70, &H22, &H6E, &H99, &HF7, &HCF, &H11, &H92, &H27, 0, &HAA, 0, &HA1, &HEB, &H95)

'Set up the guid portion of the object IDs
ObjID(0) = &H90591B0C
ObjID(1) = &H11CF24F7
ObjID(2) = &HAA000A92
ObjID(3) = &H95EBA100

'Define Object IDs
Call DEFINE_OBJID(OBJID_ClassDef, 0, ObjID)
Call DEFINE_OBJID(OBJID_InterfaceDef, 1, ObjID)
Call DEFINE_OBJID(OBJID_CollectionDef, 2, ObjID)
Call DEFINE_OBJID(OBJID_MethodDef, 3, ObjID)
Call DEFINE_OBJID(OBJID_PropertyDef, 4, ObjID)
Call DEFINE_OBJID(OBJID_RelationshipDef, 5, ObjID)
Call DEFINE_OBJID(OBJID_ReposTypeLib, 6, ObjID)
Call DEFINE_OBJID(OBJID_ReposRoot, 7, ObjID)
Call DEFINE_OBJID(OBJID_IUnknown, 8, ObjID)
Call DEFINE_OBJID(OBJID_IDispatch, 9, ObjID)
Call DEFINE_OBJID(OBJID_IReposDispatch, 10, ObjID)
Call DEFINE_OBJID(OBJID_IReposTypeInfo, 11, ObjID)
Call DEFINE_OBJID(OBJID_IClassDef, 12, ObjID)
Call DEFINE_OBJID(OBJID_IInterfaceDef, 13, ObjID)
Call DEFINE_OBJID(OBJID_IInterfaceMember, 14, ObjID)
Call DEFINE_OBJID(OBJID_IPropertyDef, 15, ObjID)
Call DEFINE_OBJID(OBJID_ICollectionDef, 16, ObjID)
Call DEFINE_OBJID(OBJID_IRepositoryItem, 17, ObjID)
Call DEFINE_OBJID(OBJID_IRepositoryObject, 18, ObjID)
Call DEFINE_OBJID(OBJID_IRelationship, 19, ObjID)
Call DEFINE_OBJID(OBJID_IAnnotationalProps, 20, ObjID)
Call DEFINE_OBJID(OBJID_ISummaryInfo, 21, ObjID)
Call DEFINE_OBJID(OBJID_INamedObject, 22, ObjID)
Call DEFINE_OBJID(OBJID_IManageReposTypeLib, 23, ObjID)
Call DEFINE_OBJID(OBJID_IReposTypeLib, 24, ObjID)
Call DEFINE_OBJID(OBJID_IReposRoot, 25, ObjID)
Call DEFINE_OBJID(OBJID_RClassImplIface, 26, ObjID)
Call DEFINE_OBJID(OBJID_RIfaceInheritsFromIface, 27, ObjID)
Call DEFINE_OBJID(OBJID_RIfaceHasMembers, 28, ObjID)
Call DEFINE_OBJID(OBJID_RColContainsItems, 29, ObjID)
Call DEFINE_OBJID(OBJID_RContainerContextForReposTLBs, 30, ObjID)
Call DEFINE_OBJID(OBJID_RReposTLBScopeForReposTypeInfo, 31, ObjID)
Call DEFINE_OBJID(OBJID_Ifaces, 32, ObjID)
Call DEFINE_OBJID(OBJID_Classes, 33, ObjID)
Call DEFINE_OBJID(OBJID_Ancestor, 34, ObjID)
Call DEFINE_OBJID(OBJID_Descendants, 35, ObjID)
Call DEFINE_OBJID(OBJID_Members, 36, ObjID)
Call DEFINE_OBJID(OBJID_Iface, 37, ObjID)
Call DEFINE_OBJID(OBJID_CollectionItem, 38, ObjID)
Call DEFINE_OBJID(OBJID_ItemInCollections, 39, ObjID)
Call DEFINE_OBJID(OBJID_ReposTypeLibs, 40, ObjID)
Call DEFINE_OBJID(OBJID_ReposTLBContexts, 41, ObjID)
Call DEFINE_OBJID(OBJID_ReposTypeInfos, 42, ObjID)
Call DEFINE_OBJID(OBJID_ReposTypeLibScopes, 43, ObjID)
Call DEFINE_OBJID(OBJID_ReposRootObj, 44, ObjID)
Call DEFINE_OBJID(OBJID_ReposTIM, 45, ObjID)
Call DEFINE_OBJID(OBJID_ClassID, 46, ObjID)
Call DEFINE_OBJID(OBJID_PropDescs, 47, ObjID)
Call DEFINE_OBJID(OBJID_InterfaceID, 48, ObjID)
Call DEFINE_OBJID(OBJID_TableName, 49, ObjID)
Call DEFINE_OBJID(OBJID_InterfaceFlags, 50, ObjID)
Call DEFINE_OBJID(OBJID_DispID, 51, ObjID)
Call DEFINE_OBJID(OBJID_InterfaceMemberFlags, 52, ObjID)
Call DEFINE_OBJID(OBJID_RelshipTypeID, 53, ObjID)
Call DEFINE_OBJID(OBJID_CollectionFlags, 54, ObjID)
Call DEFINE_OBJID(OBJID_MinCount, 55, ObjID)
Call DEFINE_OBJID(OBJID_MaxCount, 56, ObjID)
Call DEFINE_OBJID(OBJID_IsOrigin, 57, ObjID)
Call DEFINE_OBJID(OBJID_ColumnName, 58, ObjID)
Call DEFINE_OBJID(OBJID_APIType, 59, ObjID)
Call DEFINE_OBJID(OBJID_SQLType, 60, ObjID)
Call DEFINE_OBJID(OBJID_SQLSize, 61, ObjID)
Call DEFINE_OBJID(OBJID_SQLScale, 62, ObjID)
Call DEFINE_OBJID(OBJID_TypeLibID, 64, ObjID)
Call DEFINE_OBJID(OBJID_TypeID, 65, ObjID)
Call DEFINE_OBJID(OBJID_Comments, 66, ObjID)
Call DEFINE_OBJID(OBJID_ShortDescription, 67, ObjID)
Call DEFINE_OBJID(OBJID_ObjectName, 68, ObjID)
Call DEFINE_OBJID(OBJID_RelationshipTgtName, 69, ObjID)
Call DEFINE_OBJID(OBJID_ImplementsOptions, 70, ObjID)
Call DEFINE_OBJID(OBJID_NULL, &HFFFFFFFF, ObjID)
Call DEFINE_OBJID(OBJID_IReposVersion, 71, ObjID)
Call DEFINE_OBJID(OBJID_IVersionCol, 72, ObjID)
Call DEFINE_OBJID(OBJID_IVersionedRelship, 73, ObjID)
Call DEFINE_OBJID(OBJID_Workspace, 74, ObjID)
Call DEFINE_OBJID(OBJID_IWorkspaceItem, 76, ObjID)
Call DEFINE_OBJID(OBJID_IWorkspace, 75, ObjID)
Call DEFINE_OBJID(OBJID_IVersionAdminInfo, 77, ObjID)
Call DEFINE_OBJID(OBJID_VersionCreateTime, 78, ObjID)
Call DEFINE_OBJID(OBJID_VersionModifyTime, 79, ObjID)
Call DEFINE_OBJID(OBJID_CreateByUser, 80, ObjID)
Call DEFINE_OBJID(OBJID_ModifyByUser, 81, ObjID)
Call DEFINE_OBJID(OBJID_IWorkspaceContainer, 82, ObjID)
Call DEFINE_OBJID(OBJID_RWksContainerContainsWorkspaces, 83, ObjID)
Call DEFINE_OBJID(OBJID_ContainedWorkspaces, 84, ObjID)
Call DEFINE_OBJID(OBJID_WorkspaceContainers, 85, ObjID)
Call DEFINE_OBJID(OBJID_InsertSProcName, 86, ObjID)
Call DEFINE_OBJID(EXTVERSIONID_NULL, &HFFFFFFFF, ObjID)
Call DEFINE_OBJID(OBJID_SQLBlobSize, 87, ObjID)
Call DEFINE_OBJID(OBJID_IPropertyDef2, 88, ObjID)
Call DEFINE_OBJID(OBJID_Alias, 119, ObjID)
Call DEFINE_OBJID(OBJID_IVersionAdminInfo2, 89, ObjID)
Call DEFINE_OBJID(OBJID_IIfaceDef2, 93, ObjID)
Call DEFINE_OBJID(OBJID_IIfaceMember2, 97, ObjID)
Call DEFINE_OBJID(OBJID_RInterfaceImpliesInterface, 94, ObjID)
Call DEFINE_OBJID(OBJID_RBaseMemberServicesDerivedMembers, 98, ObjID)
Call DEFINE_OBJID(OBJID_Implies, 95, ObjID)
Call DEFINE_OBJID(OBJID_ImpliedBy, 96, ObjID)
Call DEFINE_OBJID(OBJID_ServicesDerivedMembers, 99, ObjID)
Call DEFINE_OBJID(OBJID_ServicedByBaseMember, 100, ObjID)
Call DEFINE_OBJID(OBJID_VersionLabel, 90, ObjID)
Call DEFINE_OBJID(OBJID_VersionComments, 92, ObjID)
Call DEFINE_OBJID(OBJID_VersionShortDesc, 91, ObjID)
Call DEFINE_OBJID(OBJID_RInterfaceMemberHasParameters, 108, ObjID)
Call DEFINE_OBJID(OBJID_Member, 109, ObjID)
Call DEFINE_OBJID(OBJID_Parameters, 110, ObjID)
Call DEFINE_OBJID(OBJID_IMethodDef, 101, ObjID)
Call DEFINE_OBJID(OBJID_IParameterDef, 102, ObjID)
Call DEFINE_OBJID(OBJID_ParDefFlags, 103, ObjID)
Call DEFINE_OBJID(OBJID_ParDefType, 104, ObjID)
Call DEFINE_OBJID(OBJID_ParDefDesc, 105, ObjID)
Call DEFINE_OBJID(OBJID_ParDefDefault, 106, ObjID)
Call DEFINE_OBJID(OBJID_ParDefGUID, 107, ObjID)
Call DEFINE_OBJID(OBJID_ParameterDef, 120, ObjID)
Call DEFINE_OBJID(OBJID_CreateParDef, 111, ObjID)
Call DEFINE_OBJID(OBJID_CreateParDefObjID, 112, ObjID)
Call DEFINE_OBJID(OBJID_CreateParDefName, 113, ObjID)
Call DEFINE_OBJID(OBJID_CreateParDefType, 114, ObjID)
Call DEFINE_OBJID(OBJID_CreateParDefFlags, 115, ObjID)
Call DEFINE_OBJID(OBJID_CreateParDefDesc, 116, ObjID)
Call DEFINE_OBJID(OBJID_CreateParDefDefault, 117, ObjID)
Call DEFINE_OBJID(OBJID_CreateParDefParDef, 118, ObjID)
Call DEFINE_OBJID(OBJID_RepositoryObject, 121, ObjID)
Call DEFINE_OBJID(OBJID_RepositoryObjectVersion, 122, ObjID)
Call DEFINE_OBJID(OBJID_Relationship, 123, ObjID)
Call DEFINE_OBJID(OBJID_VersionedRelationship, 124, ObjID)
Call DEFINE_OBJID(OBJID_ReposProperty, 125, ObjID)
Call DEFINE_OBJID(OBJID_ReposProperties, 126, ObjID)
Call DEFINE_OBJID(OBJID_RelationshipCol, 127, ObjID)
Call DEFINE_OBJID(OBJID_ObjectCol, 128, ObjID)
Call DEFINE_OBJID(OBJID_VersionCol, 129, ObjID)
Call DEFINE_OBJID(OBJID_Repository, 130, ObjID)
Call DEFINE_OBJID(OBJID_IPropDef2, 88, ObjID)
Call DEFINE_OBJID(OBJID_IRepository, 131, ObjID)
Call DEFINE_OBJID(OBJID_IReposProperties, 132, ObjID)
Call DEFINE_OBJID(OBJID_IReposProperty, 133, ObjID)
Call DEFINE_OBJID(OBJID_IReposPropertyLarge, 134, ObjID)
Call DEFINE_OBJID(OBJID_IRepositoryTransaction, 135, ObjID)
Call DEFINE_OBJID(OBJID_IObjectCol, 136, ObjID)
Call DEFINE_OBJID(OBJID_ITargetObjectCol, 137, ObjID)
Call DEFINE_OBJID(OBJID_IRepositoryObjectStorage, 138, ObjID)
Call DEFINE_OBJID(OBJID_IRelationshipCol, 139, ObjID)
Call DEFINE_OBJID(OBJID_IObjectCol2, 140, ObjID)
Call DEFINE_OBJID(OBJID_IRepository2, 141, ObjID)
Call DEFINE_OBJID(OBJID_IRepositoryODBC, 142, ObjID)
Call DEFINE_OBJID(OBJID_IRepositoryODBC2, 143, ObjID)
Call DEFINE_OBJID(OBJID_IReposTypeLib2, 144, ObjID)
Call DEFINE_OBJID(OBJID_ReposPropLargeSize, 145, ObjID)