Question

vb中如何定义ACCESS数据表的主键且以1的步长自动递增.

vb中如何定义ACCESS数据表的主键且以1的步长自动递增.
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim pstr As String
Dim DB As String

DB = App.Path & "\" & "department.mdb"
pstr = "Provider=Microsoft.Jet.OLEDB.4.0;" '数据库驱动 4.0 For Office 2k/2003, 3.5.1 For Office 97
pstr = pstr & "Data Source=" & DB

cat.Create pstr '建立数据库
cat.ActiveConnection = pstr

tbl.Name = "单位" '定义表名
tbl.Columns.Append "编号", adInteger '定义字段
tbl.Columns.Append "单位名称", adVarWChar, 16 '定义字段
tbl.Columns.Append "线路名称", adVarWChar, 8 '定义字段
tbl.Columns.Append "起点里程", adDouble
tbl.Columns.Append "终点里程", adDouble
tbl.Columns.Append "所属车间", adVarWChar, 16 '定义字段
tbl.Columns.Append "所属工务段", adVarWChar, 16 '定义字段
tbl.Columns.Append "所属铁路局", adVarWChar, 16 '定义字段
tbl.Columns.Append "上级单位编号", adInteger '定义字段
cat.Tables.Append tbl '建立表
在这里如何把"编号"字段定义自动+1的主键?

Answer 1

CREATE TABLE MyCustomers (CustID int IDENTITY (100,1) PRIMARY KEY, CompanyName nvarchar (50)):CustID 设为主键且以1的步长自动递增.