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 编辑 ]

谢了，解决了！