Εισάγετε προεπιλεγμένες τιμές σε μια στήλη (δβ πρόσβασης)

ψήφοι
3

Πώς μπορώ να κάνω για την εισαγωγή προκαθορισμένη τιμή σε μια στήλη ενός πίνακα στην 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)

αλλά όλα αυτά να προκαλέσει σφάλμα. Πώς μπορώ να κάνω γι 'αυτό;

Δημοσιεύθηκε 09/12/2008 στις 15:53
πηγή χρήστη
Σε άλλες γλώσσες...                            


4 απαντήσεις

ψήφοι
2

Από MSDN :

Η δήλωση DEFAULT μπορεί να εκτελεστεί μόνο από τον πάροχο πρόσβασης OLE DB και ADO. Θα επιστρέψει ένα μήνυμα λάθους, εάν χρησιμοποιηθεί μέσω του περιβάλλοντος χρήστη Access SQL View.

Sooo ... να μας πει περισσότερα για το τι κάνετε και πώς είστε εκτέλεση SQL σας;

Και γιατί να μην χρησιμοποιείτε τον σχεδιαστή τραπέζι;

Απαντήθηκε 09/12/2008 στις 15:59
πηγή χρήστη

Απαντήθηκε 09/12/2008 στις 15:58
πηγή χρήστη

ψήφοι
0

Έχω αυτή τη χαρακτηριστική λειτουργία πρόσβαση για να προσθέσετε νέα πεδία + προκαθορισμένες τιμές για πρόσβαση πίνακες :. Το πεδίο προστίθεται εάν δεν υπάρχει ήδη στον πίνακα.

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
Απαντήθηκε 09/12/2008 στις 16:31
πηγή χρήστη

ψήφοι
0

Δεν τοποθετήσετε μια νέα προκαθορισμένη τιμή, θα πρέπει να αλλάξει την υπάρχουσα.

Πρώτα διακόπτη πρόσβαση σε ένα λογικό SQL γεύση, όπως και στην απάντηση που συνδέονται παραπάνω, τότε θα μπορούμε να πούμε:

alter table Tabella alter column Campo Double DEFAULT 0
Απαντήθηκε 09/12/2008 στις 16:06
πηγή χρήστη

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