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

hongtao924 2001-11-26 09:51:34
如:数据库名为GZ
在GZ这个数据库中有一张表,名为:GZ_1
如何在程序设计中(VB6+ACCESS2000)判断GZ库中已存在了GZ_1这个表。

小弟在此先谢谢了
...全文
112 点赞 收藏 14
写回复
14 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
hongtao924 2001-11-29
不是不给分,而是我已经下线了,现在就给
回复
y1g1y1 2001-11-29
http://www.csdn.net/expert/topic/385/385753.shtm
回复
lwplwp123 2001-11-28
我还没来的及仔细回去研究,但我觉得 81083(fy) (2001-11-26 22:54:54) 说的不错,一定是可以的,我本是来找点其它的问题答案的,但是我看了他的东西后很受启发,为什么不给分呢????????????
回复
MyLf 2001-11-28
用Adox 吧
回复
32572 2001-11-28
回复
81083 2001-11-27
对了,先要引用DAO3.51或DAO3.6 。
回复
hongtao924 2001-11-27
好都加分
回复
slothboy 2001-11-27
我也是错误捕捉,
on error goto PErr
select * from TableName
....
exit sub

:err
....
回复
hongtao924 2001-11-27
谢谢了
还有回答的照样加分
回复
minglx 2001-11-27
采用捕捉错误可以吗/?

on error goto kkk

kkk select case index
case msgbox "the db is error"
回复
81083 2001-11-26
'调用函数
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


回复
hongtao924 2001-11-26
这个问题会难到大家..????
回复
hongtao924 2001-11-26
我一直在等大家帮我
回复
hongtao924 2001-11-26
有朋友帮忙吗?
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2001-11-26 09:51
社区公告
暂无公告