一聚教程网:一个值得你收藏的教程网站

最新下载

热门教程

试过列出一个数据库里所有的主键吗?

时间:2022-06-30 10:13:23 编辑:袖梨 来源:一聚教程网

<%
dbname = "databasename"
ConnStr = "provider=SQLOLEDB;network=DBMSSOCN;"
ConnStr = ConnStr & "uid=;pwd=;server="
ConnStr = ConnStr & " Address>;database=" & dbname

set Conn = server.createobject("adodb.connection")
Conn.Open ConnStr
sql = "SELECT so1.name AS keyName, so2.name AS tableName "
sql = sql & "FROM sysobjects so1 INNER JOIN sysobjects so2 "
sql = sql & "ON so2.id = so1.parent_obj WHERE (so1.xtype='PK')"
set rs = Conn.execute(sql)
do while not rs.eof
response.write(rs(0) & " is PrimaryKey for " & rs(1) & "
")
rs.movenext
loop
rs.close: set rs = nothing
Conn.Close: set Conn = nothing
%>

热门栏目