exportdata.bas

一个交通专用的gis-T系统

Attribute VB_Name = "ExportData"
'*********************************************************************
'*
'*                本源码完全免费，共交通同仁学习参考                 *
'*                      www.tranbbs.com                              *
'*                   Developed by Yang Ming                          *
'*       Nanjing Institute of City Transportation Planning           *
'*                 请保留本版权信息，谢谢合作                        *
'*                      中国交通技术论坛                             *
'*                                                                   *
'*                                                                   *
'*********************************************************************

Function FieldType(intType As Integer) As String

    Select Case intType
        Case dbBoolean
            FieldType = "dbBoolean"
        Case dbByte
            FieldType = "dbByte"
        Case dbInteger
            FieldType = "dbInteger"
        Case dbLong
            FieldType = "dbLong"
        Case dbCurrency
            FieldType = "dbCurrency"
        Case dbSingle
            FieldType = "dbSingle"
        Case dbDouble
            FieldType = "dbDouble"
        Case dbDate
            FieldType = "dbDate"
        Case dbText
            FieldType = "dbText"
        Case dbLongBinary
            FieldType = "dbLongBinary"
        Case dbMemo
            FieldType = "dbMemo"
        Case dbGUID
            FieldType = "dbGUID"
    End Select

End Function

Function FieldTypeNum(StrType As String) As Integer

    Select Case StrType
        Case "dbBoolean"
            FieldTypeNum = dbBoolean
        Case "dbByte"
            FieldTypeNum = dbByte
        Case "dbInteger"
            FieldTypeNum = dbInteger
        Case "dbLong"
            FieldTypeNum = dbLong
        Case "dbCurrency"
            FieldTypeNum = dbCurrency
        Case "dbSingle"
            FieldTypeNum = dbSingle
        Case "dbDouble"
            FieldTypeNum = dbDouble
        Case "dbDate"
            FieldTypeNum = dbDate
        Case "dbText"
            FieldTypeNum = dbText
        Case "dbLongBinary"
            FieldTypeNum = dbLongBinary
        Case "dbMemo"
            FieldTypeNum = dbMemo
        Case "dbGUID"
            FieldTypeNum = dbGUID
    End Select

End Function