1、首先打开电脑,然后打开Access2010,之后点击左上角的文件,如下图所示。
2、d出的界面,点击选项,如下图所示。
3、d出的界面,点击对象设计器,如下图所示。
4、然后点击默认字段类型中文本边上的下拉箭头,d出的界面,点击自动编号。
5、最后,我们点击确定就可以了,这样就将默认字段类型设置成自动编号了。
这是我以前写的一段VB代码把以下代码贴到一按钮click事件里,运行下。C盘就会生成一个1.mdb数据库,其中id为“自动编号类型”
====================
'需引用MS ADO Ext. for DDL
Dim cat As New ADOX.Catalog
''建数据库
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &"C:\1.mdb"
Dim tbl1 As New Table
Dim idx1 As New ADOX.Index
tbl1.Name = "KType" '字段
Set tbl1.ParentCatalog = cat
tbl1.Columns.Append "ID", adInteger '字段
tbl1.Columns("ID").Properties("Autoincrement") = True ‘这句该是你要的
tbl1.Columns.Append "KeyType", 202, 20
idx1.Name = "idxFile1"
idx1.Columns.Append "ID"
idx1.PrimaryKey = True
idx1.Unique = True
tbl1.Indexes.Append idx1
cat.Tables.Append tbl1
Set cat = Nothing
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)