Dim MyTbl As New ADOX.Table

MyTbl.Name = "AlarmInfo"

MyTbl.Columns.Append "Number", adInteger, 20

MyTbl.Columns.Append "Alarm_Type", adVarWChar, 50

MyTbl.Columns.Append "Alarm_Machine", adVarWChar, 50

MyTbl.Columns.Append "Alarm_loop", adVarWChar, 50

MyTbl.Columns.Append "Alarm_adderss", adVarWChar, 50

MyTbl.Columns.Append "Unit_type", adVarWChar, 50

'MyTbl.Columns.Append "date", adDBDate       加上注释掉这两行提示类型无效

'Mytbl.Columns.Append "time", adDBTime, 8
MyTbl.Columns.Append "Alarm_info", adVarWChar, 50

Cat.Tables.Append MyTbl

日期时间字段要怎么样创建？

通过手动建表，程序连接表后得到日期时间字段数据类型值为7 ， 将addbdate、addbtime改成7也能正确，7代表啥类型啊？



[ 本帖最后由 W11400661 于 2010-5-11 22:27 编辑 ]

常量   说明     
  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)。     
  

你可以用ado创建试一下看行不行

谢了，解决了！

创建数据库时可以用adox.Catalog，但创建表直接用ado的connection对象执行sql语句"create table...."就可以了。