VB代码创建的ACCESS数据库时，怎么设置某个字段不为必填字段，可以为空字符串。
我的代码如下：
Sub CreateLocalDatabase(Dbname As String)
'创建本地数据库
Dim cat As New ADOX.Catalog
Dim Connstr As String
Dim tbl As New ADOX.Table
Dim LocalCon As New ADODB.Connection
cat.Create "Provider='Microsoft.Jet.OLEDB.4.0';Data Source='" & Dbname & "'"
Set cat = Nothing
cat.ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source='" & Dbname & "'"
tbl.Name = "Product"
tbl.Columns.Append "Cservice", adVarWChar, 100
tbl.Columns.Append "Mmarketer", adVarWChar, 50
tbl.Columns.Append "Mphon", adVarWChar, 50
tbl.Columns.Append "Madre", adVarWChar, 100
tbl.Columns.Append "Mplace", adVarWChar, 100
tbl.Columns.Append "Mperson", adVarWChar, 50
tbl.Columns.Append "Mauthorizor", adVarWChar, 50
cat.Tables.Append tbl
Set tbl = Nothing
Set cat = Nothing
Dim strAlterPassword As String
strAlterPassword = "ALTER DATABASE PASSWORD [pwd] NULL;"
LocalCon.Mode = adModeShareExclusive
LocalCon.Open "Provider='Microsoft.Jet.OLEDB.4.0';Data Source='" & Dbname & "'"
LocalCon.Execute strAlterPassword
LocalCon.Close
End Sub
上面的代码创建的ACCESS数据库，字段的属性都为：必填字段：是，允许空字符串：是。
我想改为字段的属性为：必填字段：否，允许空字符串：是。
怎么改，辛苦大家了。
问题点数：30、回复次数：3Top
1 楼changechange（http://access911.net 是我的个人网站，欢迎光临）回复于 2005-04-28 13:12:39 得分 20
关于此主题请参考：
如何更改表的某一个字段的属性比如允许空字符《表》
http://access911.net/index.asp?u1=a&u2=73FABF1E1BDC
Top
2 楼changechange（http://access911.net 是我的个人网站，欢迎光临）回复于 2005-04-28 13:15:53 得分 10
关于此主题请参考：
《查询》数据定义查询不会怎么办？
http://access911.net/index.asp?u1=a&u2=71FAB01E15DC
Top
3 楼hounaoshao（后脑少）回复于 2005-04-28 13:55:08 得分 0
呵呵，加一句就可以了:tbl.Columns(6).Attributes = adColNullable
参考http://www.nb321.com/asppost8/web35525.htm
不过还是谢谢二位.Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
