请问如何判断数据库中的表是否存在？

[hongtao924]

如：数据库名为GZ
在GZ这个数据库中有一张表，名为：GZ＿1
如何在程序设计中（VB6＋ACCESS2000）判断GZ库中已存在了GZ＿1这个表。

小弟在此先谢谢了

[hongtao924]

有朋友帮忙吗？

[hongtao924]

我一直在等大家帮我

[hongtao924]

这个问题会难到大家．．？？？？

[81083]

'调用函数
if tbExitDb("GZ＿1","gz.mdb") then MsgBox "GZ＿1表存在数据库gz.mdb中！", vbOKOnly + 64, "消息框"

'判断数据库中是否存在某个表函数
Public Function tbExitDb(tbName As String, dbName As String) As Boolean

Dim Idx As Long
If Len(Dir(dbName)) Then
Set db = OpenDatabase(dbName)

tbExit = False
For Idx = 0 To db.TableDefs.Count - 1
If tbName = CStr(db.TableDefs(Idx).Name) Then
tbExit = True
Exit For
End If
Next Idx
db.Close
End If
End Function

[minglx]

采用捕捉错误可以吗/？

on error goto kkk

kkk select case index
case msgbox "the db is error"

[hongtao924]

谢谢了
还有回答的照样加分

[slothboy]

我也是错误捕捉,
on error goto PErr
select * from TableName
....
exit sub

:err
....

[hongtao924]

好都加分

[81083]

对了，先要引用DAO3.51或DAO3.6 。

[32572]

[MyLf]

用Adox 吧

[lwplwp123]

我还没来的及仔细回去研究，但我觉得 81083(fy)　(2001-11-26 22:54:54) 说的不错，一定是可以的，我本是来找点其它的问题答案的，但是我看了他的东西后很受启发，为什么不给分呢？？？？？？？？？？？？

[y1g1y1]

http://www.csdn.net/expert/topic/385/385753.shtm

[hongtao924]

不是不给分,而是我已经下线了,现在就给