问:怎样用sql语句来判断已知表是否存在?
答:具体解决方法如下:
注释:以下代码为通常的引用dao做的一模块
以下为引用的内容:
function fexisttable(strtablename as string) as integer
dim db as database
dim i as integer
set db = dbengine.workspaces(0).databases(0)
fexisttable = false
db.tabledefs.refresh
for i = 0 to db.tabledefs.count - 1
if strtablename = db.tabledefs(i).name then
'table exists
fexisttable = true
exit for
end if
next i
set db = nothing
end function
private sub 命令0_click()
fexisttable
end sub
用该事件出现‘参数不可选’的错误。仔细研究,发现fexisttable缺少参数,即已知表名没有在代码中反应。
修改为:
以下为引用的内容:
private sub 命令0_click()
fexisttable(”需判断的已知表名”)
end sub
end sub不再报错。仔细分析,其实是用 ”已知表名” 通过dao判断数据库中是否存在,如果fexisttable的值为true就是存在,否则就是不存在。
解决问题后,忽然想起access数据库也有系统表,存放有对象名,是否做一查询来判定呢?
经验证,可以实现需求。如果qty>0,即表示表已存在,否则就表示不存在。
以下为引用的内容:
select count(*) as qty
from msysobjects
where (((msysobjects.name) like 需判断的已知表名));