VB修改MySQL表中的自增步长_vb中如何定义ACCESS数据表的主键且以1的步长自动递增....

vb中如何定义ACCESS数据表的主键且以1的步长自动递增.DimcatAsNewADOX.CatalogDimtblAsNewADOX.TableDimpstrAsStringDimDBAsStringDB=App.Path&"\"&"department.mdb"pstr="Provider=M...

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的主键?

展开