利用ADOX修改ACCESS字段名及类型.docVIP

利用ADOX修改ACCESS字段名及类型 VBA代码 需要引用ADOX Public Sub Fn修改字段名和类型() Dim Cnn As New ADODB.Connection Dim Cat As New ADOX.Catalog Set Cnn = CurrentProject.Connection Cat.ActiveConnection = Cnn Dim strTblName As String Dim strColName As String strTblName = 表名 strColName = 字段名 Dim i As Integer Dim j As Integer Dim k As Integer For i = 0 To Cat.Tables.Count - 1 If Cat.Tables(i).Type = TABLE Then For j = 0 To Cat.Tables(i).Columns.Count - 1 If Cat.Tables(i).Name = strTblName And Cat.Tables(i).Columns(j).Name = strColName Then 修改字段类型 [下行蓝色部分用法详见备注] Cnn.Execute alter table strTblName alter column strColName varchar(100) 修改字段名 Cat.Tables(i).Columns(j).Name = 新字段名 End If Next j End If Next i MsgBox OK End Sub ***************************************************************************************** 备注：（此内容COPY自ADO2.5帮助文件） DataTypeEnum 指定 Field、Parameter 或 Property 的数据类型。在下表的“说明”列的括号中显示了相应的 OLE DB 类型指示符。有关 OLE DB 数据类型的详细信息，请参阅 OLE DB Programmers Reference 中的 Chapter 13 和附录 A 。 常量 值 说明 AdArray（不适用于 ADOX。） 0x2000 一个标志值，通常与另一个数据类型常量组合，指示该数据类型的数组。 adBigInt 20 指示一个八字节的有符号整数 (DBTYPE_I8)。 adBinary 128 指示一个二进制值 (DBTYPE_BYTES)。 adBoolean 11 指示一个布尔值 (DBTYPE_BOOL)。 adBSTR 8 指示以 Null 终止的字符串 (Unicode) (DBTYPE_BSTR)。 adChapter 136 指示一个四字节的子集值，标识子行集合中的行 (DBTYPE_HCHAPTER)。 adChar 129 指示一个字符串值 (DBTYPE_STR)。 adCurrency 6 指示一个货币值 (DBTYPE_CY)。货币是一个定点数字，小数点右侧有四位数字。该值存储为八字节、范围为 10,000 的有符号整数。 adDate 7 指示日期值 (DBTYPE_DATE)。日期保存为双精度数，数字的整数部分是从 1899 年 12 月 30 日算起的天数，小数部分是一天当中的片段时间。 adDBDate 133 指示日期值 (yyyymmdd) (DBTYPE_DBDATE)。 adDBTime 134 指示时间值 (hhmmss) (DBTYPE_DBTIME)。 adDBTimeStamp 135 指示日期/时间戳（yyyymmddhhmmss 加十亿分之一的小数）(DBTYPE_DBTIMESTAMP)。 adDecimal 14 指示具有固定精度和范围的确切数字值 (DBTYPE_DECIMAL)。 adDouble 5 指示一个双精度浮点值 (DBTYPE_R8)。