如何使用代码动态建立和删除数据库啊?
---------------------------------------------------------------
创建一个数据库:
首先在项目中添加引用->Microsoft ADO Ext. 2.x for DLL and Security
然后看下面的代码,创建一个数据库:
Public Function CreateDatabase(DBPath As String) As Boolean
On Error Resume Next
Dim oCatalog As New ADOX.Catalog
oCatalog.Create _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
CreateDatabase = Err.Number = 0
End Function
调用:CreateDatabase ("c:\1.mdb")
创建表可以用SQL语句。
删除已经存在的数据库,和删除一个文件没什么两样
关闭数据库后用 kill 或者用fso ,随便
站长排行
学院
新闻
专栏
盈利
如果你有站长界人事变动、重组并购、变革技术出现,以及产品投诉等重要新闻线索,请告诉我们,我们会给予特别关注。
0631-3653338
站长中国编辑部
站长中国24小时新闻热线: 13256307008