Во-первых, я рекомендую не использовать тип данных Decimal в Access 2003, потому что там являются ошибками с ним вокруг сортировки (неправильный порядок) и агрегации (суммы, усекающие дробную часть). В Access 2007 общая проблема решена, но не сортировка (хотя вы, возможно, можете исправить это в Access 2007, указав индекс в столбце).
Что касается вашего сценария, есть две очевидные проблемы:
-
Вы должны использовать ADD COLUMN ColumnName not ADD ColumnName
-
Правильный тип данных DECIMAL , потому что NUMBER вместо этого создает float с двойной точностью и не позволяет скобки после указания какого-либо размера , ( Возможно NUMERIC будет работать как синоним DECIMAL , но я не знаю.)
Так что это должно сработать для вас:
ALTER TABLE EMP_2 ADD COLUMN EMP_PCT DECIMAL(4,2);
Согласно HansUp и другим источникам, это не может быть отправлено через DAO (как в CurrentDb.Execute ), но должно выполняться через ADO ( CurrentProject.Connection.Execute ).
По-видимому, существует способ заставить этот SQL работать , но он требует изменения настроек базы данных:
The decimal data type isn't supported in the default Jet 4.0 mdb file. You have to use the SQL Server compatibility syntax (ANSI 92) setting to use the decimal data type in the SQL Window.
Click on the menu, Tools > Options. Click on the Tables/Query tab. Mark the check box for "This database" in the SQL Server compatibility syntax (ANSI 92) section. This mode will affect the entire db, including queries with wildcards, so you may want to try this on a copy of your db.
Если вы все еще не можете получить работу, вы можете рассмотреть этот метод ( благодаря Филиппу Грондье ):
Dim TD As DAO.TableDef
Dim F As DAO.Field
Set TD = CurrentDb.TableDefs("TableName")
Set F = TD.CreateField("FieldName", dbDecimal, 4)
F.DecimalPlaces = 2
F.DefaultValue = 0
TD.Fields.Append F
Для справки, вот некоторые связанные страницы справки Microsoft.com: