请问在程序中如何得到ACCESS数据库中的所有表名?

beyondme 2000-08-29 10:21:00
...全文
123 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
虎叔 2000-08-30
  • 打赏
  • 举报
回复
调用ODBC的API
playyuer 2000-08-29
  • 打赏
  • 举报
回复
方 法 1:
<%
dim adoConnection
dim adoRecordset
set adoConnection=Server.CreateObject("ADODB.Connection")
adoConnection.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & Server.MapPath("/qnaire/") & "/data/Q.mdb;Persist Security Info=False"
set adoRecordset=Server.CreateObject("ADODB.Recordset")

Set adoRecordset= adoConnectionX.OpenSchema(adSchemaTables)', Array(Empty, Empty, TestTableName, "Table"))

Do Until adoRecordset.EOF
response.write rstSchema!TABLE_Name
rstSchema.MoveNext
Loop
rstSchema.Close

cnn1.Close
%>


方 法 2(引 用 Microsoft ADO Extensions 2.1 for DDL and Security (ADOX)):
( 主 持 人 注 : 需 要 升 级 至 VB 6.0SP3)
<%
dim adoConnection
set adoConnection=Server.CreateObject("ADODB.Connection")
adoConnectionX.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=E:\DRptPlus\DRptPlus\Data\NWind2K.mdb;Persist Security Info=False"

Dim adoxCatalogX
set adoxCatalogX =Server.CreateObject("ADOX.Catalog")

Set adoxCatalogX.ActiveConnection = adoConnectionX

Dim adoxTableX
set adoxTableX =Server.CreateObject("ADOX.Table")

For Each adoxTableX In adoxCatalogX.Tables
response.write adoxTableX.name
Next

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧