vb中怎么定义ACCESS数据表的主键且以1的步长自动递增
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的主键?
------解决方案--------------------
不懂,帮忙顶一下。
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的主键?
------解决方案--------------------
不懂,帮忙顶一下。