创建一个空数据库

2016-01-29 15:01 21 1 收藏

创建一个空数据库,创建一个空数据库

【 tulaoshi.com - Access数据库 】

Function CreateNormalDB(strPathName As String) As Boolean
On Error GoTo Exit_ERR
Dim wrkDefault As Workspace
Dim NewDB As Database

CreateNormalDB = False
Set wrkDefault = DBEngine.Workspaces(0)
If Dir(strPathName) < "" Then Kill strPathName
Set NewDB = wrkDefault.CreateDatabase(strPathName, dbLangGeneral)

NewDB.Close
Set NewDB = Nothing

CreateNormalDB = True
Exit Function

Exit_ERR:
MsgBox "备份失败!" & vbCrLf & vbCrLf & Err.Description, vbExclamation
Exit Function
End Function

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com)

'调用时只需提供路径及文件名即可,此函数为备份数据模块的一部份

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com)

来源:http://www.tulaoshi.com/n/20160129/1495044.html

延伸阅读
一直以来,ACCESS数据库中的申报数据在分公司与总公司之间传递,用EXCEL或DBASE、TXT甚至ACCESS等格式,我总觉得不太理想。最近看了一本书,不经意间发现了一个方法,使用ACCESS数据库生成申报数据与读入数据似乎简单了不少,特拿出来与大家分享。同时,也希望能得到更多的指点。 附上示例: Sub Mwrite() On Error GoTo thiserr Dim rs ...
用数据库可以建立访问数据库的应用程序,这样的程序可以显示、编辑和更新各类已有的数据库中的信 息,包括MicrosoftAccess、Btrieve、dBASE,Microsoft,FoxPro及Paradox等。同时,用数据控件可以像访问数据库一样访问MicrosoftExcel、Lotusl—2—3和标准ASCⅡ文本文件。此外,用数据控件还可以访问和操作远程的开放数据库互连(ODBC)数据库,...
标签: Web开发
% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '数据库操作类 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '名称:Class_DBOperate '版本:0.2 '作者:qihangnet '更新:2005年6月14日 '作用:简化数据库操作的流程 '授权:免费使用 '%%%%%%%%%%%%%%%%%%%%%%%%%%...
标签: ASP
以前一直困扰我的一个问题,如何判断数据库连接是否成功(比如sql没有启动,数据库不存在等),实现友好的错误处理,但vbscript的错误处理机制实在太差,只有on error resume nex/go to,但往往使用ADO的错误陷阱后,等待你的将是脚本超时,这个函数将改变这一状况(连接超时长短可以自己根据实际情况控制) '入口参数:连接字符串strconn '返回...
标签: SQLServer
首先说说怎么用SQL语句创建数据库,创建数据库的语句有如下几种:     1. CREATE TABLE(创建新表)     2. CREATE INDEX(增加索引)     3. DROP INDEX(删除索引)     4. CONSTRAINT(约束语句)   &n...

经验教程

436

收藏

37
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部