发信人: hater()
整理人: qcrsoft(2001-12-13 07:24:07), 站内信件
|
【 在 asp-asp-asp 的大作中提到：】
:仅知道数据库名,如何能用ASP读出ACCESS库里有几个表,以及表名?
:......
下次不要一个问题发那么多次了
解决方法如下
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>查看数据库中表、视图等</title>
<!-- #INCLUDE FILE="ADOVBS.INC" -->
</head>
<body>
<%
Dim Conn
Dim RS
Set Conn = Server.CreateObject("ADODB.Connection")
Dim connstr
connstr = "DBQ="+server.mappath("xxx.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
'connstr = "DSN=Sql;UID=sa;PWD=;DATABASE=master"
Conn.CursorLocation = adUseClient
Conn.Open connstr
Set RS = Conn.OpenSchema(adSchemaTables)
%>
<div align="center"><center>
<table border="1">
<tr>
<td>库名</td>
<td>表名</td>
<td>所有者</td>
<td>类型</td>
<td>描述</td>
</tr>
<%
Do Until RS.EOF
%>
<tr>
<td><% = RS("TABLE_CATALOG") %></td>
<td><% = RS("TABLE_NAME") %></td>
<td><% = RS("TABLE_SCHEMA") %></td>
<td><% = RS("TABLE_TYPE") %></td>
<td><% = RS("DESCRIPTION") %></td>
</tr>
<%
RS.MoveNext
Loop
%>
</table>
</center></div>
<p>在ACCESS、Microsoft SQL SERVER、IIS4、PWS4中均可运行。<br>
还有一个更直观的办法哟，就是直接用SQL语句<br>
Access: select * from MSysObjects;<br>
SQL Server: select * from dbo.sysobjects<br>
Oracle: select * from tab;<br>
不过如果你不加限制条件的话，就会把存储结构、模块什么的全都查出来了
----
曾经有一份真诚的爱情放在我面前，我没有珍惜，等我失去的时候我才后悔莫及，人世间最痛苦的事莫过于此。 |
|