Access 使用ADOX修改ACCESS字段名称及数据类型
- 2017-08-03 06:16:00
- zstmtony 原创
- 5096
'Access VBA源代码
'使用之前需要先引用ADOX
Public Sub ChangeFld() '修改字段名和类型
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
*****************************************************************************************
备注：（来自ADO2.5帮助文件）
DataTypeEnum
指定Field Parameter 或 Property 的数据类型。在下表的
“说明”
列的括号中显示了相应的 OLE DB 类型指示符。有关 OLE DB 数据类型的详细信息，请参阅 OLE DB Programmer's 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)
。
adEmpty
0
指定没有值
(DBTYPE_EMPTY)
。
adError
10
指示一个
32
位的错误代码
(DBTYPE_ERROR)
。
adFileTime
64
指示一个
64
位的值，表示从
1601
年
1
月
1
日开始的
100
个
十亿分之一秒间隔的数量
(DBTYPE_FILETIME)
。
adGUID
72
指示全局唯一标识符
(GUID) (DBTYPE_GUID)
。
adIDispatch
9
指示指向
COM
对象上
IDispatch
接口的指针
(DBTYPE_IDISPATCH)
。
注意
ADO
目前不支持这种数据类型。使用它可能导致不可
预料的结果。
adInteger
3
指示一个四字节的有符号整数
(DBTYPE_I4)
。
adIUnknown
13
指示指向
COM
对象上
IUnknown
接口的指针
(DBTYPE_IUNKNOWN)
。
注意
ADO
目前不支持这种数据类型。使用它可能导致不可
预料的结果。
adLongVarBinary
205
指示一个长二进制值。
adLongVarChar
201
指示一个长字符串值。
adLongVarWChar
203
指示一个以
Null
终止的长
Unicode
字符串值。
adNumeric
131
指示具有固定精度和范围的确切数字值
(DBTYPE_NUMERIC)
。
adPropVariant
138
指示一个
Automation PROPVARIANT
(DBTYPE_PROP_VARIANT)
。
adSingle
4
指示一个单精度浮点值
(DBTYPE_R4)
。
adSmallInt
2
指示一个双字节的有符号整数
(DBTYPE_I2)
。
adTinyInt
16
指示一个单字节的有符号整数
(DBTYPE_I1)
。
adUnsignedBigInt
21
指示一个八字节的无符号整数
(DBTYPE_UI8)
。
adUnsignedInt
19
指示一个四字节的无符号整数
(DBTYPE_UI4)
。
adUnsignedSmallInt
18
指示一个双字节的无符号整数
(DBTYPE_UI2)
。
adUnsignedTinyInt
17
指示一个单字节的无符号整数
(DBTYPE_UI1)
。
adUserDefined
132
指示一个用户定义的变量
(DBTYPE_UDT)
。
adVarBinary
204
指示一个二进制值（仅限于
Parameter
对象）。
adVarChar
200
指示一个字符串值。
adVariant
12
指示一个
Automation Variant (DBTYPE_VARIANT)
。
注意
ADO
目前不支持这种数据类型。使用它可能导致不可
预料的结果。
adVarNumeric
139
指示一个数字值（仅限于
Parameter
对象）。
adVarWChar
202
指示一个以
Null
终止的
Unicode
字符串。
adWChar
130
指示一个以
Null
终止的
Unicode
字符串
(DBTYPE_WSTR)
。
ADO/WFC
等价内容
包：
com.ms.wfc.data
常量
AdoEnums.DataType.ARRAY
AdoEnums.DataType.BIGINT
AdoEnums.DataType.BINARY
AdoEnums.DataType.BOOLEAN
AdoEnums.DataType.BSTR
AdoEnums.DataType.CHAPTER
AdoEnums.DataType.CHAR
AdoEnums.DataType.CURRENCY
AdoEnums.DataType.DATE
AdoEnums.DataType.DBDATE
AdoEnums.DataType.DBTIME
AdoEnums.DataType.DBTIMESTAMP
AdoEnums.DataType.DECIMAL
AdoEnums.DataType.DOUBLE
AdoEnums.DataType.EMPTY
AdoEnums.DataType.ERROR
AdoEnums.DataType.FILETIME
AdoEnums.DataType.GUID
AdoEnums.DataType.IDISPATCH
AdoEnums.DataType.INTEGER
AdoEnums.DataType.IUNKNOWN
AdoEnums.DataType.LONGVARBINARY
AdoEnums.DataType.LONGVARCHAR
AdoEnums.DataType.LONGVARWCHAR
AdoEnums.DataType.NUMERIC
AdoEnums.DataType.PROPVARIANT
AdoEnums.DataType.SINGLE
AdoEnums.DataType.SMALLINT
AdoEnums.DataType.TINYINT
AdoEnums.DataType.UNSIGNEDBIGINT
AdoEnums.DataType.UNSIGNEDINT
AdoEnums.DataType.UNSIGNEDSMALLINT
AdoEnums.DataType.UNSIGNEDTINYINT
AdoEnums.DataType.USERDEFINED
AdoEnums.DataType.VARBINARY
AdoEnums.DataType.VARCHAR
AdoEnums.DataType.VARIANT
AdoEnums.DataType.VARNUMERIC
AdoEnums.DataType.VARWCHAR
AdoEnums.DataType.WCHAR
Access数据库自身
- office课程播放地址及课程明细
- Excel Word PPT Access VBA等Office技巧学习平台
- 将( .accdb) 文件格式数据库转换为早期版本(.mdb)的文件格式
- 将早期的数据库文件格式（.mdb）转换为 （.accdb） 文件格式
- KB5002984：配置 Jet Red Database Engine 数据库引擎和访问连接引擎以阻止对远程数据库的访问（remote table)
- Access 365 /Access 2019 数据库中哪些函数功能和属性被沙箱模式阻止（如未启动宏时）
- Access Runtime(运行时)最全的下载(2007 2010 2013 2016 2019 Access 365)
Access Activex第三方控件
- Activex控件或Dll 在某些电脑无法正常注册的解决办法(regsvr32注册时卡住）
- office使用部分控件时提示“您没有使用该ActiveX控件许可的问题”的解决方法
- RTF文件（富文本格式）的一些解析
- Access树控件（treeview) 64位Office下出现横向滚动条不会自动定位的解决办法
- Access中国树控件 在win10电脑 节点行间距太小的解决办法
- EXCEL 2019 64位版（Office 2019 64位）早就支持64位Treeview 树控件 ListView列表等64位MSCOMMCTL.OCX控件下载
- VBA或VB6调用WebService（直接Post方式）并解析返回的XML
Access ADP Sql Server等
- 早期PB程序连接Sqlserver出现错误
- MMC 不能打开文件C:/Program Files/Microsoft SQL Server/80/Tools/Binn/SQL Server Enterprise Manager.MSC 可能是由于文件不存在，不是一个MMC控制台，或者用后来的MMC版
- sql server连接不了的解决办法
- localhost与127.0.0.1区别
- Roych的浅谈数据库开发系列（Sql Server)
- sqlserver 自动备份对备份目录没有存取权限的解决办法
- 安装Sql server 2005 express 和SQLServer2005 Express版企业管理器 SQLServer2005_SSMSEE
文章分类
联系我们
| 联系人： | 王先生 |
|---|---|
| Email： | 18449932@qq.com |
| QQ： | 18449932 |
| 微博： | officecn01 |
