24小时热门版块排行榜

>论坛更新日志 (1275)
>虫友互识 (65)
>论文投稿 (43)
>休闲灌水 (40)
>论文道贺祈福 (31)
>导师招生 (27)
>基金申请 (21)
>考研 (20)
>教师之家 (17)
>硕博家园 (17)
>找工作 (15)
>考博 (12)
>公派出国 (8)
>博后之家 (5)
>经济学 (2)
>复合材料 (2)

返回列表

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

回复此楼