怎样在程序中为Access表创建一个自动编号字段？

最新推荐文章于 2025-10-21 22:09:11 发布

转载最新推荐文章于 2025-10-21 22:09:11 发布 · 2.1k 阅读

标签

#access #string #database

收录于

本文介绍如何使用VBA自动创建Microsoft Access数据库及其表结构。通过代码演示了数据库和表的创建过程，并详细展示了字段类型的设置方法。

Dim strDB As String Dim strTbl As String Dim tmpWS As Workspace Dim dbs As Database Dim tdf As TableDef Dim fldtmp As Field strDB = App.Path & "/" & Text1.Text & ".mdb" strTbl = Text2.Text If FileExist(strDB) = False Then Set dbs = Workspaces(0).CreateDatabase(strDB, dbLangGeneral) Set tdf = dbs.CreateTableDef(strTbl) End If Set dbs = OpenDatabase(strDB) Set tdf = dbs.CreateTableDef(strTbl) Set fld = tdf.CreateField() '自动编号类型 With fld .Name = "ID" .Type = dbLong '.Size = 50 .Attributes = .Attributes Or dbAutoIncrField End With tdf.Fields.Append fld Set fld = tdf.CreateField("RQ", dbText, 30) tdf.Fields.Append fld Set fld = tdf.CreateField("BM", dbText, 30) fld.AllowZeroLength = True tdf.Fields.Append fld Set fld = tdf.CreateField("MC", dbText, 50) tdf.Fields.Append fld Set fld = tdf.CreateField("GG", dbText, 30) fld.AllowZeroLength = True tdf.Fields.Append fld Set fld = tdf.CreateField("DW", dbText, 30) fld.AllowZeroLength = True tdf.Fields.Append fld Set fld = tdf.CreateField("CD", dbText, 30) fld.AllowZeroLength = True tdf.Fields.Append fld Set fld = tdf.CreateField("PFJ", dbCurrency, 30) tdf.Fields.Append fld Set fld = tdf.CreateField("DJ", dbCurrency, 30) tdf.Fields.Append fld Set fld = tdf.CreateField("SL", dbDouble, 30) tdf.Fields.Append fld Set fld = tdf.CreateField("JE", dbCurrency, 30) tdf.Fields.Append fld Set fld = tdf.CreateField("GHDW", dbText, 50) tdf.Fields.Append fld Set fld = tdf.CreateField("JHDW", dbText, 50) tdf.Fields.Append fld dbs.TableDefs.Append tdf dbs.Close Set dbs = Nothing