11 svar · 268 visningar · startad av Koplik
Jag är nöd efter att få reda på hur jag kan identifiera kolumnen som innehåller primärnyckeln i en databas.
Det skulle hjälpa mig mycket...
Ifall någon har en aning om det eller inte riktigt förstår... 
Skriv det!
Tack på förhand! 
Man kan använda sig av metoden openschema.
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdmthopenschema.asp
Alternativt, om man har en dbms som är standardiserad, så kan man använda de vyer som finns i information_schema. För att få fram primärnyckelskolumnerna i en tabell så får man joina mellan key_column_usage och table_constraints
Jag försöte med typen att öppna schema.
Körde.
Set RecSet = connect.OpenSchema(4)
för det är något med Primary Key.
Men den vägrar totalt att utföra det.
Kanske gjort något speciellt fel?
Felmeddelandet lyder:
"Object or provider is not capable of performing requested operation."
Any ideas? 
Vilken databas har du?
Jag kör med Access...
2000......
Ingen hit då?
Har du provat med:
Set RecSet = connect.OpenSchema(28)
En bra sak att oxå ha till hands är ADO SDK som finns att ladda ned från www.microsoft.com/data/
cya,
PatrikB
Vad tror du om det här?
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\webb\news.mdb"
Set RS = Conn.OpenSchema(28)
Do Until RS.EOF
Response.Write "Tabell namn: "
Response.Write RS("TABLE_NAME") & "<br>"
Response.Write "Primary key: "
Response.Write RS("COLUMN_NAME") & "<br>"
RS.MoveNext
Loop
Oj förlåt...
Jag skrev
RecSet.OpenSchema(4)... Jag menade RecSet.OpenSchema(28)...
Jag får kolla på den andra lösningen...
Och hoppas på det bästa...
Ja du boma... 
Jag får väl testa!
Denna funkar oxå ... + att den plockar fram fälttypen oxå ... den e ju oxå intressant för en PK är inte alltid av typen integer.
Set objRS = objDB.OpenSchema(28)
If Not objRS.EOF Then
Do Until objRS.EOF
strTableName = objRS("TABLE_NAME")
strPKFieldName = objRS("COLUMN_NAME")
varPKFieldType = objRS("COLUMN_NAME").Type
If Not Left(strTableName,4) = "MSys" Then
Response.Write "<B>" & strTableName & "</B><BR>" & _
"Primary Key: " & strPKFieldName & "<BR>" & _
"Fieldtype: " & varPKFieldType & "<hr>"
End If
objRS.MoveNext
Loop
End If
Set objRS = Nothing
cya,
PatrikB