7,789
社区成员
发帖
与我相关
我的任务
分享如何判断ACCESS数据库中是否存在某个表？
只引用 microsoft activex data objects 2.1 library，如何判断指定ACCESS数据库中是否存在名为“LOVE”的表？
还有一个问题：如何判断某个Excel文件是否已经打开？
还有一个问题：如何判断某个Excel文件是否已经打开？
...全文
请发表友善的回复…
发表回复
JeanLaw 2004-03-26
- 打赏
- 举报
只能这样吗？
华芸智森 2004-03-26
- 打赏
- 举报
'错误侦测法.
'true 存在,FALSE 不存在.
Function ChkTable(Cnn As adodb.Connection, TableName As String) As Boolean
On Error Resume Next
Dim StrSql As String
StrSql = "SELECT * FROM " & TableName
Cnn.Execute StrSql
ChkTable = (Err.Number = 0)
End Function
'true 存在,FALSE 不存在.
Function ChkTable(Cnn As adodb.Connection, TableName As String) As Boolean
On Error Resume Next
Dim StrSql As String
StrSql = "SELECT * FROM " & TableName
Cnn.Execute StrSql
ChkTable = (Err.Number = 0)
End Function
