如何在Access with Alter Table中创建一个十进制字段？
我想以编程方式在MS Access表中创建一个新列。我尝试了多种排列ALTER TABLE MyTable Add MyField DECIMAL (9,4) NULL;并得到：
字段定义中的语法错误
我可以轻松创建一个数字Double类型的数字字段，但是我想要decimal。我非常希望在单个ALTER TABLE语句中执行此操作，而不必创建一个字段然后进行更改。
我正在使用Access 2003。
问题来源于stack overflow
写回答
-
如果要在acces表中创建新列，则使用DAO.tableDef对象很容易：
Dim my_tableDef As DAO.TableDef Dim my_field As DAO.Field
Set my_tableDef = currentDb.TableDefs(my_table) Set my_Field = my_tableDef.CreateField(my_fieldName, dbDecimal, myFieldSize) my_Field.decimalPlaces = myDecimalPlaces my_Field.defaultValue = myDefaultValue
my_tableDef.Fields.Append my_Field
set my_Field = nothing set my_tableDef = nothing 当然，您可以进一步删除它。
您可能可以使用ADODB（或ADOX？）对象来执行此操作，但是只要您正在处理mdb文件，DAO便是直接且高效的。
PS：在一些论坛上检查后，似乎存在一个带有十进制字段和DAO的错误。http://allenbrowne.com/bug-08.html。建议是“加倍追求”（这是我通常会做的，以避免与十进制舍入有关的任何混乱问题）或使用“隐式” ADO修改您的数据库
strSql = "ALTER TABLE MyTable ADD COLUMN MyField DECIMAL (28,3);" CurrentProject.Connection.Execute strSql
2019-11-18 17:21:44赞同 展开评论 打赏
版权声明：本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
