| 查看: 1112 | 回复: 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新建表，想在表打开后，对字段属性的“必填字段”由默认值“是”修改为“否”，在网上查了一些写法，但没成功，这里请教各位高手了。 |
回复此楼» 猜你喜欢
求调剂 有机化学考研356分
已经有4人回复
-
0703 化学 求调剂，一志愿山东大学 342 分
已经有4人回复
-
086000生物与医药调剂
已经有7人回复
-
305求调剂
已经有7人回复
-
348求调剂
已经有3人回复
-
332求调剂
已经有6人回复
-
各位老师好，我的一志愿为北京科技大学085601材料专硕
已经有6人回复
-
085600 材料与化工 329分求调剂
已经有10人回复
-
356求调剂
已经有3人回复
-
一志愿武汉理工，总分321，英一数二，求老师收留。
已经有7人回复
点击这里搜索更多相关资源
6