一个关于ADOX的问题。

Question

Private Sub Form_Load()
  
    Dim ct As New ADOX.Catalog
    Dim tb As New ADOX.Table
    Dim cl As New ADOX.Column
    
    Dim strCon As String
    
    strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=D:\DBTest.mdb"
    If Dir("D:\DBTest.mdb") <> "" Then Kill "D:\DBTest.mdb"        ct.Create (strCon)
        
        ct.ActiveConnection = strCon        tb.Name = "Test"
        tb.Columns.Append "Name", adVarWChar, 255
        tb.Columns.Append "Pic", adLongVarBinary
        
        cl.Name = "NumericField"
        cl.Type = adNumeric
        cl.Precision = 4
        
        tb.Columns.Append cl
        ct.Tables.Append tb
End Sub

Answer 1

多谢帮忙
不过你示例的代码不能解决我的问题
但是也启发了我
还是要感谢你！
应该这样就符合我的要求了Private Sub Form_Load()
  
    Dim ct As New ADOX.Catalog
    Dim tb As New ADOX.Table
    Dim cl As New ADOX.Column
    
    Dim strCon As String
    
    strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=D:\DBTest.mdb"
    If Dir("D:\DBTest.mdb") <> "" Then Kill "D:\DBTest.mdb"        ct.Create (strCon)
        
        ct.ActiveConnection = strCon        tb.Name = "Test"
        tb.Columns.Append "Name", adVarWChar, 255
                
        cl.Name = "NumericField"
        cl.Type = adNumeric        cl.Precision = 18
        cl.NumericScale = 4        
        tb.Columns.Append cl        ct.Tables.Append tbEnd Sub