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窗口中使用十进制数据类型。

点击菜单，工具＆gt;选项。单击“表/查询”选项卡。在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

仅在Jet 4.0 / ACE中支持ALTER TABLE语法 ANSI-92查询模式。尝试ADO连接，例如

CurrentProject.Connection.Execute“ALTER TABLE myTbl ADD COLUMN myColumn DECIMAL（9,4）”

Answer 3

如果要在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

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

3 个答案: