处理 SSI 文件时出错
论坛交流
首页| 办公自动化| 网页制作| 平面设计| 动画制作| 数据库开发| 程序设计| 全部视频教程
应用视频: Windows | Word2007 | Excel2007 | PowerPoint2007 | Dreamweaver 8 | Fireworks 8 | Flash 8 | Photoshop cs | CorelDraw 12
编程视频: C语言视频教程 | HTML | Div+Css布局 | Javascript | Access数据库 | Asp | Sql Server数据库 |  Asp.net  | Flash AS
当前位置 > 文字教程 > Sql Server教程
Tag:注入,存储过程,分页,安全,优化,加密,索引,日志,压缩,base64,函数,内存,PDF,迁移,结构,破解,编译,配置,进程,分词,触发器,socket,安装,sqlserver2000,sqlserver2005,sqlserver2008,视频教程

查看数据库中表、视图等

文章类别：Sql Server | 发表日期:2008-10-5 21:35:55
<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("webdb.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>
不过如果你不加限制条件的话，就会一股脑儿把存储结构呀，模块呀什么的全都查出来了<br>
露茜 1999年1月17日</p>
</body>
</html>
视频教程列表
文章教程搜索
 
Sql Server推荐教程
Sql Server热门教程