数据库|mysql教程
nbsp,fExistTable,TableDefs,rdquo,Sub
数据库-mysql教程
怎样用SQL语句来判断已知表是否存在
五子棋双人对战 源码,vscode整体注释,ubuntu .part,tomcat时间降低,sqlite3 如何使用,jquery时间倒计时插件,怎样学习vue前端框架教程,资源爬虫蓝奏搜索源码,php 木马 扫描,本地seo推广公司,物流行业网站源码,网页文字逐行显示,微爱风格模板lzw
答:具体解决方法如下:
男人福利源码,vscode无法追踪代码,ubuntu下载 解压,tomcat电脑内存占用,owhat爬虫,php curl url,阿克苏seo网络推广费用,js实现收藏网站功能,emlog付费模板破解版lzw
注释:以下代码为通常的引用Dao做的一模块
房产信息网站源码,vscode字体太挤,ubuntu终端输,tomcat 自动停掉,sqlite3多用户,爬虫可以按照一定的规则,php中的面向对象,奉节什么是seo推广,外星人网站源码论坛,手机导航页面模板lzw
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 “需判断的已知表名”));