24小时热门版块排行榜

返回列表

wenchong

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 72.5
帖子: 15
在线: 7.4小时
虫号: 1844511
注册: 2012-06-02
专业: 能源化工

[求助] 利用VB6.0创建Access新表并且新表每列的“必填字段”为否

dim MyCatalog as ADOX.Catalog
dim Mytable as table
dim Myrecordset as Recordset
Set Mytable = New table                '新建表并写好名字与字段名
      Mytable.Name = "abcde"
      Mytable.Columns.Append "a", adInteger
      Mytable.Columns.Append "b", adVarWChar, 20
      Mytable.Columns.Append "c", adVarWChar, 20
      Mytable.Columns.Append "d", adInteger
      Mytable.Columns.Append "e", adVarWChar, 20
      MyCatalog.Tables.Append Mytable    '将新表添加到目录
   Set Mytable = Nothing
   Set MyCatalog = Nothing
   Set MyRecordset = New ADODB.Recordset '新建记录集并设置
      MyRecordset.CursorType = adUseClient
      MyRecordset.LockType = adLockOptimistic
      MyRecordset.CursorLocation = adUseClient
      MyRecordset.Open "abcde", MyConnection, adOpenDynamic, adCmdTable
       MyRecordset.Fields("a"

.Properties("Required"

.Value = False
      MyRecordset.AddNew
      MyRecordset.MoveFirst
   ' 往下开始逐条写记录

如红色语句显示的，本人用vb6.0对Access2007新建表，想在表打开后，对字段属性的“必填字段”由默认值“是”修改为“否”，在网上查了一些写法，但没成功，这里请教各位高手了。

回复此楼