小说阅读网站,盗墓笔记,有声小说下载

簡(jiǎn)述：
如何定義字段默認(rèn)值

問(wèn)題：
如何設(shè)定表的某字段默認(rèn)值？

方法一：

用 JET SQL 來(lái)完成
ALTER TABLE TABLENAME ALTER COLUMN FIELDNAME TEXT(40) DEFAULT 默認(rèn)值

請(qǐng)注意，上述語(yǔ)句要用 ADODB.CONNECTION.EXECUTE 等方法來(lái)執(zhí)行，直接用上述代碼建立一個(gè)查詢無(wú)法保存或者運(yùn)行，會(huì)得到 ACCESS 的錯(cuò)誤提示。

方法二：

ADOX 可以。

Function ChengTableFieldPro_ADO()

    Dim MyTableName As String
    Dim MyFieldName As String
    Dim GetFieldDesc_ADO
    Dim GetFieldDescription
    MyTableName = "ke_hu"
    MyFieldName = "dw_name"

    Dim MyDB As New ADOX.Catalog
    Dim MyTable As ADOX.Table
    Dim MyField As ADOX.Column

    On Error GoTo Err_GetFieldDescription

    MyDB.ActiveConnection = CurrentProject.Connection
    Set MyTable = MyDB.Tables(MyTableName)
    GetFieldDesc_ADO = MyTable.Columns(MyFieldName).Properties("Description")


    Dim pro As ADODB.Property
    For Each pro In MyTable.Columns(MyFieldName).Properties
        Debug.Print pro.Name  " : "  pro.Value  " ---- type : "  pro.Type
    Next

    With MyTable.Columns(MyFieldName)

        '.Properties("nullable") = True    '必填
        '必填無(wú)法用上述代碼設(shè)置，出錯(cuò)提示為：
        '多步 OLE DB 操作產(chǎn)生錯(cuò)誤。如果可能，請(qǐng)檢查每個(gè) OLE DB 狀態(tài)值。沒(méi)有工作被完成。
        '目前可以用以下語(yǔ)句設(shè)置：
        'CurrentDb.TableDefs("ke_hu").Fields("DW_NAME").Properties("Required") = False
        .Properties("Jet OLEDB:Allow Zero Length") = True   '允許空
        .Properties("default") = "默默默默認(rèn)認(rèn)認(rèn)認(rèn)"      '默認(rèn)值
    End With
    Set MyDB = Nothing

Bye_GetFieldDescription:
    Exit Function

Err_GetFieldDescription:
    Beep
    Debug.Print Err.Description
    MsgBox Err.Description, vbExclamation
    GetFieldDescription = Null
    Resume Bye_GetFieldDescription

End Function

關(guān)于“多步錯(cuò)誤”的一些參考：

Sub ChangeUnicode()

   Dim tdf As TableDef
   Dim fld As Field
   Dim db As Database
   Dim pro As Property

   Set db = CurrentDb

   For Each tdf In db.TableDefs
       For Each fld In tdf.Fields
           If fld.Type = dbText Then
           If DBEngine.Errors(0).Number = 3270 Then
               Set pro = fld.CreateProperty("UnicodeCompression", 1, 0)
               fld.Properties.Append p
           End If
               fld.Properties("UnicodeCompression") = True
           End If
       Next fld
   Next tdf
End Sub

您可能感興趣的文章:

列出SQL Server中具有默認(rèn)值的所有字段的語(yǔ)句
input之怎么清除默認(rèn)值
MySQL表字段設(shè)置默認(rèn)值(圖文教程及注意細(xì)節(jié))

標(biāo)簽：清遠(yuǎn) 涼山楚雄通遼邢臺(tái) 赤峰上海南京

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《用sql設(shè)置access的默認(rèn)值》，本文關(guān)鍵詞用,sql,設(shè)置,access,的,默認(rèn)值,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。

濮阳杆衣贸易有限公司

用sql設(shè)置access的默認(rèn)值