sql – 如何在Access中使用Alter Table创建十进制字段？

发布时间：2020-12-12 07:49:33 所属栏目：MsSql教程来源：网络整理

导读：我想以编程方式在MS Access表中创建一个新列.我尝试了很多ALTER TABLE MyTable的排列添加MyField DECIMAL(9,4)NULL;得到了： Syntax Error in Field Definition 我可以轻松地创建一个转换为Double类型的数字字段,但我想要小数.我非常希望在单个ALTER TABLE语

我想以编程方式在MS Access表中创建一个新列.我尝试了很多ALTER TABLE MyTable的排列添加MyField DECIMAL(9,4)NULL;得到了：

Syntax Error in Field Definition

我可以轻松地创建一个转换为Double类型的数字字段,但我想要小数.我非常希望在单个ALTER TABLE语句中执行此操作,而不必创建字段然后更改它.

我正在使用Access 2003.

解决方法

如果要在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.建议是“双用”(这是我通常做的,以避免任何与十进制舍入相关的松散问题)或使用“implicite”ADO来修改您的数据库

strSql = "ALTER TABLE MyTable ADD COLUMN MyField DECIMAL (28,3);"
CurrentProject.Connection.Execute strSql

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!