mdb中decimal型数据类型是用什么表示啊?如在sql server中定义字段“cfTTLAMT ”为decimal(9,2) not null在mdb中怎么表示啊?

解决方案 »

  1.   

    费话,然是数据类型,小数为两位,是问在access中怎么写吗???我已经试过“numeric (9,2) not null”,这样是不正确的
      

  2.   

    首先我想说的是:楼主说话应该注意一点,你有困难时别人是没有义务帮你的。
    对于你的这个问题,据我所知是没有答案的。下面是我的示例,运行到设置小数位数时就会出错了
    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