如何判断Access数据库 中某个表是否存在?

wt_sanlian 2004-03-25 04:05:54
如题!
谢谢
...全文
109 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
woxinfeixiang 2004-04-03
Public Const NameNotInCollection = 3265

Public Function ExistsTableQuery(ByVal lngKind As Long, ByVal TName As String) As Boolean

Dim Test As String
Dim DB As Database
On Error Resume Next

ExistsTableQuery = False
Set DB = CurrentDb

Select Case lngKind
Case 1:

Test = DB.TableDefs(TName).Name
Case 2:

Test = DB.QueryDefs(TName).Name
End Select
If Err.Number <> NameNotInCollection Then
ExistsTableQuery = True

Err = 0
End If
End Function
回复
changechange 2004-03-26
我认为比较方便的是直接使用错误陷阱

关于此主题请参考:http://access911.net/index.asp?u1=a&u2=77FABE1E1ADC
回复
changechange 2004-03-26
1、回答 victorycyz的问题:

如何获取对msysobject的操作权限
http://access911.net/eg/swf/msobject.swf

2、回答楼主的问题:
Access不是sqlserver,所以推荐不要直接操作系统表,在Access中应使用如下方法:
请参考专题地址:
http://access911.net/index.asp?board=4&recordid=72FAB71E14DC 以及与其相关的“相关文章”
关于此主题请参考:http://access911.net/index.asp?u1=a&u2=73FAB61E17DC
回复
wt_sanlian 2004-03-26
victorycyz(中海)
提示在 msysobjects上没有读取数据权限,怎么办?
回复
victorycyz 2004-03-26
select [name]
from msysobjects
where [name]="要查找的表名" and [type]=1 and [flags]=0
回复
wt_sanlian 2004-03-25
Please help!
回复
相关推荐
发帖
Access
创建于2007-09-28

7508

社区成员

Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点。
申请成为版主
帖子事件
创建了帖子
2004-03-25 04:05
社区公告
暂无公告