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

利用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 0x2000 一个标志值，通常与另一个数据类型常量组合，指示该数据 （不适用于 ADOX 。） 类型的数组。 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