
create table tablename(
ID int identity(1,1) NOT NULL -- identity(1,1) 就表示的是自增
)
Dim Con As ConnectionDim Rs As RecordsetDim strCn as stringstrCn= "Provider=Microsoft.Jet.OLEDB.4.0Data Source=你新建库名称.mdbPersist Security Info=False"Set Con = New ConnectionCon.Open strCnstrCn = "create table aaa(field1 AutoIncrement,field2 text(10))" '建立aaa表,字段filed1为自动编号型,字段field2为10位字符型Con.Execute strCncon.closeset con=nothing如用Set fldMethod = tldMthdDamage.CreateField("DamageID", ?????)的这种方式,可用如下方法:欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)