创建一个空数据库----为中国网络技术提供点滴动力-iyit.net-易特网络技术！

　　通行证: 用户密码

域名空间　下载中心　 社区论坛　信息公告 MY小屋

联系我们
设为首页
加入收藏

QQ,ASP,PHP,JSP,XML,SQL,.Net,编程程序网页图象建站经验私服




	当前位置：首页>>数据库>>MSAccess>>正文	新版上线！[旧版]

注:打开慢时请稍等

创建一个空数据库

http://www.iyit.net 日期：2006-5-31 14:43:03 来源：网络转载点击：

【参加讨论】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

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

编辑：黑鹰　[发送给好友] [打印本页] [关闭窗口] [返回顶部]
上一篇：隐藏 Access 窗口
下一篇：能否编译mdb文件到exe文件？
转载请注明来源：www.iyit.net
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。

		相关文章

推荐新闻

获取Windows / System / Temp 目录路径

Access数据库开发技巧(一)

Access数据库技术（24)

获取Windows / System / Temp 目录路径

Windows XP专业版IIS连接数的更改

QQ最新版下载 2006 beta2 体验新感受

优秀公益广告作品欣赏(7)

Office2007简体中文版浮出水面美图抢

IP地址资源2012年枯竭部署IPv6很紧迫

古老问题有新解：世上先有鸡蛋后有鸡

Dreamweaver MX 2004从零开始(1)

利用CSS改善网站可访问性

如何让MM的脸通透可人

msn8.0下载

	友情链接

	Copyrights © 2004-2006 iYiT.Net All Rights Reserved. 网站合作、广告联系QQ:147007642、466949678
	易特网络技术冀ICP备05011851号		浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。