# Re: 请问vb是否有判断table是否存在的涵数？

Posted by 纪文和 on November 19, 1999 at 19:21:33:

In Reply to: 请问vb是否有判断table是否存在的涵数？ posted by max on November 19, 1999 at 14:24:49:

要判断资料库中某一个 Table 是否存在？最简单的方法就是错误尝试法！什么叫做错误尝试法呢？就是先假设它存在，直接去开启它，如果它真的存在，不会有错误产生，但是如果它不存在的话，就会有错误产生！做法大致如下：

1、设定 On Error Resume Next
2、直接开启要检查的 Table
3、如果档案存在，则 err.Number=0

我们就以 Access 为例，资料库使用 VB 内附的 Biblio.mdb，程式码如下：

On Error Resume Next '1
Set Conn = CreateObject("ADODB.Connection")
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=C:\Biblio.mdb"
Set rs = Conn.execute("Titles") '2
If Err.Number <> 0 Then MsgBox "Table 不存在" Else MsgBox "Table 存在" '3

VB入门网

Follow Ups:

- 我的方法, 提供参考!! James 12:24:24 11/20/99 (0)