发布网友 发布时间:2024-10-01 14:22
共1个回答
热心网友 时间:2024-10-17 13:21
Dim Con As ConnectionDim Rs As RecordsetDim strCn as stringstrCn= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=你新建库名称.mdb;Persist 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", ?????)的这种方式,可用如下方法:热心网友 时间:2024-10-17 13:24
Dim Con As ConnectionDim Rs As RecordsetDim strCn as stringstrCn= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=你新建库名称.mdb;Persist 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", ?????)的这种方式,可用如下方法: