如何在Access with Alter Table中创建十进制字段？

Question

我想以编程方式在MS Access表中创建一个新列.我尝试了许多排列ALTER TABLE MyTable Add MyField DECIMAL (9,4) NULL;并获得:

字段定义中的语法错误

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

我正在使用Access 2003.

Answer 1

默认的Jet 4.0 mdb文件不支持十进制数据类型.您必须使用SQL Server兼容性语法(ANSI 92)设置在SQL窗口中使用十进制数据类型.

单击菜单,工具>选项.单击"表/查询"选项卡.在SQL Server兼容性语法(ANSI 92)部分中选中"此数据库"复选框.此模式将影响整个数据库,包括带有通配符的查询,因此您可能希望在数据库的副本上尝试此操作.

将其粘贴到SQL窗口中:

ALTER TABLE MyTable
  Add COLUMN MyField DECIMAL (9,4) NULL;

如果您不想更改数据库的模式,则必须将vba代码与adodb库一起使用:

Dim conn As ADODB.Connection

Set conn = CurrentProject.Connection
conn.Execute "ALTER TABLE MyTable " _
    & "ADD COLUMN MyField DECIMAL (9,4) NULL;"
conn.Close

Answer 2

如果要在 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。建议是“使用 double”（我通常这样做是为了避免与小数舍入相关的任何松散问题）或使用“隐式”ADO 来修改数据库

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