Attribute VB_Name = "m_DB"
'Generated by IDL2VB v120. Copyright (c) 2000 Martin.Both
'Source File Name: ../demos/db_query/database.idl

Option Explicit

'module ::DB

'Enum DataType
Public Const TypeNull As Long = 0
Public Const TypeString As Long = 1
Public Const TypeShort As Long = 2
Public Const TypeInteger As Long = 3
Public Const TypeDouble As Long = 4
Public Const TypeDecimal As Long = 5
Public Const TypeTime As Long = 6
Public Const TypeDate As Long = 7
Public Const TypeDateTime As Long = 8
Public Const TypeText As Long = 9
Public Const TypeBinary As Long = 10

'Enum DataType, Helper
Public Function DataType_TypeCode() As cOrbTypeCode
    On Error GoTo ErrHandler
    Dim oOrb As cOrbImpl
    Set oOrb = VBOrb.defaultOrb()
    'Describe enum members
    Dim oMemSeq As c_StringSeq
    Set oMemSeq = New c_StringSeq
    oMemSeq.Length = 11
    oMemSeq.Item(0) = "TypeNull"
    oMemSeq.Item(1) = "TypeString"
    oMemSeq.Item(2) = "TypeShort"
    oMemSeq.Item(3) = "TypeInteger"
    oMemSeq.Item(4) = "TypeDouble"
    oMemSeq.Item(5) = "TypeDecimal"
    oMemSeq.Item(6) = "TypeTime"
    oMemSeq.Item(7) = "TypeDate"
    oMemSeq.Item(8) = "TypeDateTime"
    oMemSeq.Item(9) = "TypeText"
    oMemSeq.Item(10) = "TypeBinary"
    Set DataType_TypeCode = oOrb.createEnumTc("IDL:DB/DataType:1.0", "DataType", oMemSeq)
    Exit Function
ErrHandler:
    Call VBOrb.ErrReraise(Err, "DataType_TypeCode")
End Function
