| 查看: 1108 | 回复: 0 | ||
[求助]
利用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新建表，想在表打开后，对字段属性的“必填字段”由默认值“是”修改为“否”，在网上查了一些写法，但没成功，这里请教各位高手了。 |
回复此楼» 猜你喜欢
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有8人回复
-
体制内长辈说体制内绝大部分一辈子在底层，如同你们一样大部分普通教师忙且收入低
已经有13人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有8人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有8人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有11人回复
-
为什么中国大学工科教授们水了那么多所谓的顶会顶刊，但还是做不出宇树机器人？
已经有8人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有5人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有6人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有9人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有4人回复
点击这里搜索更多相关资源