Ms access 在ms access中创建数据库，然后删除特定数据库。使用任何vb查询或vb代码

我想使用ms access的代码或任何选项在ms access中创建多个数据库，但我也想删除数据库。

---

请帮助我

您可以有一个名为“db1.mdb”的空数据库，然后将此代码添加到另一个Access数据库的模块中：

  Set fso = CreateObject("scripting.filesystemobject")
  fso.CopyFile "c:\db.mdb", "c:\db_copy1.mdb", True
  fso.CopyFile "c:\db.mdb", "c:\db_copy2.mdb", True
  fso.CopyFile "c:\db.mdb", "c:\db_copy3.mdb", True
  fso.DeleteFile "c:\db.mdb"

kill "myNewMDB.mdb"

---

您可以有一个名为“db1.mdb”的空数据库，然后将此代码添加到另一个Access数据库的模块中：

  Set fso = CreateObject("scripting.filesystemobject")
  fso.CopyFile "c:\db.mdb", "c:\db_copy1.mdb", True
  fso.CopyFile "c:\db.mdb", "c:\db_copy2.mdb", True
  fso.CopyFile "c:\db.mdb", "c:\db_copy3.mdb", True
  fso.DeleteFile "c:\db.mdb"

kill "myNewMDB.mdb"

---

要从Access界面创建Access数据库，请执行以下操作：

createDatabase "myNewMDB.mdb", dbLangGeneral

要删除数据库，请执行以下操作：

  Set fso = CreateObject("scripting.filesystemobject")
  fso.CopyFile "c:\db.mdb", "c:\db_copy1.mdb", True
  fso.CopyFile "c:\db.mdb", "c:\db_copy2.mdb", True
  fso.CopyFile "c:\db.mdb", "c:\db_copy3.mdb", True
  fso.DeleteFile "c:\db.mdb"

kill "myNewMDB.mdb"

它在没有初始mdb文件或额外DLL的情况下工作

用于多个数据库

public Function createDeleteDatabase(howManyDatabases as integer) as boolean

''output is by default False
createDeleteDatabase = False

on error goto createDeleteDatabase_Error

Dim i as integer
For i = 1 to howManyDatabases
    createDatabase "myMDBNumber_" & str(i,0) & ".mdb", dbLangGeneral
Next i
For i = 1 to howManyDatabases
    kill "myMDBNumber_" & str(i,0) & ".mdb"
Next i

''if no errors in the fonction, set the output to True
createDeleteDatabase = True

Exit function
createDeleteDatabase_Error:
'' your error treatment
End function

---

要从Access界面创建Access数据库，请执行以下操作：

createDatabase "myNewMDB.mdb", dbLangGeneral

要删除数据库，请执行以下操作：

  Set fso = CreateObject("scripting.filesystemobject")
  fso.CopyFile "c:\db.mdb", "c:\db_copy1.mdb", True
  fso.CopyFile "c:\db.mdb", "c:\db_copy2.mdb", True
  fso.CopyFile "c:\db.mdb", "c:\db_copy3.mdb", True
  fso.DeleteFile "c:\db.mdb"

kill "myNewMDB.mdb"

它在没有初始mdb文件或额外DLL的情况下工作

用于多个数据库

public Function createDeleteDatabase(howManyDatabases as integer) as boolean

''output is by default False
createDeleteDatabase = False

on error goto createDeleteDatabase_Error

Dim i as integer
For i = 1 to howManyDatabases
    createDatabase "myMDBNumber_" & str(i,0) & ".mdb", dbLangGeneral
Next i
For i = 1 to howManyDatabases
    kill "myMDBNumber_" & str(i,0) & ".mdb"
Next i

''if no errors in the fonction, set the output to True
createDeleteDatabase = True

Exit function
createDeleteDatabase_Error:
'' your error treatment
End function

---

这是一个很好的问题，但是你（或是超过2K的人）能把它清理一下吗？这是一个很好的问题，但是你（或是超过2K的人）能把它清理一下吗。