费话,然是数据类型,小数为两位,是问在access中怎么写吗???我已经试过“numeric (9,2) not null”,这样是不正确的
首先我想说的是:楼主说话应该注意一点,你有困难时别人是没有义务帮你的。 对于你的这个问题,据我所知是没有答案的。下面是我的示例,运行到设置小数位数时就会出错了 Private Sub Form_Load() Dim cat As ADOX.Catalog Set cat = New ADOX.Catalog cat.Create ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\newdata.mdb" + ";") MsgBox "数据库已经创建成功!" Dim tbl As ADOX.Table Set tbl = New ADOX.Table tbl.ParentCatalog = cat tbl.Name = "MyTable"'增加一个自动增长的字段 Dim col As ADOX.Column Set col = New ADOX.Column col.ParentCatalog = cat col.Type = ADOX.DataTypeEnum.adInteger ' // 必须先设置字段类型 col.Name = "id" col.Properties("Jet OLEDB:Allow Zero Length").Value = False col.Properties("AutoIncrement").Value = True tbl.Columns.Append col, ADOX.DataTypeEnum.adInteger, 0'增加一个文本字段 Dim col2 As ADOX.Column Set col2 = New ADOX.Column col2.ParentCatalog = cat col2.Name = "Description" col2.Properties("Jet OLEDB:Allow Zero Length").Value = False tbl.Columns.Append col2, ADOX.DataTypeEnum.adVarChar, 25'增加一个数值型字段 Dim col3 As ADOX.Column Set col3 = New ADOX.Column col3.ParentCatalog = cat col3.Type = ADOX.DataTypeEnum.adDouble col3.Name = "ll" tbl.Columns.Append col3, ADOX.DataTypeEnum.adDouble Dim p As ADOX.Property For Each p In col3.Properties Debug.Print p.Name & ":" & p.Value & ":" & p.Type & ":" & p.Attributes Next'设置主键 tbl.Keys.Append "PrimaryKey", ADOX.KeyTypeEnum.adKeyPrimary, "id", "", "" cat.Tables.Append tbl MsgBox "<br>数据库表:" + tbl.Name + "已经创建成功!" Set tbl = Nothing Set cat = NothingDim adocon As ADODB.Connection Set adocon = New ADODB.Connection adocon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\newdata.mdb;" & "Mode=Share Deny Read|Share Deny Write;Persist Security Info=False;Jet OLEDB:Database Password=" Set cat = New ADOX.Catalog Set cat.ActiveConnection = adocon cat.Tables.Item("MyTable").Columns("ll").Properties("Jet OLEDB:Allow Zero Length").Value = True '设置零长度正确 cat.Tables.Item("MyTable").Columns("ll").Properties("Jet OLEDB:AutoGenerate").Value = 2 '设置小数位数会出错 Set cat = Nothing adocon.Close Set adocon = Nothing End Sub
对于你的这个问题,据我所知是没有答案的。下面是我的示例,运行到设置小数位数时就会出错了
Private Sub Form_Load() Dim cat As ADOX.Catalog
Set cat = New ADOX.Catalog
cat.Create ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\newdata.mdb" + ";")
MsgBox "数据库已经创建成功!"
Dim tbl As ADOX.Table
Set tbl = New ADOX.Table
tbl.ParentCatalog = cat
tbl.Name = "MyTable"'增加一个自动增长的字段
Dim col As ADOX.Column
Set col = New ADOX.Column
col.ParentCatalog = cat
col.Type = ADOX.DataTypeEnum.adInteger ' // 必须先设置字段类型
col.Name = "id"
col.Properties("Jet OLEDB:Allow Zero Length").Value = False
col.Properties("AutoIncrement").Value = True
tbl.Columns.Append col, ADOX.DataTypeEnum.adInteger, 0'增加一个文本字段
Dim col2 As ADOX.Column
Set col2 = New ADOX.Column
col2.ParentCatalog = cat
col2.Name = "Description"
col2.Properties("Jet OLEDB:Allow Zero Length").Value = False
tbl.Columns.Append col2, ADOX.DataTypeEnum.adVarChar, 25'增加一个数值型字段
Dim col3 As ADOX.Column
Set col3 = New ADOX.Column
col3.ParentCatalog = cat
col3.Type = ADOX.DataTypeEnum.adDouble
col3.Name = "ll"
tbl.Columns.Append col3, ADOX.DataTypeEnum.adDouble
Dim p As ADOX.Property
For Each p In col3.Properties
Debug.Print p.Name & ":" & p.Value & ":" & p.Type & ":" & p.Attributes
Next'设置主键
tbl.Keys.Append "PrimaryKey", ADOX.KeyTypeEnum.adKeyPrimary, "id", "", ""
cat.Tables.Append tbl
MsgBox "<br>数据库表:" + tbl.Name + "已经创建成功!"
Set tbl = Nothing
Set cat = NothingDim adocon As ADODB.Connection
Set adocon = New ADODB.Connection
adocon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\newdata.mdb;" & "Mode=Share Deny Read|Share Deny Write;Persist Security Info=False;Jet OLEDB:Database Password="
Set cat = New ADOX.Catalog
Set cat.ActiveConnection = adocon
cat.Tables.Item("MyTable").Columns("ll").Properties("Jet OLEDB:Allow Zero Length").Value = True '设置零长度正确
cat.Tables.Item("MyTable").Columns("ll").Properties("Jet OLEDB:AutoGenerate").Value = 2 '设置小数位数会出错
Set cat = Nothing
adocon.Close
Set adocon = Nothing
End Sub