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新建表，想在表打开后，对字段属性的“必填字段”由默认值“是”修改为“否”，在网上查了一些写法，但没成功，这里请教各位高手了。

回复此楼

» 猜你喜欢

1楼 2013-05-15 11:05:04

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

智能机器人

Robot (super robot)

我们都爱小木虫

找到一些相关的精华帖子，希望有用哦~

【分享】Mapgis应用技巧已经有13人回复

点击这里搜索更多相关资源

科研从小木虫开始，人人为我，我为人人

相关版块跳转我要订阅楼主 wenchong 的主题更新

返回列表