如何在一个access数据库中判断一个表是否存在，如查存在的话，就删除它？？？

[xiaofeng_cxy]

在查询中用到临时表，access中不知道如何实现，
现在我是想先判断表是否存在，如果存在的话就删除它，
然后重建，sql如何写？？？
请大侠指教

[qffhq]

用DDL语句,查一下帮助

[xiaofeng_cxy]

drop table tablename
这我是知道的
关键是如何知道当前库中有没有该表！
在sql server中可以用
select name='tablename' from sysobjects
系统表得到是否已有该表，在access中如何判断呢？

[xiaofeng_cxy]

帮助中好象没有讲sql的用法啊
只有如何使用access???

[xiaofeng_cxy]

没有人回答吗？
这边没有通晓access的人吗？？？？

[amtyuranus]

上面不是说了吗？你select * from msysobjects where name=tablename

如果找到就有，找不到就没有好了

[xiaofeng_cxy]

to ： amtyuranus((看看))
提示"在msysobjects表上没有读取权限"
如何设置ADO连接才能有读取权限??
access没有设密码!!
在线恭候!!!!!!!!!

[amtyuranus]

没有密码怎么会没读取权限的，你有没有把这张表显示出来？

[xiaofeng_cxy]

： amtyuranus((看看))

把这张表显示出来是什么意思？
在创建之后，这张表是可以看见的啊
但是在删除之前肯定是要判断一下有没有这张表的啊

[changechange]

用adox ，帮助里面有，自己去查，alltables为关键字

其实我可以贴出代码给你，但是我觉得还是你自己去看去学得好，我已经给了你方法，这已经足够了

[changechange]

另外，再说一点，access不存在 临时表 这个概念。

[borisnew]

我有，回去找一下。

[hycao]

select * from msysobjects where name=tablename
应该是可以的，另外用ADO可以用下面的方法得到数据库中的所有表名：
Dim cnn1 As ADODB.Connection
Dim rstSchema As ADODB.Recordset
Dim strCnn As String
Set cnn1 = New ADODB.Connection
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\abc.mdb;"
cnn1.Open strCnn
Set rstSchema = cnn1.OpenSchema(adSchemaTables)
Do Until rstSchema.EOF
Debug.Print "Table name: " & rstSchema!TABLE_NAME
rstSchema.MoveNext
Loop
rstSchema.Close
cnn1.Close

[w_rose]

太，太，太简单了！


on error resume next
执行"drop table [myTable]"
on error goto 0

[xiaofeng_cxy]

delphi里面有这样的写法吗