21475.html
来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 28 行
HTML
28 行
<html> <head> <title>Re: 请问vb是否有判断table是否存在的涵数？</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>Re: 请问vb是否有判断table是否存在的涵数？</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:jwh@ms1.hinet.net">纪文和</a> on November 19, 1999 at 19:21:33:<p>In Reply to: <a href="21469.html">请问vb是否有判断table是否存在的涵数？</a> posted by max on November 19, 1999 at 14:24:49:<p><center><img src="http://www.ruentex.com.tw/vbguide/images/vblogoweb.GIF"></center><p>要判断资料库中某一个 Table 是否存在？最简单的方法就是错误尝试法！什么叫做错误尝试法呢？就是先假设它存在，直接去开启它，如果它真的存在，不会有错误产生，但是如果它不存在的话，就会有错误产生！做法大致如下：<p>1、设定 On Error Resume Next<br>2、直接开启要检查的 Table<br>3、如果档案存在，则 err.Number=0<p>我们就以 Access 为例，资料库使用 VB 内附的 Biblio.mdb，程式码如下：<p>On Error Resume Next '1<br>Set Conn = CreateObject("ADODB.Connection")<br>Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=C:\Biblio.mdb"<br>Set rs = Conn.execute("Titles") '2<br>If Err.Number <> 0 Then MsgBox "Table 不存在" Else MsgBox "Table 存在" '3<p><a href="http://www.ruentex.com.tw/vbguide" target="_blank">VB入门网</a><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 21475--><!--top: 21485--><li><a href="21485.html">我的方法, 提供参考!!</a> <b>James</b> <i>12:24:24 11/20/99</i>(<!--responses: 21485-->0)<ul><!--insert: 21485--></ul><!--end: 21485--></ul><!--end: 21475--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?