查找数据库

BaoChengReng　发表于：2014-08-08 16:26:09 　

已知数据库名称（包括路径），用VBA来判断这个库是否存在，有这个实例吗，请介绍。

煮江品茶发表于：2014-08-08 16:32:25

这与数据库没球关系，只是判断文件是否存在而已。可以写一个自定义函数：

Public Function ExistsFile(ByVal filepath As String) As Boolean

'功能：判断文件是否存在

'示例：If ExistsFile("C:\后台数据库.mdb")=true then msgbox "后台数据库不存在"
Dim fso As New FileSystemObject
ExistsFile = fso.FileExists(filepath)
Set fso = Nothing
End Function

Top

BaoChengReng 发表于：2014-08-08 16:43:16

1楼：我可能没有把问题讲清楚。我把数据库分成两部分，一部分是表单，为一个库，另一个是窗体等。那么打开窗体这个库时，需要检查一下这个链接表表单这个库是否存在，比如在局域网中，因为网络原因造成，所以要每次打开时要检查一下。我用的Dir命令，好像不太理想，所以在网上找找。我看过您有一篇大作，其中有重新连接表的例子。

Top

BaoChengReng 发表于：2014-08-08 16:48:59

1楼：就是要的您后面补充的例句，我实在是外行，所以提问时不得要领，抱歉。

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

查找数据库