VB创建access数据表字段代码

Private   Sub   Form_Load()   

   '菜单“工程”-->"引用"-->"Microsoft   ActiveX   Data   Objects   2.7   Library"  

   'Microsoft   ADO   Ext.2.7   for   DDL   ado   Security   

     Dim   cat   As   ADOX.Catalog   

     Set   cat   =   New   ADOX.Catalog   

   cat.Create   ("Provider=Microsoft.Jet.OLEDB.4.0;Data   Source="   +   App.Path   &   "\\newdata.mdb"   +   ";")   

   MsgBox   "数据库已经创建成功！"   

   Dim   tbl   As   ADOX.Table   

   Set   tbl   =   New   ADOX.Table   

   tbl.ParentCatalog   =   cat   

   tbl.Name   =   "MyTable"   

   '增加一个自动增长的字段   

   Dim   col   As   ADOX.Column   

   Set   col   =   New   ADOX.Column   

   col.ParentCatalog   =   cat   

   col.Type   =   ADOX.DataTypeEnum.adInteger   '   //   必须先设置字段类型   

   col.Name   =   "id"   

   col.Properties("Jet   OLEDB:Allow   Zero   Length").Value   =   False   

   col.Properties("AutoIncrement").Value   =   True   

   tbl.Columns.Append   col,   ADOX.DataTypeEnum.adInteger,   0   

   '增加一个文本字段   

   Dim   col2   As   ADOX.Column   

   Set   col2   =   New   ADOX.Column   

   col2.ParentCatalog   =   cat   

   col2.Name   =   "Description"   

   col2.Properties("Jet   OLEDB:Allow   Zero   Length").Value   =   False   

   tbl.Columns.Append   col2,   ADOX.DataTypeEnum.adVarChar,   25   

   '增加一个货币型字段   

   Dim   col4   As   ADOX.Column   

   Set   col4   =   New   ADOX.Column   

   col4.ParentCatalog   =   cat   

   col4.Type   =   ADOX.DataTypeEnum.adCurrency   

   col4.Name   =   "xx"   

   tbl.Columns.Append   col4,   ADOX.DataTypeEnum.adCurrency   

   '增加一个OLE字段   

   Dim   col5   As   ADOX.Column   

   Set   col5   =   New   ADOX.Column   

   col5.ParentCatalog   =   cat   

   col5.Type   =   ADOX.DataTypeEnum.adLongVarBinary   

   col5.Name   =   "OLD_FLD"   

   tbl.Columns.Append   col5,   ADOX.DataTypeEnum.adLongVarBinary   

   '增加一个数值型字段   

   Dim   col3   As   ADOX.Column   

   Set   col3   =   New   ADOX.Column   

   col3.ParentCatalog   =   cat   

   col3.Type   =   ADOX.DataTypeEnum.adDouble   

   col3.Name   =   "ll"   

   tbl.Columns.Append   col3,   ADOX.DataTypeEnum.adDouble   

   Dim   p   As   ADOX.Property   

   For   Each   p   In   col3.Properties   

           Debug.Print   p.Name   &   ":"   &   p.Value   &   ":"   &   p.Type   &   ":"   &   p.Attributes   

   Next   

   '设置主键   

   tbl.Keys.Append   "PrimaryKey",   ADOX.KeyTypeEnum.adKeyPrimary,   "id",   "",   ""   

   cat.Tables.Append   tbl   

   MsgBox   "数据库表："   +   tbl.Name   +   "已经创建成功！"   

   Set   tbl   =   Nothing   

   Set   cat   =   Nothing   

   Dim   adocon   As   ADODB.Connection   

   Set   adocon   =   New   ADODB.Connection   

   adocon.Open   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source="   &   App.Path   &   "\\newdata.mdb;"   &   "Mode=Share   Deny   Read|Share   Deny   Write;Persist   Security   Info=False;Jet   OLEDB:Database   Password="   

   Set   cat   =   New   ADOX.Catalog   

   Set   cat.ActiveConnection   =   adocon   

   For   i   =   0   To   cat.Tables.Count   -   1   

         Debug.Print   cat.Tables(i).Name       '取出表名   

         If   cat.Tables(i).Name   =   "MyTable"   Then   

         For   j   =   0   To   cat.Tables(i).Columns.Count   -   1   

               Debug.Print   cat.Tables(i).Columns(j)         '取出列名   

               Debug.Print   cat.Tables(i).Columns(j).Type   '取出数据类型   

               For   Each   p   In   cat.Tables(i).Columns(j).Properties   

               Debug.Print   p.Type   &   p.Name   &   p.Attributes         '取出列的属性   

               Next   

         Next   j   

         End   If   

   Next   i   

   cat.Tables.Item("MyTable").Columns("ll").Properties("Jet   OLEDB:Allow   Zero   Length").Value   =   True   '设置零长度正确   

   Set   cat   =   Nothing   

   adocon.Close   

   Set   adocon   =   Nothing   

   End   Sub   

Type   属性   

   指示   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)。日期按双精度型数值来保存，数字全部表示从   19   年   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)。     

   说明   

   对   Parameter   对象，Type   属性是读/写。对其他所有对象，Type   属性是只读。   

   Type   属性范例   

   该范例通过显示与雇员表所有   Field   对象的   Type   属性值对应的常量名说明   Type   属性。该过程运行时需要   FieldType   函数。   

   Public   Sub   TypeX()   

         Dim   rstEmployees   As   ADODB.Recordset   

         Dim   fldLoop   As   ADODB.Field   

         Dim   strCnn   As   String   

         '   使用雇员表中的数据打开记录集。   

         strCnn   =   "Provider=sqloledb;"   &   _   

               "Data   Source=srv;Initial   Catalog=pubs;User   Id=sa;Password=;   "   

         Set   rstEmployees   =   New   ADODB.Recordset   

         rstEmployees.Open   "employee",   strCnn,   ,   ,   adCmdTable   

         Debug.Print   "Fields   in   Employee   Table:"   &   vbCr   

         '   枚举雇员表的字段集合。   

         For   Each   fldLoop   In   rstEmployees.Fields   

               Debug.Print   "     Name:   "   &   fldLoop.Name   &   vbCr   &   _   

                     "     Type:   "   &   FieldType(fldLoop.Type)   &   vbCr   

         Next   fldLoop   

   End   Sub   

   Public   Function   FieldType(intType   As   Integer)   As   String   

         Select   Case   intType   

               Case   adChar   

                     FieldType   =   "adChar"   

               Case   adVarChar   

                     FieldType   =   "adVarChar"   

               Case   adSmallInt   

                     FieldType   =   "adSmallInt"   

               Case   adUnsignedTinyInt   

                     FieldType   =   "adUnsignedTinyInt"   

               Case   adDBTimeStamp   

                     FieldType   =   "adDBTimeStamp"   

         End   Select   

   End   Function