| 查看: 1165 | 回复: 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新建表，想在表打开后，对字段属性的“必填字段”由默认值“是”修改为“否”，在网上查了一些写法，但没成功，这里请教各位高手了。 |
回复此楼» 猜你喜欢
极限拉扯，如何抉择
已经有14人回复
-
申请科研项目纯靠实力能成功吗？
已经有6人回复
-
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有12人回复
-
课题组会帮你通过考核么？
已经有7人回复
-
入职后第一次管课题组的专利缴费，对账才发现官费比别人多掏了一倍
已经有6人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有9人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有8人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有9人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有7人回复
点击这里搜索更多相关资源
200