请问如何用代码创建一个ACCESS数据库，并使之有first,last,num三个字段，每个字段的数据类型分别是日期、日期、数字，并加有密码。

Question

要求用ADO。
谢谢各位大峡。

Answer 1

用ＡＤＯ没有办法实现创建ＭＤＢ数据库的功能，只得使用ＡＤＯＸSub CreateDatabase()   Dim cat As New ADOX.Catalog
   cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\news.mdb;Jet OLEDB:Database Password=ggg"
   
    Dim tbl As New Table   tbl.Name = "MyTable"
   tbl.Columns.Append "first", 7
   tbl.Columns.Append "last", 7
   tbl.Columns.Append "num", adInteger
   cat.Tables.Append tblEnd Sub

Answer 2

tbl.Columns.Append "first", adDate    'adDate=7
在Ｃ：创建news.mdb数据库，密码为ggg,并建建一表Mytable.

Answer 3

jtkk() 
-------------
ADO 没办法?

Answer 4

建议用dao完成Dim tdfnewtable As TableDef
Dim fldnewfield As Field'创建数据表
Set tdfnewtable = dbs.CreateTableDef(tabname)
'创建表中字段
With tdfnewtable
    .Fields.Append .CreateField("原材料名称", dbText, 50)
    .Fields.Append .CreateField("单台用量", dbLong)
End With
dbs.TableDefs.Append tdfnewtable
dbs.TableDefs.Refresh