1188
社区成员
请问如何判断数据库中的表是否存在？
如：数据库名为GZ
在GZ这个数据库中有一张表，名为：GZ＿1
如何在程序设计中（VB6＋ACCESS2000）判断GZ库中已存在了GZ＿1这个表。
小弟在此先谢谢了
在GZ这个数据库中有一张表，名为：GZ＿1
如何在程序设计中（VB6＋ACCESS2000）判断GZ库中已存在了GZ＿1这个表。
小弟在此先谢谢了
...全文
当前发帖距今超过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
....
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"
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
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
有朋友帮忙吗？
「风险评估」支持国产密码算法的OpenSSL设计实现及应用 - 金融安全.zip 「风险评估」支持国产密码算法的OpenSSL设计实现及应用 - 金融安全
WAF
基础架构安全
WAF
网络安全
APT
kernel-plus-headers-3.10.0-1160.6.1.el7.centos.plus.x86_64.rpm kernel-plus-headers-3.10.0-1160.6.1.el7.centos.plus.x86_64.rpm
