紧急求助！在VB中如何使用命令创建一个ACCESS数据库？在线等待......

Question

各位大虾：
    向大家虔诚的请教，在VB中，如何通过语句创建一个ACCESS数据库，并且还要在创建好的ACCESS中创建表。向各位请教，该如何做，最好有代码， 本人不胜感谢！

Answer 1

如何编程创建Access数据库并加上密码保护: Set wspDefault = DBEngine.Workspaces(0) 
     ' Create new, encrypted database. 
     Set dbs = wspDefault.CreateDatabase("Newdb.mdb", _ 
     dbLangGeneral & ";pwd=NewPassword", dbEncrypt) 
     ' Create new table with two fields. 
     ...... 
    有关创建表的语句可以参考CreateDatabase的帮助。 
http://www.china-askpro.com/msg40/qa21.shtml

Answer 2

如何创建数据库的表格:   如果创建Access数据库的表，应该使用CreateTableDef方法。如果创建SQL Server等数据库的表，需要使用CREATE TABLE查询。 
    1）创建Access数据库的表 
     Dim dbs As Database, tdf As TableDef, fld As Field 
     
     ' 返回当前数据库 
     Set dbs = CurrentDb 
     ' 返回指向新表的TableDef对象 
     Set tdf = dbs.CreateTableDef("Contacts") 
     ' 在表中添加一个新字段 
     Set fld = tdf.CreateField("ContactName", dbText, 40) 
     ' 使用Append追加Field对象到TableDef的Fields集合中 
     tdf.Fields.Append fld 
     tdf.Fields.Refresh 
     ' 使用Append追加TableDef对象到数据库的TableDefs集合中 
     dbs.TableDefs.Append tdf 
     dbs.TableDefs.Refresh 
     Set dbs = Nothing 
    2）创建SQL Server等数据库的表 
    Dim dbs As Database 
     
    ...... 
    ' 使用两个文本字段来创建表。 
    dbs.Execute "CREATE TABLE ThisTable " _ 
     & "(" + Text1.Text "TEXT, " + Text2.Text + " TEXT);" 
    dbs.Close 
     http://www.china-askpro.com/msg36/qa94.shtml

Answer 3

Private Sub Form_Load()
Dim PathName As String
PathName = App.PathDim MyTable As TableDef, MyField As Field
   Dim MyDatabase As Database
   Set MyDatabase = CreateDatabase(PathName + "\Favorite.mdb", dbLangGeneral)
   Set MyTable = MyDatabase.CreateTableDef("Subclass")
   Set MyField = MyTable.CreateField("Name", dbText, 50)
   MyTable.Fields.Append MyField
   MyDatabase.TableDefs.Append MyTable
   
   Set MyTable = MyDatabase.CreateTableDef("AllRecords")
   Set MyField = MyTable.CreateField("Name", dbText, 50)
   MyTable.Fields.Append MyField
   Set MyField = MyTable.CreateField("Source", dbText, 50)
   MyTable.Fields.Append MyField
   MyDatabase.TableDefs.Append MyTable
End Sub