Beírása alapértelmezett értékek egy oszlopban (hozzáférési db)

szavazat
3

Hogyan tehetek behelyezése Alapértelmezett érték oszlopba egy tábla Access? Azt használja ezt az utasítást:

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)

de ezek okozzák a hibát. Hogyan tehetek csinálja?

A kérdést 09/12/2008 15:53
a forrás felhasználó
Más nyelveken...                            


4 válasz

szavazat
2

Honnan MSDN :

A DEFAULT utasítás lehet végrehajtani csak az Access OLE DB szolgáltató és ADO. Ez egy hibaüzenet jelenik meg, ha használják a Hozzáférés SQL nézet felhasználói felületet.

Sooo ... nekünk többet, amit csinálsz, és hogyan szeretne végrehajtó SQL?

És miért nem a táblázat segítségével tervező?

Válaszolt 09/12/2008 15:59
a forrás felhasználó

szavazat
1

Lásd ezt a választ?

SQL hozzá oszlop alapértelmezett - Access 2003

Válaszolt 09/12/2008 15:58
a forrás felhasználó

szavazat
0

Van ez a tipikus Access funkció, hogy új területeken + alapértékeket Access táblákat :. A mezőt adunk, ha nem már létezik a táblázatban.

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
Válaszolt 09/12/2008 16:31
a forrás felhasználó

szavazat
0

Nem beszúrni egy új alapértékre, meg kell változtassa a meglévőt.

Először kapcsolja Hozzáférés egy normális SQL íze, mint a válasz fent belinkelt, akkor azt mondják:

alter table Tabella alter column Campo Double DEFAULT 0
Válaszolt 09/12/2008 16:06
a forrás felhasználó

Cookies help us deliver our services. By using our services, you agree to our use of cookies. Learn more