在代码中如何判断出MDB数据库中是否存在某个表（着急阿！！！）

Question

db.tabledef(i).name 'DAO
cn.tabledef(i).Name 'ADO

Answer 1

SELECT 一下该表如程序返回err.number=-2147217865则该表不存在。

Answer 2

请问 cqq_chen(我是谁) ，我怎么找不到cn.tabledef(i)这个对象呢？

Answer 3

设你要导入的表名为Table1private Function TableExist() as boolen
ON ERROR GOTO ERR_HANDLER 
...
re.open "SELECT * FROM Table1 "
tableexist=true
ERR_HANDLER:
    if err.number=-2147217865 then
       tableexist=false
    end if
end Function

Answer 4

这个问题讨论了很多次了！！！
   如果 ADO的化用ADOX对象

Answer 5

cn是你自己创建的连接对象
dim cn as adodb.connection
0A

Answer 6

在程序中做以下sql操作，就可以了。
SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = 'ICDDEntry' 'ICDDENTRY为你所要查看的表名。

Answer 7

请问：ccbl(阿龙) 
ADOX的引用是?

Answer 8

请问:fancylee(小恐龙) 
可不可以把re.open "SELECT * FROM Table1 "前面的代码也提供一下,不太会用啊!

Answer 9

你看不懂我的代码吗？
dim cn as ....
dim sc as ado.recordset 
sc.open "SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = 'ICDDEntry' 'ICDDENTRY为你所要查看的表名。".cn
if sc.eof and sc.bof then
    '表不存在。
else
    '表已经存在。
endif

Answer 10

dim g_db as DAO.Database
Dim obs As DAO.TableDef
set g_db = openDatabase("***********************")
//指向数据库
For Each obs In g_db.TableDefs
 if obs.Name= TYourName Then
   //处理
 End If
Next

Answer 11

对，用dao可以
或者用adox:Microsoft ADO Ext. 2.5 for DDL and Security.

Answer 12

用adox很好解决这个问题！
他可以自动搜索到一个数据库下的所有表！