select c.* from syscolumns c, sysobjects t where c.id = t.id and t.name = 'tablename'

解决方案 »

  1.   

        Dim rs As ADODB.Recordset
        Dim fld As ADODB.Field
        
        For Each fld In rs.Fields
            MsgBox "Name:" & fld.Name & "  Type:" & fld.Type
        Next
        
    '(摘自MSDN)
    'Type 属性 (ADO)
    '
    '
    '指示 Parameter、Field 或 Property 对象的操作类型或数据类型。
    '
    '设置和返回值
    '
    '设置或返回下列 DataTypeEnum 值之一。相应的 OLE DB 类型标识符在下表的说明栏的括号中给出。有关 OLE DB 数据类型的详细信息,请参阅第 10 章和《 OLE DB 参考手册》的附录 A。
    '
    '常量 说明
    'adArray 与其他类型一起加入逻辑 OR 以指示该数据是哪种类型的安全数组 (DBTYPE_ARRAY)。
    'adBigInt 8 - 字节带符号的整数 (DBTYPE_I8)。
    'adBinary 二进制值 (DBTYPE_BYTES)。
    'adBoolean 布尔型值 (DBTYPE_BOOL)。
    'adByRef 与其他类型一起加入逻辑 OR 以指示该数据是其他类型数据的指针 (DBTYPE_BYREF)。
    'adBSTR 以空结尾的字符串 (Unicode) (DBTYPE_BSTR)。
    'adChar 字符串值 (DBTYPE_STR)。
    'adCurrency 货币值 (DBTYPE_CY)。货币数字的小数点位置固定、小数点右侧有四位数字。该值保存为 8 字节的范围为 10,000 的带符号整型值。
    'adDate 日期值 (DBTYPE_DATE)。日期按双精度型数值来保存,数字全部表示从 1899 年 12 月 30 开始的日期数。小数部分是一天当中的片段时间。
    'adDBDate 日期值 (yyyymmdd) (DBTYPE_DBDATE)。
    'adDBTime 时间值 (hhmmss) (DBTYPE_DBTIME)。
    'adDBTimeStamp 时间戳(yyyymmddhhmmss 加 10 亿分之一的小数)(DBTYPE_DBTIMESTAMP).
    'adDecimal 具有固定精度和范围的精确数字值 (DBTYPE_DECIMAL)。
    'adDouble 双精度浮点值 (DBTYPE_R8)。
    'adEmpty 未指定值 (DBTYPE_EMPTY)。
    'adError 32 位错误代码 (DBTYPE_ERROR)。
    'adGUID 全局唯一的标识符 (GUID) (DBTYPE_GUID)。
    'adIDispatch OLE 对象上 Idispatch 接口的指针 (DBTYPE_IDISPATCH)。
    'adInteger 4 字节的带符号整型 (DBTYPE_I4)。
    'adIUnknown OLE 对象上 IUnknown 接口的指针 (DBTYPE_IUNKNOWN)。
    'adLongVarBinary 长二进制值(仅用于 Parameter 对象)。
    'adLongVarChar 长字符串值(仅用于 Parameter 对象)。
    'adLongVarWChar 以空结尾的长字符串值(仅用于 Parameter 对象)。
    'adNumeric 具有固定精度和范围的精确数字值 (DBTYPE_NUMERIC)。
    'adSingle 单精度浮点值 (DBTYPE_R4)。
    'adSmallInt 2 字节带符号整型 (DBTYPE_I2)。
    'adTinyInt 1 字节带符号整型 (DBTYPE_I1)。
    'adUnsignedBigInt 8 字节不带符号整型 (DBTYPE_UI8)。
    'adUnsignedInt 4 字节不带符号整型 (DBTYPE_UI4)。
    'adUnsignedSmallInt 2 字节不带符号整型 (DBTYPE_UI2)。
    'adUnsignedTinyInt 1 字节不带符号整型 (DBTYPE_UI1)。
    'adUserDefined 用户定义的变量 (DBTYPE_UDT)。
    'adVarBinary 二进制值(仅 Parameter 对象)。
    'adVarChar 字符串值(仅 Parameter 对象)。
    'adVariant 自动变体型 (DBTYPE_VARIANT)。
    'adVector 与其他类型一起加入逻辑 OR 中,指示数据是 DBVECTOR 结构(由 OLE DB 定义)。该结构含有元素的计数和其他类型 (DBTYPE_VECTOR) 数据的指针。
    'adVarWChar 以空结尾的 Unicode 字符串(仅 Parameter 对象)。
    'adWChar 以空结尾的 Unicode 字符串 (DBTYPE_WSTR)。