Descobrir Uma Chave Primária

[Xandão Grunge]

Olá a todos! Gostaria de saber como faço para descobrir a chave primária de uma tabela.

Encontrei este script no forum Imasters e adaptei para retornar o tipo de dados e o tamanho dos campos:

<%@Language="VBScript"%>
<%
Set Cn = CreateObject("ADODB.Connection")
ConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd.mdb")
Cn.Open ConnString

Set cat = CreateObject("ADOX.Catalog")
cat.ActiveConnection = cn

for i = 0 to cat.tables.count - 1
if lcase(cat.tables(i).type) = "table" Then

set rs = server.createobject("adodb.recordset")
rs.open "select * from " & cat.tables(i).name, cn, 1,3,1

response.write "<hr>" & "Tabela: " & cat.tables(i).name & "<hr>"

for x = 0 to rs.fields.count - 1
response.write "<div style=""font-size:12px"">Campo: " & rs.fields(x).name
response.write " - Tipo: " & rs.fields(x).type
response.write " - Tamanho definido: " & rs.fields(x).DefinedSize
response.write " - Atributos: " & rs.fields(x).Attributes
response.write " - Precisão: " & rs.fields(x).Precision & "</div>"
next

end if
next

rs.close
Cn.Close

Set rs = Nothing
Set Cn = Nothing
%>

Para obter informações de outra tabela basta trocar o bd.mdb pelo nome da base de dados em que se deseja obter informações. Apenas precisava descobrir quais são as chaves primárias das tabelas.

Se alguém souber de algo, por favor, poste ai.

Grato,

Xandão Grunge

[bareta]

não entendi...

[Guest Guest]

não entendi...

Bareta,

este script lista as tabelas de determinada base de dados com seus respectivos nome de campos, tipo de dados de campo além do comprimento de cada campo.

Eu precisava que ele retornasse qual campo é a chave primária de cada tabela.

Grato,

Xandão Grunge