[absconder]

bir database'deki tüm relation'ları bir text dosyasına döküp incelemek istiyorum.

mesela; _personal_relation ile _ddl_variable tablosu arasındaki bir ilişkiyi;

FK__personal_relation__ddl_variable

şeklinde gösteriyor. ama benim istediğim _personal_relation tablosundaki relation_type ile _ddl_variable tablosundaki variable_id arasındaki ilişkiyi yazması. ve, bu database'deki tüm ilişkileri birarada yazması çok şeymi istedim?

[soul]

ASP ile ilişkileri istediğin şekilde dökebilir ve raporlayabilirsin.

// Bir de bir önceki screenshot' a ithafen lu an çalıştığım projede PHP - SQL server 58 civarında tablo ve sayısı belli olmayan relationship zincirleri var

[absconder]

minicik bir örnek??

[soul]

http://ferruh.mavituna.com/article.asp?113

için yazdığım kodlar.


Fonksiyon;

PHP Code:

'********************************************
'// @Info: Get All RelationShips Foreign Keys (FK) and Primary Keys (PK) And put them a fuckin' Array
'// @Param: table - Active Table Name
'// @Return: PK, FK Fields Array : $ArrFK(4,~)
'********************************************
Sub fm_FKKeys(byRef ArrReturn, byVal table)
    Dim RsFK, FKShemaConn, FKCounter, ArrFK(50,3)
    FKCounter = 0

    Set FKShemaConn = server.CreateObject("ADODB.Connection")
    FKShemaConn.ConnectionString = ConnX13
    FKShemaConn.Open

    Set RsFK = FKShemaConn.OpenSchema(27) '// 27 = Foreign Keys
    While NOT RsFK.EOF
        FKCounter = FKCounter+1
        '// RsFK(x,0) = Foreign Key Column Name
        '// RsFK(x,1) = Foreign Key Table Name
        '// RsFK(x,2) = Primary Key Column Name
        '// RsFK(x,3) = Primary Key Table Name
        '//-----++++ Preserve !
        If RsFK("FK_TABLE_NAME") = table Then '// Just For this table
            ArrFK(FkCounter,0) = RsFK("FK_COLUMN_NAME")
            ArrFK(FkCounter,1) = RsFK("FK_TABLE_NAME")
            ArrFK(FkCounter,2) = RsFK("PK_COLUMN_NAME")
            ArrFK(FkCounter,3)= RsFK("PK_TABLE_NAME")
        End If
        RsFK.MoveNext
    Wend
    
        ArrReturn = ArrFK
End Sub 


Örnek kullanımı;

PHP Code:

<%
    Call fm_FKKeys(ArrFK, td)
    For z = 0 to Ubound(ArrFK,1)
        Response.Write ArrFK(z,3) & " - " & ArrFK(z,2)
    Next    
%> 


Ancak şimdi aklıma geldi SQL Serverda bu çok daha basit şimdi aklımda değil ancak SQL Serverda tüm ilişkiler bir sistem tablosunda tutulur.

master.sysforeignkeys olması gerekiyor.
Aynı şekilde tablo listesi vs. gibi konulara da buradan ulaşabilirsin.

Dolayısıyla basit bir SQL sorgusu ile tüm ilişkilere goreignkey lere vs. ulaşabilirsin.

Benim verdiğim kodda bunu Acces için yapmanı sağlıyor.

Tabii ki SQL serverda master db sine erişme izninin olduğunu varsayıyorum.

[absconder]

bir database'deki tüm relationship'leri listeler:

<%
dbc_srvr	="servername"
dbc_dtbs	= "database"
dbc_user = "username"
dbc_pass = "password"
dbc_conn = "provider=sqloledb;server="& dbc_srvr &";database="& dbc_dtbs &";uid="& dbc_user &";pwd="& dbc_pass

set fkshemaconn = server.createobject("adodb.connection")
fkshemaconn.connectionstring =dbc_conn 
fkshemaconn.open

set rsfk = fkshemaconn.openschema(27)
response.write "<table border=1 cellspacing=1 cellpadding=1 style=border-collapse:collapse>"
while not rsfk.eof
  response.write "<tr>" &_
		"<td>" & rsfk("fk_table_name") & "</td>" & _
		"<td>" & rsfk("fk_column_name") & "</td>" & _
		"<td>" & rsfk("pk_table_name") & "</td>" & _
		"<td>" & rsfk("pk_column_name") & "</td></tr>"
  rsfk.movenext
wend
response.write "</table>"
%>