dao代码:set db=dao.dbenging.opendatabase("c:\test.mdb")
for i=0 to db.tabdefs.count-1
debug.print db.tabdefs(i).name
nextado 需要引用 Adox
Dim k As New ADOX.Catalog
...
For i = 0 To k.Tables.Count - 1
Debug.Print k.Tables(i).Name
Next
for i=0 to db.tabdefs.count-1
debug.print db.tabdefs(i).name
nextado 需要引用 Adox
Dim k As New ADOX.Catalog
...
For i = 0 To k.Tables.Count - 1
Debug.Print k.Tables(i).Name
Next
解决方案 »
- 请高人指点下面的游戏如何用vb实现。
- 什么是自动化对象???
- 高分救命:获取网页源码,忙了一个晚上没有解决
- 我用picture控件,在里面放了一个web控件,打开网页,我现在想把网页垂直和倒过来看,请问怎么实现.
- 求救! 用VB解压*.zip文件,出现"信号灯超时时间已到"的错误!!
- 在VB中如何调用SKYPE的API??????
- 提问一个低级问题希望大家能发言
- vb里面怎么把百分数如12%转换为小数,我的目的是参与运算。
- 简单的报表问题!
- 如何在VB,WIN98在实现不规则窗口,就像解霸中的界面?
- 在WIN2000下用ExitWindowsEx怎么不行。(直接退出WIN2000)
- 两张表,一张大表,一张小表,小表中的内容都在大表中,如何很快找出大表中有而小表中没有的纪录!
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.CloseEnd Sub
select * from sysobjects where name='你要的表名'。
Access等就只好用DAO解决了
http://www.csdn.net/expert/topic/113/113125.shtm