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