ALTER TABLE [表名] ADD CONSTRAINT 默认值名 DEFAULT '51WINDOWS.NET' FOR [字段名]
ALTER TABLE TABLENAME ALTER COLUMN FIELDNAME TEXT(40) DEFAULT 默认值请注意,上述语句要用ADODB.CONNECTION.EXECUTE等方法来执行,直接用上述代码建立一个查询无法保存或者运行,会得到ACCESS的错误提示。
Dim Con As ADODB.Connection Set Con = New ADODB.Connection Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\WW_SOFT\ȨÏÞ.mdb;Persist Security Info=False" Con.Execute "ALTER TABLE X1 ALTER COLUMN A INTEGER DEFAULT 0" Con.Close
Set Con = New ADODB.Connection
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\WW_SOFT\ȨÏÞ.mdb;Persist Security Info=False"
Con.Execute "ALTER TABLE X1 ALTER COLUMN A INTEGER DEFAULT 0"
Con.Close