试过列出一个数据库里所有的主键吗？
作者：袖梨
2022-06-30
<%
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
%>
dbname = "databasename"
ConnStr = "provider=SQLOLEDB;network=DBMSSOCN;"
ConnStr = ConnStr & "uid=
ConnStr = ConnStr & "
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
%>
