紧急,请问如何在VB中判断一个数据库中的表是否存在?

litdong 2001-05-15 11:49:00
紧急,请问如何在VB中判断一个数据库中的表是否存在?
...全文
70 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
playyuer 2001-05-16
如何知道数据库中是否存在名为k的表?
http://www.csdn.net/expert/topic/113/113125.shtm
回复
jcq 2001-05-16
如果是SQL就很好解决,SQL数据库中有一个表:sysobjects 记录了该数据库的所有对象,你可以使用如下的sql语句:
select * from sysobjects where name='你要的表名'。
Access等就只好用DAO解决了
回复
lwy55 2001-05-16
我也遇到过这种情况,用了个很傻的办法! :)

Private Sub Command1_Click()

Dim myDB As Database
Dim td As TableDef
Dim hl As Boolean
hl = True

Set myDB = Workspaces(0).OpenDatabase("d:\bank.mdb")

For Each td In myDB.TableDefs
If td.Name = "表1" Then
'如果表1存在则
MsgBox "表存在!"
hl = False
End If
Next

If hl Then
MsgBox "表不存在!"
End If

myDB.Close

End Sub
回复
y1g1y1 2001-05-16
dao代码:

set db=dao.dbenging.opendatabase("c:\test.mdb")
for i=0 to db.tabdefs.count-1
debug.print db.tabdefs(i).name
next

ado 需要引用 Adox
Dim k As New ADOX.Catalog
...
For i = 0 To k.Tables.Count - 1
Debug.Print k.Tables(i).Name
Next
回复
相关推荐
发帖

1188

社区成员

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