数据库问题50分求救!!

lindqp 2002-04-06 01:19:40
怎么判断某access数据库中存在某表,
知道的快来抢分,第一个解决问题者全分奉送,谢谢!
...全文
4 点赞 收藏 6
写回复
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
jdsbjcailei 2002-04-06
DAO方法:
dim db as database

from_load
set db=opendatabase(数据库)
for i=0 to db.TableDefs.count-1
if lcase(db.TableDefs(i).name)=lcase(想要知道存在的表名) then
msgbox "该表存在"
else
msgbox "该表不存在"
exit sub
end if
next i
回复
sevenuptqa 2002-04-06
sorry,我暂时帮不上。
回复
xiaohuangtao 2002-04-06
dim objDatabase as Database
dim lngCounter as long
for lngCounter=0 to objDatabase .table.count-1
if objDatabase.table(lngCounter).name="绿毛网虫" then

.....................
end if
next lngCounter

回复
gaoqi5037 2002-04-06
ADO帮助里的。^_^修改了一下
Public Function OpenSchemaX() AS Boolean

Dim cnn1 As ADODB.Connection
Dim rstSchema As ADODB.Recordset
Dim strCnn As String

Set cnn1 = New ADODB.Connection
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\gaoqi.mdb;Persist Security Info=False;Jet OLEDB:Database Password=gaoqi"
cnn1.Open strCnn

Set rstSchema = cnn1.OpenSchema(adSchemaTables)

Do Until rstSchema.EOF
If Not Left(rstSchema!table_name, 4) = "MSys" Then
Debug.Print "Table name: " & _
rstSchema!table_name & vbCr & _
"Table type: " & rstSchema!TABLE_TYPE
if rstschema!table_name="你的表名" then
OpenSchemaX=true
exit function
end if
End If
rstSchema.MoveNext

Loop
rstSchema.Close

cnn1.Close

End Sub
回复
junglerover 2002-04-06
如果是使用DAO,那么用DATABASE对象打开数据库后,可以使用
TableDefs集合,在里面有ACCESS数据库中的所有表;

如果使用ADO,那么可以使用Connection对象的
OpenSchema(adSchemaTables)
方法,获取所有表。
回复
dbcontrols 2002-04-06
在你硬盘上搜索Ado210.chm好好看看
这个问题以前我回答过
回复
发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告