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

wt_sanlian 2004-03-25 04:05:54

如题!
谢谢

...全文

218 6 打赏收藏转发到动态举报

写回复

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

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!

在labview中编写一个判断已链接的数据库是否攒在某个表格的函数

升级ACCESS数据库 VB升级ACCESS数据库 ACCESS数据库升级判断表是否存在 不存在就创建判断表中某字段是否存在 不存在就创建

可以把本功能写成一个函数，函数的处理过程描述如下：首先调用adodb.connection对象中的openSchema函数，这样会得到一个Recordset，其中每一条“纪录”对应着数据库中的一张表，“纪录”的每个“字段”包含了对应表的某方面信息。其中TABLE_NAME字段包含了对应表的名称然后遍历这个Recordset，如果“当前纪录”的TABLE_NAME字段的值和要查找的表的名字一样，证明要查找的表存在。函数如下所示: 代码如下:function check_gived_DataTable_exist_or_not(connect_object,name_of_gived_Da

在Access数据库中通过SQL语句找到某一表是否存在的确是一件困难的事，按照下面的步骤执行并在程序中通过SQL语句查询表是否存在

Excel VBA与数据库整合应用范例精讲(范例文件代码) 内容简介　　《Excel VBA 数据库整合应用范例精讲》用180个实例介绍了利用Excel VBA来操作数据库（包括Access、SQL Server和FoxPro）的实用方法和技巧。　　全书共11章。第1～6章是利用Excel VBA操作Access数据库的实例；第7～8章是利用Excel VBA操作SQL Server数据库和FoxPro数据库的方法和技巧实例；第9～10章是将工作簿当作数据库以及将文本文件当作数据库进行操作的方法和技巧实例。第11章以一个具有较大使用价值的固定资产管理系统为案例，详细介绍Excel VBA开发管理系统的过程。每个实例分析透彻，代码完整，技巧全面，使用得心应手。目录第1章　动态创建Access数据库和数据表实例1-1　利用DAO创建数据库和数据表实例1-2　利用ADOX创建数据库和数据表实例1-3　利用SQL语句创建数据库和数据表实例1-4　在已有的数据库中创建数据表（DAO）实例1-5　在已有的数据库中创建数据表（ADOX）实例1-6　在已有的数据库中创建数据表（SQL，Command对象）实例1-7　在已有的数据库中创建数据表（SQL，Recordset对象）实例1-8　利用Access对象创建数据库和数据表实例1-9　利用Access对象在已有的数据库中创建数据表实例1-10　利用工作表数据创建数据表（ADOX）实例1-11　利用工作表数据创建数据表（ADO+SQL）实例1-12　利用工作表数据创建数据表（DAO）实例1-13　利用已有的数据表创建新数据表（ADO）实例1-14　利用已有的数据表创建新数据表（DAO）实例1-15　利用已有的数据表创建新数据表（Access）第2章　获取Access数据库信息实例2-1　检查数据表是否存在（ADO）实例2-2　检查数据表是否存在（ADOX）实例2-3　检查数据表是否存在（DAO）实例2-4　检查数据表是否存在（Access）实例2-5　获取数据库中所有表的名称和类型（ADO）实例2-6　获取数据库中所有表的名称和类型（ADOX）实例2-7　获取数据库中所有的表名称（DAO）实例2-8　获取数据库中所有数据表名称（ADO）实例2-9　获取数据库中所有数据表名称（ADOX）实例2-10　获取数据库中所有数据表名称（DAO）实例2-11　获取数据库中所有数据表名称（Access）实例2-12　检查某字段是否存在（ADO）实例2-13　检查某字段是否存在（ADOX）实例2-14　检查某字段是否存在（DAO）实例2-15　检查某字段是否存在（Access）实例2-16　获取数据库中某数据表的所有字段信息（ADO）实例2-17　获取数据库中某数据表的所有字段信息（ADOX）实例2-18　获取数据库中某数据表的所有字段信息（DAO）实例2-19　获取数据库中某数据表的所有字段信息（Access）实例2-20　获取数据库的所有查询信息（ADOX）实例2-21　获取数据库的所有查询信息（DAO）实例2-22　获取数据库的模式信息（OpenSchema）实例2-23　获取表的创建日期和最后更新日期（ADOX）实例2-24　获取表的创建日期和最后更新日期（DAO）第3章　查询获取Access数据库记录数据实例3-1　将数据库记录数据全部导入到Excel工作表（ADO，之一）实例3-2　将数据库记录数据全部导入到Excel工作表（ADO，之二）实例3-3　将数据库记录数据全部导入到Excel工作表（ADO，之三）实例3-4　将数据库记录数据全部导入到Excel工作表（DAO，之一）实例3-5　将数据库记录数据全部导入到Excel工作表（DAO，之二）实例3-6　将数据库记录数据全部导入到Excel工作表（QueryTable集合）实例3-7　将数据库的某些字段的记录数据导入到Excel工作表（ADO）实例3-8　将数据库的某些字段记录数据导入到Excel工作表（DAO）实例3-9　查询前面的若干条记录（全部字段）（TOP）实例3-10　查询前面的若干条记录（部分字段）（TOP）实例3-11　查询不重复的字段记录（DISTINCT）实例3-12　利用Like运算符进行模糊查询实例3-13　查询某一区间内的记录（BETWEEN）实例3-14　查询存在于某个集合里面的记录（IN）实例3-15　将查询结果进行排序（ORDER BY）实例3-16　进行复杂条件的查询（WHERE）实例3-17　利用合计函数进行查询（查询最大值和最小值）实例3-18　利用合计函数进行查询（查询合计值和平均值）实例3-19　将一个查询结果作为查询条件进行查询实例3-20　将查询结果进行分组（GROUP BY）实例3-21　将查询结果进行分组（HAVING）实例3-22　通过计算列进行查询实例3-23　使用IS NULL运算符进行查询实例3-24　使用COUNT函数进行查询实例3-25　使用FIRST函数与LAST函数查询第一条记录和最后一条记录的字段实例3-26　使用Parameters参数动态查询记录（DAO）：指定单个参数实例3-27　使用Parameters参数动态查询记录（DAO）：指定多个参数实例3-28　使用Parameters参数动态查询记录（ADO）：指定单个参数实例3-29　使用Parameters参数动态查询记录（ADO）：指定多个参数实例3-30　使用别名查询数据库 实例3-31　将查询结果作为窗体控件的源数据实例3-32　通过窗体控件查询浏览数据库记录实例3-33　多表查询（WHERE连接）实例3-34　多表查询（内连接INNER JOINT）实例3-35　多表查询（左外连接LEFT OUTER JOINT）实例3-36　多表查询（右外连接RIGHT OUTER JOINT）实例3-37　多表查询（子查询WHERE，ANY，SOME）实例3-38　多表查询（子查询EXISTS，NOT　EXISTS）实例3-39　从两个数据表中查询出都存在的记录实例3-40　从两个数据表中查询出只存在于某个数据表的记录实例3-41　将查询结果生成一个数据表实例3-42　将查询结果保存为一个XML文件实例3-43　利用工作表实现记录的分页显示实例3-44　利用窗体实现记录的分页显示第4章　编辑Access数据库数据实例4-1　添加新记录（ADO+AddNew）实例4-2　添加新记录（ADO+SQL）实例4-3　添加新记录（DAO+AddNew）实例4-4　添加新记录（DAO+SQL）实例4-5　添加新记录（Access+SQL）实例4-6　修改更新特定记录（ADO+SQL）实例4-7　修改更新特定记录（DAO+SQL）实例4-8　修改更新特定记录（Access+SQL）实例4-9　修改更新全部记录（ADO+SQL）实例4-10　修改更新全部记录（DAO+SQL）实例4-11　修改更新全部记录（Access+SQL）实例4-12　删除特定记录（ADO+SQL）实例4-13　删除特定记录（DAO+SQL）实例4-14　删除特定记录（Access+SQL）实例4-15　删除全部记录（ADO+SQL）实例4-16　删除全部记录（DAO+SQL）实例4-17　删除全部记录（Access+SQL）实例4-18　通过窗体编辑记录第5章　将Excel工作表数据导入到Access数据库 实例5-1　将整个工作表数据都保存为新Access数据库（Access）实例5-2　将工作表的某些区域数据保存为新Access数据库（Access）实例5-3　将工作簿的所有工作表数据分别保存为不同的数据表（Access）实例5-4　将多个工作簿的某个工作表数据汇总为新Access数据库（Access）实例5-5　将多个工作簿的某个工作表数据保存为不同的数据表（Access）实例5-6　将工作表数据保存到已有的Access数据库（循环方式）（ADO）实例5-7　将工作表数据保存到已有的Access数据库（循环方式）（DAO）实例5-8　将工作表数据保存到已有的Access数据库（数组方式）（ADO）实例5-9　将工作表数据保存到已有的Access数据库（数组方式）（DAO）实例5-10　将工作簿的所有工作表数据分别保存为不同的数据表（ADO）实例5-11　将工作簿的所有工作表数据分别保存为不同的数据表（DAO）第6章　操作Access数据表实例6-1　打开数据库和数据表（GetObject函数）实例6-2　打开数据库和数据表（CreateObject函数）实例6-3　删除数据表（ADO）实例6-4　删除数据表（ADOX）实例6-5　删除数据表（DAO+DELETE）实例6-6　删除数据表（DAO+SQL）实例6-7　删除数据表（Access）实例6-8　为数据表增加字段（ADO）实例6-9　为数据表增加字段（ADOX）实例6-10　为数据表增加字段（DAO）实例6-11　为数据表增加字段（Access）实例6-12　删除字段（ADO）实例6-13　删除字段（ADOX）实例6-14　删除字段（DAO）实例6-15　删除字段（Access）实例6-16　改变字段的类型（ADO）实例6-17　改变字段的类型（DAO）实例6-18　改变字段的类型（Access）实例6-19　改变字段的长度（ADO）实例6-20　改变字段的长度（DAO）实例6-21　改变字段的长度（Access）实例6-22　重命名数据表（Access）实例6-23　复制数据表（Access）实例6-24　复制数据表（ADO）实例6-25　复制数据表（DAO）实例6-26　通过窗体维护数据库 第7章　操作SQL Server数据库实例7-1　判断SQL Server数据库是否存在（ADO）实例7-2　检查数据表是否存在（ADOX）实例7-3　创建新的SQL Server数据库和数据表（ADO）实例7-4　在已有的SQL Server数据库中创建数据表（ADO）实例7-5　从SQL Server数据库服务器中删除数据库（ADO）实例7-6　从SQL Server数据库中删除数据表（ADO）实例7-7　将SQL Server数据库中的数据导入到Excel工作表（ADO）实例7-8　将SQL Server数据库中的数据导入到Excel工作表（DAO）实例7-9　查询获取SQL Server数据库的数据（ADO）实例7-10　查询获取SQL Server数据库的数据（DAO）实例7-11　将工作表数据导入到SQL Server数据库（ADO）实例7-12　向SQL Server数据库中添加记录的一般方法实例7-13　将SQL Server数据库转换为Access数据库 实例7-14　将Access数据库转换为SQL Server数据库第8章　操作FoxPro数据库实例8-1　将FoxPro数据库全部数据导入到Excel工作表实例8-2　查询获取FoxPro数据库数据实例8-3　将Excel工作表数据保存到FoxPro数据库实例8-4　判断FoxPro数据库的字段是否存在 实例8-5　获取FoxPro数据库的字段信息第9章　将Excel工作簿当作数据库来操作实例9-1　从工作簿的某个工作表中查询获取数据（ADO）实例9-2　从工作簿的全部工作表中查询获取数据（ADO）实例9-3　利用DAO从工作表中查询数据实例9-4　查询其他工作簿的数据（ADO）实例9-5　获取其他工作簿中的工作表名称清单（ADOX）实例9-6　利用ADO对工作表数据进行多重排序实例9-7　利用ADO按照字符的长度对数据进行排序实例9-8　比较两张表，将两个表中相同的行数据抓取出来实例9-9　比较两张表，将只存在于某个表中的行数据抓取出来实例9-10　删除工作表数据区域内的所有空行第10章　将文本文件当作数据库来操作实例10-1　利用ADO导入文本文件的全部内容实例10-2　利用DAO导入文本文件的全部内容实例10-3　利用ADO导入文本文件的部分内容实例10-4　利用DAO导入文本文件的部分内容实例10-5　利用ADO获取文本文件的行数和列数实例10-6　利用ADO将超过65536行的文本文件数据导入到Excel工作表实例10-7　将工作表全部数据保存为文本文件（SaveAs）实例10-8　将工作表全部数据保存为文本文件（循环）实例10-9　将数据库数据导出为文本文件实例10-10　将文本文件保存为Access数据库（Access）实例10-11　将文本文件保存为Access数据库（ADO+ADOX）第11章　Excel VBA开发数据库管理系统 11.1　固定资产管理系统的总体设计 11.1.1　固定资产管理系统功能模块 11.1.2　固定资产管理系统数据库和数据表的设计 11.1.3　设计系统工作簿 11.1.4　设计系统的自定义菜单 11.1.5　引用对象库 11.2　系统管理模块设计 11.2.1　用户名和密码的保存 11.2.2　“用户登录”窗口结构设计 11.2.3　“用户登录”窗体程序代码设计 11.2.4　“修改用户名”窗体结构设计 11.2.5　“修改用户名”窗体的程序代码设计 11.2.6　“修改密码”窗体结构设计 11.2.7　“修改密码”窗体的程序代码设计 11.3　基础资料管理模块设计 11.4　固定资产日常管理模块设计 11.4.1　固定资产日常管理窗体的结构设计 11.4.2　固定资产日常管理窗体的程序代码设计 11.4.3　“固定资产查询”窗体的结构设计 11.4.4　“固定资产查询窗体”的程序代码设计 11.4.5　固定资产日常管理模块的应用 11.5　报表输出模块设计 11.5.1　固定资产折旧计算方法 11.5.2　生成固定资产卡片子模块的设计 11.5.3　生成统计报表子模块的设计 11.5.4　生成固定资产折旧表子模块的设计 11.5.5　编制折旧费用分配表子模块的设计 11.6　系统菜单转换模块的设计 11.6.1　恢复Excel系统菜单 11.6.2　恢复固定资产管理系统自定义菜单 11.7　为工作簿指定Open和BeforeClose事件 11.7.1　为工作簿指定Open事件 11.7.2　为工作簿指定BeforeClose事件

7,732

社区成员

28,799

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章