在列中插入默认值（访问数据库）

Question

如何在 Access 中的表的列中插入默认值？ 我使用这个指令：

ALTER TABLE Tabella ADD Campo Double DEFAULT 0
ALTER TABLE Tabella ADD Campo Double DEFAULT (0)
ALTER TABLE Tabella ADD Campo DEFAULT 0
ALTER TABLE Tabella ADD Campo DEFAULT (0)
ALTER TABLE Tabella ADD Campo SET DEFAULT 0
ALTER TABLE Tabella ADD Campo SET DEFAULT (0)

但所有这些都会导致错误。 我该怎么做才能做到这一点？

Answer 1

来自 MSDN：

可以执行DEFAULT语句
只能通过Access OLE DB
提供商和 ADO。 它将返回一个
如果通过使用错误消息
访问 SQL View 用户界面。

Sooo...告诉我们更多关于您正在做什么以及如何执行 SQL 的信息？

为什么不使用表格设计器？

Answer 2

看到这个答案了吗？

用于添加具有默认值的列的 SQL - Access 2003

Answer 3

您不需要插入新的默认值，您需要更改现有的默认值。

首先将 Access 切换到正常的 SQL 风格，如上面链接的答案所示，然后你可以说：

alter table Tabella alter column Campo Double DEFAULT 0

Answer 4

我有这个典型的 Access 函数来向 Access 表添加新字段+默认值：。 如果表中尚不存在该字段，则会添加该字段。

Public Function addNewField( _
    m_tableName as string, _
    m_fieldName As String, _
    m_fieldType As Long, _      'check syntax of .createField method for values'
    m_fieldLength As Long, _    'check syntax of .createField method for values'
    Optional m_defaultValue As Variant = Null)

Dim myTable As DAO.TableDef
Dim myField As DAO.Field

On Error GoTo addNewField_error

Set myTable = currentDb.TableDefs(m_tableName)
Set myField = myTable.CreateField(m_fieldName, m_fieldType, m_fieldLength)

If Not IsNull(m_defaultValue) Then
    myField.DefaultValue = m_defaultValue
End If

myTable.Fields.Append myField

Set myTable = Nothing
Set myField = Nothing

Exit Function

addNewField_error:
If Err.Number = 3191 Or Err.Number = 3211 Then
    'The field already exists or the table is opened'
    'nothing to do but exit the function'
Else
    debug.print Err.Number & " - " & Error$
End If

End Function